たぶんこのことではないかと思うのだが・・
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