1! { dg-do run }
2! PR61173.f90 Bogus END condition
3module 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
10end module bd
11program 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
18end program read_internal
19