OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2016-06-03 01:25:31 +00:00
parent 80ea6aed5b
commit e96e5f4611
3 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

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

2
gcc/testsuite/gfortran.dg/fmt_read_3.f90
View File

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

8
gcc/testsuite/gfortran.dg/fmt_read_4.f90 Normal file
View File

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