2 ! Test correct operation for pad='no'.
4 character(len=1) line(2)
6 open(77,status='scratch',pad='no')
7 write(77,'(A)') 'a','b'
9 read(77,'(2A)',iostat=i) line(1)
10 if (line(1) /= 'a' .or. line(2) /= 'x') call abort
13 read(77,'(2A)',iostat=i,advance='no') line
14 if (line(1) /= 'a' .or. line(2) /= 'y') call abort