* [Patch, Fortran, OOP] PR 44616: ICE if CLASS(foo) is used before its definition
@ 2010-06-22 9:02 Janus Weil
2010-06-22 17:31 ` Janus Weil
0 siblings, 1 reply; 2+ messages in thread
From: Janus Weil @ 2010-06-22 9:02 UTC (permalink / raw)
To: gfortran, gcc-patches
[-- Attachment #1: Type: text/plain, Size: 403 bytes --]
Hi all,
here is an obvious patch which I will commit later today together with
the original test case (regtesting was successful).
Cheers,
Janus
2010-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/44616
* resolve.c (resolve_fl_derived): Avoid checking for abstract on class
containers.
2010-06-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/44616
* gfortran.dg/abstract_type_8.f03: New.
[-- Attachment #2: pr44616.diff --]
[-- Type: application/octet-stream, Size: 550 bytes --]
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 161045)
+++ gcc/fortran/resolve.c (working copy)
@@ -11136,6 +11136,7 @@ resolve_fl_derived (gfc_symbol *sym)
/* If this is a non-ABSTRACT type extending an ABSTRACT one, ensure that
all DEFERRED bindings are overridden. */
if (super_type && super_type->attr.abstract && !sym->attr.abstract
+ && !sym->attr.is_class
&& ensure_not_abstract (sym, super_type) == FAILURE)
return FAILURE;
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2010-06-22 17:08 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-06-22 9:02 [Patch, Fortran, OOP] PR 44616: ICE if CLASS(foo) is used before its definition Janus Weil
2010-06-22 17:31 ` Janus Weil
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).