1! { dg-do run }
2! PR42901  Reading array of structures from namelist
3! Test case derived from the reporters test case.
4program test_nml
5type field_descr
6  integer number
7end type
8type fsetup
9  type (field_descr), dimension(3) :: vel ! 3 velocity components
10end type
11type (fsetup) field_setup
12namelist /nl_setup/ field_setup
13field_setup%vel%number = 0
14! write(*,nml=nl_setup)
15open(10, status="scratch")
16write(10,'(a)') "&nl_setup"
17write(10,'(a)') " field_setup%vel(1)%number=  3,"
18write(10,'(a)') " field_setup%vel(2)%number=  9,"
19write(10,'(a)') " field_setup%vel(3)%number=  27,"
20write(10,'(a)') "/"
21rewind(10)
22read(10,nml=nl_setup)
23if (field_setup%vel(1)%number .ne. 3) STOP 1
24if (field_setup%vel(2)%number .ne. 9) STOP 2
25if (field_setup%vel(3)%number .ne. 27) STOP 3
26! write(*,nml=nl_setup)
27end program test_nml
28