blob: 8e17b7d4c84660d3006a7be0b3632af7e2416ec8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run }
! PR37707 Namelist read of array of derived type incorrect
! Test case from Tobias Burnus
IMPLICIT NONE
integer :: j
character(len=5) :: str(4)
character(len=900) :: nlstr
namelist /nml/ str, j
str = ''
j = -42
nlstr = '&nml str = "a", "b", "cde", j = 5 /'
read(nlstr,nml)
open(99, status="scratch")
write(99,nml)
rewind(99)
j = -54
str = 'XXXX'
read(99,nml)
if (j.ne.5) STOP 1
if (any(str.ne.["a ","b ","cde "," "])) STOP 2
close(99)
end
|