------- Comment #1 from janus at gcc dot gnu dot org 2008-11-27 22:09 -------
The test case can be further compressed to a 3-liner
procedure( up ) :: p
call p
end
and is fixed by the following simple patch
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 142171)
+++ gcc/fortran/resolve.c (working copy)
@@ -2748,7 +2748,8 @@ resolve_specific_s0 (gfc_code *c, gfc_sy
/* See if we have an intrinsic interface. */
if (sym->ts.interface != NULL && !sym->ts.interface->attr.abstract
- && !sym->ts.interface->attr.subroutine)
+ && !sym->ts.interface->attr.subroutine
+ && sym->ts.interface->attr.intrinsic)
{
gfc_intrinsic_sym *isym;
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2008-11-27 22:09:01
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38290
