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 7f659c8ec202cbc1490d1d25edcec8e6ef56de70..9f7da169de637d334f6fcf12bb5dbdb490880c2e 100644 (file)
--- 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 72053697c40a1e0999ab4c6caafd4986e705b513..f0c91f47ebc8d8132b399974fffbac909029c388 100644 (file)
--- 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 (file)
index 0000000..010cee9
--- /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