diff options
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index f2cf2de..4c0b1da 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2146,7 +2146,7 @@ create_function_arglist (gfc_symbol * sym) hence, the optional status cannot be transfered via a NULL pointer. Thus, we will use a hidden argument in that case. */ else if (f->sym->attr.optional && f->sym->attr.value - && !f->sym->attr.dimension && !f->sym->ts.type != BT_CLASS + && !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS && f->sym->ts.type != BT_DERIVED) { tree tmp; |