blob: 82ac6dc85c1eeebdc70e3f714427a6d83d9d7b24 [file] [log] [blame]
! { dg-do run }
! Test correct operation for pad='no'.
program main
character(len=1) line(2)
line = 'x'
open(77,status='scratch',pad='no')
write(77,'(A)') 'a','b'
rewind(77)
read(77,'(2A)',iostat=i) line(1)
if (line(1) /= 'a' .or. line(2) /= 'x') STOP 1
rewind(77)
line = 'y'
read(77,'(2A)',iostat=i,advance='no') line
if (line(1) /= 'a' .or. line(2) /= 'y') STOP 2
end program main