------- Comment #2 from burnus at gcc dot gnu dot org 2007-10-26 23:14 -------
procedure(sub) :: p4
procedure(p4) :: p6
The problem is that first sub needs to be resolved for p4 and then p4 before
p6.
The problem is that "procedure(p4) :: p6" is checked before "procedure(sub) ::
p4" and that thus for "p6" sym->interface->attr.if_source == IFSRC_UNKNOWN
instead of IFSRC_DECL.
This seems to be a tree-walking problem. The solution is to make sure the
interfaces are resolved first such that the following holds true:
/* Get the attributes from the interface (now resolved). */
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33917
