gcc/testsuite/gfortran.dg/slash_1.f90

   1 ! PR libfortran/22170
   2 ! { dg-do run }
   3   integer i
   4   open (10,status='scratch')
   5   write (10,'(A,2/,A)') '12', '17'
   6   rewind (10)
   7   read (10,'(I2)') i
   8   if (i /= 12) call abort
   9   read (10,'(I2)') i
  10   if (i /= 0) call abort
  11   read (10,'(I2)') i
  12   if (i /= 17) call abort
  13   end