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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/fmt_read_3.f90

 ! { 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

gcc/testsuite/gfortran.dg/fmt_read_4.f90

+! { 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