PR c++/9335

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / namelist_use.f90

diff --git a/gcc/testsuite/gfortran.dg/namelist_use.f90 b/gcc/testsuite/gfortran.dg/namelist_use.f90
index 871e529..d550e00 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_use.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_use.f90
@@ -6,7 +6,7 @@
 ! Contributed by Paul Thomas  pault@gcc.gnu.org
 !
 module global
-  character*4 :: aa
+  character(4) :: aa
   integer :: ii
   real    :: rr
   namelist /nml1/ aa, ii, rr
@@ -15,7 +15,8 @@ end module global
 program namelist_use
   use global
   real    :: rrr
-  namelist /nml2/ ii, rrr    ! Concatenate use and host associated variables.
+! Concatenate use and host associated variables - an extension.
+  namelist /nml2/ ii, rrr    ! { dg-warning "already is USE associated" }
   open (10, status="scratch")
   write (10,*) "&NML1 aa='lmno' ii=1 rr=2.5 /"
   write (10,*) "&NML2 aa='pqrs' ii=2 rrr=3.5 /"
@@ -28,3 +29,5 @@ program namelist_use
 
   close (10)
 end program namelist_use
+
+! { dg-final { cleanup-modules "global" } }