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