(forgot svn add in the previous commit)
authorTobias Burnus <burnus@gcc.gnu.org>
Fri, 29 Jun 2007 10:05:11 +0000 (12:05 +0200)
committerTobias Burnus <burnus@gcc.gnu.org>
Fri, 29 Jun 2007 10:05:11 +0000 (12:05 +0200)
2007-06-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/32483
        * gfortran.dg/fmt_read_2.f90: New.

From-SVN: r126110

gcc/testsuite/gfortran.dg/fmt_read_2.f90 [new file with mode: 0644]

diff --git a/gcc/testsuite/gfortran.dg/fmt_read_2.f90 b/gcc/testsuite/gfortran.dg/fmt_read_2.f90
new file mode 100644 (file)
index 0000000..0f7f4d7
--- /dev/null
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! PR fortran/32483
+      implicit none
+      integer :: r
+      real :: a
+      write (*,'(i0)') r
+      read (*,'(i0)') r ! { dg-warning "Positive width required" }
+      read (*,'(f0.2)') a ! { dg-warning "Positive width required" }
+      print *, r,a
+      END