! { dg-do run }
! PR61173.f90 Bogus END condition
module bd
  character(len=25, kind=1), dimension(:), allocatable, save :: source
  contains
    subroutine init_data
      allocate(source(2))
      source=["   1   1   1  ", "   4   4   4  "]
    end subroutine init_data
end module bd
program read_internal
  use bd
  integer :: x(6),i

  call init_data
  read(source,*) (x(i), i=1,6)
  if (any(x/=[1,1,1,4,4,4])) STOP 1
end program read_internal