くだすれFORTRAN（超初心者用）その6

506 ：デフォルトの名無しさん：2014/06/27(金) 00:42:32.62 ID:P3Dz9sSW.net

formatのスラッシュでskipできるぞ。

program test
implicit none
character(len = 132) :: text
open(10, file = 'test.f90')
1 read(10, '(a, /)', end = 999) text
print *, trim(text)
goto 1
999 stop
end program test