gcc/testsuite/gfortran.dg/pad_no.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! Test correct operation for pad='no'.
   3 program 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
  15 end program main