19 lines
448 B
Fortran
19 lines
448 B
Fortran
! { 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
|