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