1! { dg-do run }
2! pr 18392
3! test namelist with derived types
4! Based on example provided by thomas.koenig@online.de
5
6program 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 ()
22end program pr18392
23