[Bug fortran/78240] ICE in match_clist_expr, at fortran/decl.c:728

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78240

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
(In reply to Gerhard Steinmetz from comment #1)
> For completeness, without -fdec :
> 
> 
> $ gfortran-7-20161106 z1.f90
> z1.f90:2:12:
> 
>     structure /s/
>             1
> Error: STRUCTURE at (1) is a DEC extension, enable with -fdec-structure
> z1.f90:4:6:
> 
>     end structure
>       1
> Error: Expecting END PROGRAM statement at (1)
> z1.f90:3:16:
> 
>        integer x(n) /1/
>                 1
> Error: Variable 'n' cannot appear in the expression at (1)
> z1.f90:3:18:
> 
>        integer x(n) /1/
>                   1
> Error: The module or main program array 'x' at (1) must have constant shape
> 
> in gfc_format_decoder, at fortran/error.c:935
> 0x68b46e gfc_format_decoder
>         ../../gcc/fortran/error.c:935
> 0x13f1eef pp_format(pretty_printer*, text_info*)
>         ../../gcc/pretty-print.c:660
> 0x13e5310 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
>         ../../gcc/diagnostic.c:947
> 0x68b307 gfc_error
>         ../../gcc/fortran/error.c:1277
> 0x68c700 gfc_error(char const*, ...)
>         ../../gcc/fortran/error.c:1306
> 0x6f152a check_data_variable
>         ../../gcc/fortran/resolve.c:14939
> 0x6f152a traverse_data_var
>         ../../gcc/fortran/resolve.c:15130
> 0x6fbc91 resolve_data
>         ../../gcc/fortran/resolve.c:15185
> 0x6fbc91 resolve_types
>         ../../gcc/fortran/resolve.c:15939
> 0x6f76ac gfc_resolve(gfc_namespace*)
>         ../../gcc/fortran/resolve.c:16027
> 0x6e1bba resolve_all_program_units
>         ../../gcc/fortran/parse.c:5883
> 0x6e1bba gfc_parse_file()
>         ../../gcc/fortran/parse.c:6130
> 0x725822 gfIndex: resolve.c

===================================================================
--- resolve.c   (revision 241667)
+++ resolve.c   (working copy)
@@ -14973,8 +14975,7 @@ check_data_variable (gfc_data_variable *

       if (!gfc_array_size (e, &size))
        {
-         gfc_error ("Nonconstant array section at %L in DATA statement",
-                    &e->where);
+         gfc_error ("Nonconstant array section at %C in DATA statement");
          mpz_clear (offset);
          return false;
        }
c_be_parse_file
>         ../../gcc/fortran/f95-lang.c:198