万能型 class(*) と select type による処理。F90でせっかく型チェックを厳しくしたのに、OOPのせいでまたゆるゆるにｗｗｗ 実行結果 ソースプログラム program test implicit none class(*), allocatable :: d integer :: i allocate(real(8)::d) do i = 1,…

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