gcc/testsuite/gfortran.dg/read_3.f90

   1 ! { dg-do run }
   2 ! PR80727 Crash of runtime gfortran library during integer transformation
   3 ! Note: before the patch this was giving an incorrect EOR error on READ.
   4 program    gfortran_710_io_bug
   5   character  str*4
   6   integer(4) :: i4
   7   str =''
   8   i = 256
   9   write(str,fmt='(a)') i
  10   i = 0
  11   read ( unit=str(1:4), fmt='(a)' ) i4
  12   if (i4.ne.256) call abort
  13 end  program  gfortran_710_io_bug