2 ! PR56660 Fails to read NAMELIST with certain form array syntax
4 character(len = 2) :: sname
8 type(ptracer) , dimension(3) :: tracer
11 tracer(:) = ptracer('XXX', .false.)
13 open (99, file='nml.dat', status="replace")
15 !write(99,*) " tracer(2) = 'bb' , .true."
16 write(99,*) " tracer(:) = 'aa' , .true."
17 write(99,*) " tracer(2) = 'bb' , .true."
22 close (99, status="delete")
24 if (tracer(1)%sname.ne.'aa') call abort()
25 if (.not.tracer(1)%lini) call abort()
26 if (tracer(2)%sname.ne.'bb') call abort()
27 if (.not.tracer(2)%lini) call abort()
28 if (tracer(3)%sname.ne.'XX') call abort()
29 if (tracer(3)%lini) call abort()