14 lines
274 B
Fortran
14 lines
274 B
Fortran
|
! PR libfortran/22170
|
||
|
! { dg-do run }
|
||
|
integer i
|
||
|
open (10,status='scratch')
|
||
|
write (10,'(A,2/,A)') '12', '17'
|
||
|
rewind (10)
|
||
|
read (10,'(I2)') i
|
||
|
if (i /= 12) call abort
|
||
|
read (10,'(I2)') i
|
||
|
if (i /= 0) call abort
|
||
|
read (10,'(I2)') i
|
||
|
if (i /= 17) call abort
|
||
|
end
|