diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-23 08:32:09 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-23 08:32:09 +0000 |
| commit | c09566dff0f9db4456b2d85ef13acf0c992fbeb5 (patch) | |
| tree | a58fb8c9c7bd215016e24d0af8cfbd2a3c342ff0 /gcc/fortran/class.c | |
| parent | 37ece3a2e56c865de52f17d7884c86d13a6cfe53 (diff) | |
| download | gcc-c09566dff0f9db4456b2d85ef13acf0c992fbeb5.tar.gz | |
2015-01-23 Janus Weil <janus@gcc.gnu.org>
PR fortran/60922
* class.c (finalize_component): Apply the check for 'fini_coarray' only
to coarray components.
2015-01-23 Janus Weil <janus@gcc.gnu.org>
PR fortran/60922
* gfortran.dg/class_allocate_17.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220029 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index a9b65e65b2b..55e7ef4a56b 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -928,7 +928,7 @@ finalize_component (gfc_expr *expr, gfc_symbol *derived, gfc_component *comp, /* Add IF (fini_coarray). */ if (comp->attr.codimension || (comp->ts.type == BT_CLASS && CLASS_DATA (comp) - && CLASS_DATA (comp)->attr.allocatable)) + && CLASS_DATA (comp)->attr.codimension)) { block = gfc_get_code (EXEC_IF); if (*code) |