我不確定我寫的問題標題是否正確，但我做了一個MWE，以更好地解釋我想做的事情：
我不確定我寫的問題標題是否正確。
module prueba
type :: basic
class(basic),pointer :: myself => null()
包含
程序 :: hello => basic_hello
結束型別
type,extends(basic) :: complicated
包含
程序:: hello => complicated_hello
結束型別
包含
subroutine basic_hello(a)
class(basic), target :: a
a%myself=>a ! <----- XXX
print *, 'I am basic
結束子程式
子程式 complicated_hello(a)
class(complicated), target :: a
呼叫a
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/313127.html
標籤：