F2003からできるようになりました。
ソースプログラム
program test_challoc implicit none character(len=:), allocatable :: d(:) allocate(character(len = 10)::d(5)) print *, len(d), size(d) stop end program test_challoc
F2003からできるようになりました。
program test_challoc implicit none character(len=:), allocatable :: d(:) allocate(character(len = 10)::d(5)) print *, len(d), size(d) stop end program test_challoc