diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c0ec784..273f2ae 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -7657,7 +7657,8 @@ resolve_fl_derived (gfc_symbol *sym) } if (c->ts.type == BT_DERIVED && c->pointer - && c->ts.derived->components == NULL) + && c->ts.derived->components == NULL + && !c->ts.derived->attr.zero_comp) { gfc_error ("The pointer component '%s' of '%s' at %L is a type " "that has not been declared", c->name, sym->name, |