From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 3 Jun 2016 01:25:31 +0000 (+0000)
Subject: re PR fortran/52393 (I/O: "READ format" statement with parenthesed default-char-expr)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e96e5f4611803e2c67410f0ad99a9b1261704720;p=gcc.git

re PR fortran/52393 (I/O: "READ format" statement with parenthesed default-char-expr)

2016-06-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/52393
	* gfortran.dg/fmt_read_3.f90: Fix typo.
	* gfortran.dg/fmt_read_4.f90: New test.

From-SVN: r237051
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7f659c8ec20..9f7da169de6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2016-06-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/52393
+	* gfortran.dg/fmt_read_3.f90: Fix typo.
+	* gfortran.dg/fmt_read_4.f90: New test.
+
 2016-06-02  Paolo Carlini  <paolo.carlini@oracle.com>
 
 	* g++.dg/cpp0x/forw_enum10.C: Adjust for dg-message vs dg-error.
diff --git a/gcc/testsuite/gfortran.dg/fmt_read_3.f90 b/gcc/testsuite/gfortran.dg/fmt_read_3.f90
index 72053697c40..f0c91f47ebc 100644
--- a/gcc/testsuite/gfortran.dg/fmt_read_3.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_read_3.f90
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! PR52392 "READ format" statement with parenthesed default-char-expr
+! PR52393 "READ format" statement with parenthesed default-char-expr
 PROGRAM ReadMeTwo
   IMPLICIT NONE
   CHARACTER(10) :: var
diff --git a/gcc/testsuite/gfortran.dg/fmt_read_4.f90 b/gcc/testsuite/gfortran.dg/fmt_read_4.f90
new file mode 100644
index 00000000000..010cee971de
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_read_4.f90
@@ -0,0 +1,8 @@
+! { dg-do compile }
+! PR52393 "READ format" statement with parenthesed default-char-expr
+PROGRAM ReadMeTwo
+  IMPLICIT NONE
+  CHARACTER(10) :: var
+  var = "TestStr"
+  READ ('((') // 'A)', var ! { dg-error "Unexpected end of format" }
+END PROGRAM ReadMeTwo