https://gcc.gnu.org/g:abf001f5a52cb2f94eaad7a6ee25b61de0bec9a0

commit r16-6526-gabf001f5a52cb2f94eaad7a6ee25b61de0bec9a0
Author: Jerry DeLisle <[email protected]>
Date:   Tue Jan 6 14:47:49 2026 -0800

    Fortran: Allow BLANK= in OPEN with -std=f95
    
            PR fortran/123029
    
    gcc/fortran/ChangeLog:
    
            * io.cc (check_open_constraints): Delete erroneous check.

Diff:
---
 gcc/fortran/io.cc | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/gcc/fortran/io.cc b/gcc/fortran/io.cc
index 284a8f4187ce..5bffed22eb8f 100644
--- a/gcc/fortran/io.cc
+++ b/gcc/fortran/io.cc
@@ -2247,10 +2247,6 @@ check_open_constraints (gfc_open *open, locus *where)
   /* Checks on the BLANK specifier.  */
   if (open->blank)
     {
-      if (!gfc_notify_std (GFC_STD_F2003, "BLANK= at %L "
-                          "not allowed in Fortran 95", &open->blank->where))
-       return false;
-
       if (open->blank->expr_type == EXPR_CONSTANT)
        {
          static const char *blank[] = { "ZERO", "NULL", NULL };

Reply via email to