1! { dg-do run { target fd_truncate } } 2! PR46010 Failure to read these two examples of namelists 3type ptracer 4 character(len = 2) :: sname 5 logical :: lini 6end type ptracer 7type(ptracer) , dimension(3) :: tracer 8namelist/naml1/ tracer 9 10type qptracer 11 character(len = 20) :: sname = ""!: short name 12 character(len = 45 ) :: lname = ""!: long name 13 character(len = 20 ) :: sunit = "" !: unit 14 logical :: lini !: read in a file or not 15 logical :: lsav !: ouput the tracer or not 16end type qptracer 17type(qptracer) , dimension(3) :: qtracer 18namelist/naml2/ qtracer 19 20open (99, file='nml.dat', status="replace") 21write(99,*) "&naml1" 22write(99,*) " tracer(1) = 'aa', .true." 23write(99,*) " tracer(2) = 'bb', .true." 24write(99,*) " tracer(3) = 'cc', .true." 25write(99,*) "/" 26rewind(99) 27read (99, nml=naml1) 28write (*, nml=naml1) 29rewind(99) 30write(99,*) "&naml2 ! just some stuff" 31write(99,*) " qtracer(1) = 'dic ' , 'dissolved inorganic concentration ', 'mol-c/l' , .true. , .true.," 32write(99,*) " qtracer(2) = 'alkalini' , 'total alkalinity concentration ', 'eq/l ' , .true. , .true.," 33write(99,*) "/" 34rewind(99) 35read (99, nml=naml2) 36write (*, nml=naml2) 37rewind(99) 38 39close (99, status="delete") 40end 41