(forgot svn add in the previous commit)

2007-06-29  Tobias Burnus  <burnus@net-b.de>

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

From-SVN: r126110

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
+++ b/gcc/testsuite/gfortran.dg/fmt_read_2.f90
@@ -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