From: Tobias Burnus <burnus@gcc.gnu.org>
Date: Fri, 29 Jun 2007 10:05:11 +0000 (+0200)
Subject: (forgot svn add in the previous commit)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=690f48b1b48b5626cb9b78944f1da201d11e00ec;p=gcc.git

(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
index 00000000000..0f7f4d7ccff
--- /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