1! { dg-do run } 2! PR47778 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 10 type (field_descr), dimension(3) :: scal ! 3 scalars 11end type 12type (fsetup) field_setup 13namelist /nl_setup/ field_setup 14field_setup%vel%number = 0 15field_setup%scal%number = 0 16! write(*,nml=nl_setup) 17open(10, status="scratch") 18write(10,'(a)') "&nl_setup" 19write(10,'(a)') " field_setup%vel(1)%number= 3," 20write(10,'(a)') " field_setup%vel(2)%number= 9," 21write(10,'(a)') " field_setup%vel(3)%number= 27," 22write(10,'(a)') " field_setup%scal(1)%number= 2," 23write(10,'(a)') " field_setup%scal(2)%number= 4," 24write(10,'(a)') " field_setup%scal(3)%number= 8," 25write(10,'(a)') "/" 26rewind(10) 27read(10,nml=nl_setup) 28if (field_setup%vel(1)%number .ne. 3) STOP 1 29if (field_setup%vel(2)%number .ne. 9) STOP 2 30if (field_setup%vel(3)%number .ne. 27) STOP 3 31if (field_setup%scal(1)%number .ne. 2) STOP 4 32if (field_setup%scal(2)%number .ne. 4) STOP 5 33if (field_setup%scal(3)%number .ne. 8) STOP 6 34!write(*,nml=nl_setup) 35end program test_nml 36 37