blob: 441fcd4951be663f3244a249ddad2e8e6eba0280 (
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])) STOP 1
end program read_internal
|
