| ! { dg-do run } | |
| module foo_nml | |
| implicit none | |
| real :: x = -1 | |
| namelist /foo/ x | |
| end module | |
| program main | |
| use foo_nml, only: bar => foo, x | |
| implicit none | |
| integer fd | |
| x = 42 | |
| open(newunit=fd, file='tmp.dat', status='replace') | |
| write(fd,nml=bar) | |
| close(fd) | |
| open(newunit=fd, file='tmp.dat', status='old') | |
| read(fd,nml=bar) | |
| if (x /= 42) stop 1 | |
| close(fd) | |
| end program | |
| ! { dg-final { cleanup-modules "foo_nml" } } |