diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-12-12 18:54:54 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-12-12 18:54:54 +0000 |
| commit | 3971fdfe9775a313c4ccc992198a546a7820e1ec (patch) | |
| tree | 94f26051c1bbc2bd927fc10c86cdce7e02428131 /gcc/fortran/resolve.c | |
| parent | c7b86151a84e1e3d9d50bc722c1d05ea6256307e (diff) | |
| download | gcc-3971fdfe9775a313c4ccc992198a546a7820e1ec.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@243580 138bc75d-0d04-0410-961f-82ee72b054a4
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 c7d872cb5b3..ece4d7523a2 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; |