gcc/testsuite/gfortran.dg/pr18392.f90

   1 ! { dg-do run }
   2 ! pr 18392
   3 ! test namelist with derived types
   4 ! Based on example provided by thomas.koenig@online.de
   5
   6 program pr18392
   7   implicit none
   8   type foo
   9      integer a
  10      real b
  11   end type foo
  12   type(foo) :: a
  13   namelist /nl/ a
  14   open (10, status="scratch")
  15   write (10,*) " &NL"
  16   write (10,*) " A%A = 10,"
  17   write (10,*) "/"
  18   rewind (10)
  19   read (10,nl)
  20   close (10)
  21   IF (a%a /= 10.0) call abort ()
  22 end program pr18392