From 690f48b1b48b5626cb9b78944f1da201d11e00ec Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@gcc.gnu.org>
Date: Fri, 29 Jun 2007 12:05:11 +0200
Subject: [PATCH] (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
---
 gcc/testsuite/gfortran.dg/fmt_read_2.f90 | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/fmt_read_2.f90

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
-- 
2.30.2