1 ! { dg-do run { target fd_truncate } }
2 ! PR46010 Failure to read these two examples of namelists
4 character(len
= 2) :: sname
7 type(ptracer
) , dimension(3) :: tracer
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
17 type(qptracer
) , dimension(3) :: qtracer
18 namelist/naml2
/ qtracer
20 open (99, file
='nml.dat', status
="replace")
22 write(99,*) " tracer(1) = 'aa', .true."
23 write(99,*) " tracer(2) = 'bb', .true."
24 write(99,*) " tracer(3) = 'cc', .true."
30 write(99,*) "&naml2 ! just some stuff"
31 write(99,*) " qtracer(1) = 'dic ' , 'dissolved inorganic concentration ', 'mol-c/l' , .true. , .true.,"
32 write(99,*) " qtracer(2) = 'alkalini' , 'total alkalinity concentration ', 'eq/l ' , .true. , .true.,"
39 close (99, status
="delete")