gcc/testsuite/gfortran.dg/arrayio_14.f90

   1 ! { dg-do run }
   2 ! PR61173.f90 Bogus END condition
   3 module bd
   4   character(len=25, kind=1), dimension(:), allocatable, save :: source
   5   contains
   6     subroutine init_data
   7       allocate(source(2))
   8       source=["   1   1   1  ", "   4   4   4  "]
   9     end subroutine init_data
  10 end module bd
  11 program read_internal
  12   use bd
  13   integer :: x(6),i
  14
  15   call init_data
  16   read(source,*) (x(i), i=1,6)
  17   if (any(x/=[1,1,1,4,4,4])) STOP 1
  18 end program read_internal