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
