diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-09-21 19:58:23 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-09-21 19:58:23 +0000 |
| commit | ecd3b73c6dde9d7b61b811b3cab3ac823b63c181 (patch) | |
| tree | b68949529b16170ec70aaa2df94ddaeea09ee265 /gcc/fortran/decl.c | |
| parent | 19047e4a033c61a38aab9156e2bd49ed0e7bc3e5 (diff) | |
| download | gcc-ecd3b73c6dde9d7b61b811b3cab3ac823b63c181.zip gcc-ecd3b73c6dde9d7b61b811b3cab3ac823b63c181.tar.gz gcc-ecd3b73c6dde9d7b61b811b3cab3ac823b63c181.tar.bz2 | |
re PR fortran/37583 (ICE "insert_bbt(): Duplicate key" for self-calling ENTRY subprogram)
2008-09-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37583
* decl.c (scalarize_intrinsic_call): Both subroutines and
functions can give a true for get_proc_mame's last argument so
remove the &&gfc_current_ns->proc_name->attr.function.
resolve.c (resolve_actual_arglist): Add check for recursion by
reference to procedure as actual argument.
2008-09-21 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37583
* gfortran.dg/entry_18.f90: New test.
From-SVN: r140532
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 0fc2a95..370ac10 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4639,8 +4639,7 @@ gfc_match_entry (void) created symbols attached to the current namespace. */ if (get_proc_name (name, &entry, gfc_current_ns->parent != NULL - && module_procedure - && gfc_current_ns->proc_name->attr.function)) + && module_procedure)) return MATCH_ERROR; proc = gfc_current_block (); |