f90で構造体を引数で渡す

質問

次のようなＦ９０のテストコードがあります。
これをフリーソフトのGFORTRANでコンパイルすると

CALL SUB(STR)
Warnig:Type mismatch in argument 'str' at(1);passed TYPE(tp_str) to TYPE(tp_str)[Wargument-mismatch]

なる警告がでます。構造体を引数で渡す方法に誤りがあるようなのですが、なぜダメなのでしょうか。

PROGRAM TEST
IMPLICIT NONE

TYPE TP_STR
　　INTEGER I
ENDTYPE
TYPE (TP_STR) :: STR

STR%I = 1

CALL SUB(STR)
STOP
END

SUBROUTINE SUB(STR)
IMPLICIT NONE

TYPE TP_STR
　　INTEGER I
ENDTYPE
INTEGER X
TYPE (TP_STR) :: STR

X = STR%I
RETURN
END

回答No.1

f272 · ベストアンサー

警告だから，そのままでもプログラムは正しく動く。
しかしMAIN PROGRAMで定義したTP_STRとSUBROUTINEの中で定義したTP_STRは，同じ場所で定義されていないので警告が出る。実際の定義内容が同一かどうかは問題ではありません。
警告をなくしたいのなら，例えば
MODULE M_TP_STR
IMPLICIT NONE
TYPE TP_STR
INTEGER I
ENDTYPE
END MODULE M_TP_STR
PROGRAM TEST
USE M_TP_STR
IMPLICIT NONE
TYPE (TP_STR) :: STR
STR%I = 1
CALL SUB(STR)
STOP
END
SUBROUTINE SUB(STR)
USE M_TP_STR
IMPLICIT NONE
TYPE (TP_STR) :: STR
INTEGER X
X = STR%I
RETURN
END
のようにMODULEでまとめてしまえばよいでしょう。

お礼

丁寧なご教示ありがとうございます。
同じ定義であっても複数の個所で定義したときの警告なのですね。道理で同じ定義をINCLUDE文で行っても解決しないわけですね。
初めてのMODULE文で定義すれば解決しました。
ありがとうございました。