diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2016-12-12 19:54:54 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2016-12-12 19:54:54 +0100 |
| commit | 068b961b6a5ad37898cee76ce0e80ef46001eb03 (patch) | |
| tree | 94f26051c1bbc2bd927fc10c86cdce7e02428131 /gcc/fortran/resolve.c | |
| parent | e4d604062535264fd7973c29f3343d1e51951437 (diff) | |
| download | gcc-068b961b6a5ad37898cee76ce0e80ef46001eb03.zip gcc-068b961b6a5ad37898cee76ce0e80ef46001eb03.tar.gz gcc-068b961b6a5ad37898cee76ce0e80ef46001eb03.tar.bz2 | |
re PR fortran/78392 (ICE in gfc_trans_auto_array_allocation, at fortran/trans-array.c:5979)
2016-12-12 Janus Weil <janus@gcc.gnu.org>
PR fortran/78392
* expr.c (gfc_is_constant_expr): Specification functions are not
compile-time constants. Update documentation (add reference to F08
standard), add a FIXME.
(external_spec_function): Add reference to F08 standard.
* resolve.c (resolve_fl_variable): Ditto.
2016-12-12 Janus Weil <janus@gcc.gnu.org>
PR fortran/78392
* gfortran.dg/constant_shape.f90: New test case.
From-SVN: r243580
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c7d872c..ece4d75 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -11825,8 +11825,8 @@ resolve_fl_variable (gfc_symbol *sym, int mp_flag) && !sym->attr.pointer && is_non_constant_shape_array (sym)) { - /* The shape of a main program or module array needs to be - constant. */ + /* F08:C541. The shape of an array defined in a main program or module + * needs to be constant. */ gfc_error ("The module or main program array %qs at %L must " "have constant shape", sym->name, &sym->declared_at); specification_expr = saved_specification_expr; |