2006-02-15 Toon Moene <toon@moene.indiv.nluug.nl>

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

diff --git a/gcc/testsuite/gfortran.dg/iomsg_1.f90 b/gcc/testsuite/gfortran.dg/iomsg_1.f90
index 6a5819d..20c8e8b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/iomsg_1.f90
+++ b/gcc/testsuite/gfortran.dg/iomsg_1.f90
@@ -5,24 +5,24 @@ program iomsg_test
 
   ! Test that iomsg is left unchanged with no error
   ch = 'asdf'
-  open(10, status='scratch', iomsg=ch, iostat=i) ! { dg-warning "Fortran 2003: IOMSG tag" }
+  open(10, status='scratch', iomsg=ch, iostat=i)
   if (ch .ne. 'asdf') call abort
 
   ! Test iomsg with data transfer statement
-  read(10,'(I2)', iomsg=ch, end=100) k ! { dg-warning "Fortran 2003: IOMSG tag" }
+  read(10,'(I2)', iomsg=ch, end=100) k
   call abort
 100 continue
   if (ch .ne. 'End of file') call abort
 
   ! Test iomsg with open
-  open (-3, err=200, iomsg=ch) ! { dg-warning "Fortran 2003: IOMSG tag" }
+  open (-3, err=200, iomsg=ch)
 
   call abort
 200 continue
   if (ch .ne. 'Bad unit number in OPEN statement') call abort
 
   ! Test iomsg with close
-  close(23,status="no_idea", err=500, iomsg=ch) ! { dg-warning "Fortran 2003: IOMSG tag" }
+  close(23,status="no_idea", err=500, iomsg=ch)
 500 continue
   if (ch .ne. "Bad STATUS parameter in CLOSE statement") call abort
 end program iomsg_test