9 lines
191 B
Fortran
9 lines
191 B
Fortran
|
! { dg-do run }
|
||
|
character(len=4) a
|
||
|
open (10, status='scratch')
|
||
|
write (10,'(A)') '1\n2'
|
||
|
rewind (10)
|
||
|
read (10,'(A)') a
|
||
|
if (a /= '1\n2') call abort
|
||
|
end
|