gcc/testsuite/gfortran.dg/namelist_66.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! PR46010 Failure to read these two examples of namelists
   3 type ptracer
   4    character(len = 2)  :: sname
   5    logical              :: lini
   6 end type ptracer
   7 type(ptracer) , dimension(3) :: tracer
   8 namelist/naml1/  tracer
   9
  10 type 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
  16 end type qptracer
  17 type(qptracer) , dimension(3) :: qtracer
  18 namelist/naml2/  qtracer
  19
  20 open (99, file='nml.dat', status="replace")
  21 write(99,*) "&naml1"
  22 write(99,*) "   tracer(1)   = 'aa', .true."
  23 write(99,*) "   tracer(2)   = 'bb', .true."
  24 write(99,*) "   tracer(3)   = 'cc', .true."
  25 write(99,*) "/"
  26 rewind(99)
  27 read (99, nml=naml1)
  28 write (*, nml=naml1)
  29 rewind(99)
  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.,"
  33 write(99,*) "/"
  34 rewind(99)
  35 read (99, nml=naml2)
  36 write (*, nml=naml2)
  37 rewind(99)
  38
  39 close (99, status="delete")
  40 end