gcc/testsuite/gfortran.dg/pr88169_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 module foo_nml
   4    implicit none
   5    real :: x = -1
   6    namelist /foo/ x
   7 end module
   8
   9 program main
  10    use foo_nml, only: bar => foo, x
  11    implicit none
  12    real a
  13    namelist /bar/a  ! { dg-error "already is USE associated" }
  14 end program
  15 ! { dg-final { cleanup-modules "foo_nml" } }