| ! { dg-do run } |
| ! PR47778 Reading array of structures from namelist |
| ! Test case derived from the reporters test case. |
| program test_nml |
| type field_descr |
| integer number |
| end type |
| type fsetup |
| type (field_descr), dimension(3) :: vel ! 3 velocity components |
| type (field_descr), dimension(3) :: scal ! 3 scalars |
| end type |
| type (fsetup) field_setup |
| namelist /nl_setup/ field_setup |
| field_setup%vel%number = 0 |
| field_setup%scal%number = 0 |
| ! write(*,nml=nl_setup) |
| open(10, status="scratch") |
| write(10,'(a)') "&nl_setup" |
| write(10,'(a)') " field_setup%vel(1)%number= 3," |
| write(10,'(a)') " field_setup%vel(2)%number= 9," |
| write(10,'(a)') " field_setup%vel(3)%number= 27," |
| write(10,'(a)') " field_setup%scal(1)%number= 2," |
| write(10,'(a)') " field_setup%scal(2)%number= 4," |
| write(10,'(a)') " field_setup%scal(3)%number= 8," |
| write(10,'(a)') "/" |
| rewind(10) |
| read(10,nml=nl_setup) |
| if (field_setup%vel(1)%number .ne. 3) STOP 1 |
| if (field_setup%vel(2)%number .ne. 9) STOP 2 |
| if (field_setup%vel(3)%number .ne. 27) STOP 3 |
| if (field_setup%scal(1)%number .ne. 2) STOP 4 |
| if (field_setup%scal(2)%number .ne. 4) STOP 5 |
| if (field_setup%scal(3)%number .ne. 8) STOP 6 |
| !write(*,nml=nl_setup) |
| end program test_nml |
| |
