- くだすれFORTRAN（超初心者用）その6
505 ：デフォルトの名無しさん[sage]：2014/06/27(金) 00:42:32.62 ID:P3Dz9sSW - 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
|