blob: 3d878c756448a2e9fa7e8e4adb2e14582e1fb441 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
