fortran66のブログ

fortran について書きます。

コンポーネント名とデフォルト初期化を含む構造コンストラクター

たぶんこのことではないかと思うのだが・・

PROGRAM test
IMPLICIT NONE
INTEGER :: i
TYPE :: t_test
 INTEGER :: n = 9
 CHARACTER(LEN = 10) :: text
 REAL :: a(10)
END TYPE t_test
!
TYPE (t_test), PARAMETER :: unko = t_test(99, 'Yaranaika', [REAL:: (i, i = 1, 10)])
PRINT *, unko
PRINT *
PRINT *, t_test(text = 'UHO!', a = 990.0)
STOP
END PROGRAM test