! { 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])) call abort end program read_internal