diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 01e68ab..bb0b946 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -12866,6 +12866,8 @@ resolve_fl_derived0 (gfc_symbol *sym) { gfc_error ("Component '%s' with CLASS at %L must be allocatable " "or pointer", c->name, &c->loc); + /* Prevent a recurrence of the error. */ + c->ts.type = BT_UNKNOWN; return FAILURE; } |