diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-06-22 23:02:19 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-06-22 23:02:19 +0200 |
| commit | 03bd096b3b14d8980130c6c6ee5eccf63fca9e37 (patch) | |
| tree | 520241a9afb08809d3512d9abdd9b26c088438a3 /gcc/fortran/interface.c | |
| parent | 34481f289c6844b496ead2a34200c5a6e13c3216 (diff) | |
| download | gcc-03bd096b3b14d8980130c6c6ee5eccf63fca9e37.zip gcc-03bd096b3b14d8980130c6c6ee5eccf63fca9e37.tar.gz gcc-03bd096b3b14d8980130c6c6ee5eccf63fca9e37.tar.bz2 | |
re PR fortran/37254 (Reject valid PROCEDURE statement with implicit interface)
2009-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/37254
PR fortran/39850
* interface.c (compare_parameter): Set implicit type for function
actual arguments with BT_UNKNOWN.
2009-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/37254
PR fortran/39850
* gfortran.dg/interface_30.f90: Modified error message.
* gfortran.dg/proc_decl_22.f90: New.
From-SVN: r148816
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 53cc95f..c6da6f8 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1407,9 +1407,14 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual, } if (formal->attr.function && !act_sym->attr.function) - gfc_add_function (&act_sym->attr, act_sym->name, &act_sym->declared_at); - - if (formal->attr.subroutine && !act_sym->attr.subroutine) + { + gfc_add_function (&act_sym->attr, act_sym->name, + &act_sym->declared_at); + if (act_sym->ts.type == BT_UNKNOWN + && gfc_set_default_type (act_sym, 1, act_sym->ns) == FAILURE) + return 0; + } + else if (formal->attr.subroutine && !act_sym->attr.subroutine) gfc_add_subroutine (&act_sym->attr, act_sym->name, &act_sym->declared_at); |