gcc/testsuite/gfortran.dg/arrayio_16.f90

   1 ! { dg-do run }
   2 ! PR61640 KIND=4 Character Array Internal Unit Read Fail
   3 program read_internal
   4   integer :: x(9),i
   5   integer :: y(9)
   6   character(kind=4,len=30), dimension(3) :: source
   7
   8   y = reshape ((/ 1,1,-1,1,-1,1,-1,1,1 /), shape(x))
   9   source=[4_"  1   1  -1",4_"  1  -1   1",4_" -1   1   1"]
  10   !print *, (trim(source(i)), i=1,3)
  11   read(source,*) (x(i), i=1,9) ! This read fails for KIND=4 character
  12   if (any(x /= y )) call abort
  13 end program read_internal