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