! { dg-do compile } | |
! { dg-options "-std=f95" } | |
module foo_nml | |
implicit none | |
real :: x = -1 | |
namelist /foo/ x | |
end module | |
program main | |
use foo_nml, only: bar => foo, x | |
implicit none | |
real a | |
namelist /bar/a ! { dg-error "already is USE associated" } | |
end program | |
! { dg-final { cleanup-modules "foo_nml" } } |