1! { dg-do run }
2! Test correct operation for pad='no'.
3program main
4  character(len=1) line(2)
5  line = 'x'
6  open(77,status='scratch',pad='no')
7  write(77,'(A)') 'a','b'
8  rewind(77)
9  read(77,'(2A)',iostat=i) line(1)
10  if (line(1) /= 'a' .or. line(2) /= 'x') call abort
11  rewind(77)
12  line = 'y'
13  read(77,'(2A)',iostat=i,advance='no') line
14  if (line(1) /= 'a' .or. line(2) /= 'y') call abort
15end program main
16