1! { dg-do run }
2! PR56660  Fails to read NAMELIST with certain form array syntax
3type ptracer
4   character(len = 2)  :: sname
5   logical             :: lini
6end type ptracer
7
8type(ptracer) , dimension(3) :: tracer
9namelist/naml1/  tracer
10
11tracer(:) = ptracer('XXX', .false.)
12
13open (99, file='nml_82.dat', status="replace")
14write(99,*) "&naml1"
15!write(99,*) "   tracer(2)   = 'bb' , .true."
16write(99,*) "   tracer(:)   = 'aa' , .true."
17write(99,*) "   tracer(2)   = 'bb' , .true."
18write(99,*) "/"
19rewind(99)
20
21read (99, nml=naml1)
22close (99, status="delete")
23
24if (tracer(1)%sname.ne.'aa') STOP 1
25if (.not.tracer(1)%lini) STOP 2
26if (tracer(2)%sname.ne.'bb') STOP 3
27if (.not.tracer(2)%lini) STOP 4
28if (tracer(3)%sname.ne.'XX') STOP 5
29if (tracer(3)%lini) STOP 6
30
31!write (*, nml=naml1)
32
33end
34