diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-02-22 18:25:11 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-02-22 18:25:11 +0100 |
| commit | 4ff89fcbf2b77347a477f4f0725e1a11894eaf6d (patch) | |
| tree | 2d507078ae9d753ecf63e1f25f6e8ac8f6167eb9 /gcc | |
| parent | 219db888b5adc949d931397a3fdabdfbd6fbfc62 (diff) | |
| download | gcc-4ff89fcbf2b77347a477f4f0725e1a11894eaf6d.zip gcc-4ff89fcbf2b77347a477f4f0725e1a11894eaf6d.tar.gz gcc-4ff89fcbf2b77347a477f4f0725e1a11894eaf6d.tar.bz2 | |
re PR fortran/52335 (I/O: -std=f95 rejects valid DELIM= in OPEN)
2012-02-22 Tobias Burnus <burnus@net-b.de>
PR fortran/52335
* io.c (gfc_match_open): Remove bogus F2003 DELIM= check.
2012-02-22 Tobias Burnus <burnus@net-b.de>
PR fortran/52335
* gfortran.dg/io_constraints_10.f90: New.
From-SVN: r184485
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 4 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/io_constraints_10.f90 | 16 |
4 files changed, 26 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f6b54d7..babf8b5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-02-22 Tobias Burnus <burnus@net-b.de> + + PR fortran/52335 + * io.c (gfc_match_open): Remove bogus F2003 DELIM= check. + 2012-02-18 Tobias Burnus <burnus@net-b.de> PR fortran/52295 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index b7eac6c..7caadc5 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1947,10 +1947,6 @@ gfc_match_open (void) /* Checks on the DELIM specifier. */ if (open->delim) { - if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: DELIM= at %C " - "not allowed in Fortran 95") == FAILURE) - goto cleanup; - if (open->delim->expr_type == EXPR_CONSTANT) { static const char *delim[] = { "APOSTROPHE", "QUOTE", "NONE", NULL }; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 14fcb23..d52a3c9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-02-22 Tobias Burnus <burnus@net-b.de> + + PR fortran/52335 + * gfortran.dg/io_constraints_10.f90: New. + 2012-02-22 Ulrich Weigand <ulrich.weigand@linaro.org> * lib/target-supports.exp (check_effective_target_vect_condition): diff --git a/gcc/testsuite/gfortran.dg/io_constraints_10.f90 b/gcc/testsuite/gfortran.dg/io_constraints_10.f90 new file mode 100644 index 0000000..bb756aa --- /dev/null +++ b/gcc/testsuite/gfortran.dg/io_constraints_10.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } +! { dg-options "-std=f95" } +! +! PR fortran/52335 +! + +integer :: lun +character(len=20) :: str + +! VALID Fortran 95: +open(unit=lun,file=str,delim='apostrophe',status='old') +inquire(lun, delim=str) + +! Fortran 2003: +write(*,*, delim='apostrophe') 'a' ! { dg-error "Fortran 2003: DELIM= at .1. not allowed in Fortran 95" } +end |