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