FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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