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.
===================================================================
@@ -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 };
===================================================================
@@ -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