diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index d607435..a35071b 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -728,9 +728,9 @@ get_proc_name (const char *name, gfc_symbol **result, bool module_fcn_entry) /* If the ENTRY proceeds its specification, we need to ensure that this does not raise a "has no IMPLICIT type" error. */ if (sym->ts.type == BT_UNKNOWN) - sym->attr.untyped = 1; + sym->attr.untyped = 1; - (*result)->ts = sym->ts; + (*result)->ts = sym->ts; /* Put the symbol in the procedure namespace so that, should the ENTRY preceed its specification, the specification |