| ! { dg-do run } | |
| ! pr 18392 | |
| ! test namelist with derived types | |
| ! Based on example provided by thomas.koenig@online.de | |
| program pr18392 | |
| implicit none | |
| type foo | |
| integer a | |
| real b | |
| end type foo | |
| type(foo) :: a | |
| namelist /nl/ a | |
| open (10, status="scratch") | |
| write (10,*) " &NL" | |
| write (10,*) " A%A = 10," | |
| write (10,*) "/" | |
| rewind (10) | |
| read (10,nl) | |
| close (10) | |
| IF (a%a /= 10.0) STOP 1 | |
| end program pr18392 |