gcc/testsuite/gfortran.dg/arrayio_15.f90

   1 ! { dg-do run }
   2 ! PR61499
   3 program read_internal
   4
   5   integer :: x(9),i,iostat
   6   character(len=512) :: iomsg
   7   character(kind=1,len=30), dimension(:), allocatable, save :: source
   8   allocate(source(3))
   9   source=["  1   1  -1","  1  -1   1"," -1   1   1"]      !This fails
  10   read(source,*) (x(i), i=1,6)
  11 end program read_internal