diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 89c45b7..16ea97b 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2597,7 +2597,7 @@ mio_component (gfc_component *c, int vtype) c->attr.class_ok = 1; c->attr.access = MIO_NAME (gfc_access) (c->attr.access, access_types); - if (!vtype) + if (!vtype || strcmp (c->name, "_final") == 0) mio_expr (&c->initializer); if (c->attr.proc_pointer) |