■

Array consrtuctor の例（型と文字列長仕様を含む配列コンストラクター）。

PROGRAM test ! Array constructor 
IMPLICIT NONE
REAL :: a(4)
INTEGER :: n(4)
CHARACTER(LEN = 5) :: text(5)
a = [REAL:: 1.0, 2.0, 3.0, 4.0]
PRINT *, a
n = [INTEGER:: 1.0, 2.0, 3.0, 4.0]
PRINT *, n
text = [CHARACTER(LEN=5):: 'a', 'ab', 'abr', 'abra', 'abrac']
PRINT *, text(1:)(2:)
STOP
END PROGRAM test