[Bug fortran/55763] Issues with some simpler CLASS(*) programs

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55763



--- Comment #12 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-01-03 
12:55:23 UTC ---

For another failure, see PR 55854.



(In reply to comment #10)

> I have a simple case where CLASS(*) leads to an ICE.

> If it doesn't fit here, please feel free to move it elsewhere.



Proposed patch:



--- a/gcc/fortran/class.c

+++ b/gcc/fortran/class.c

@@ -2227,3 +2227 @@ gfc_find_intrinsic_vtab (gfc_typespec *ts)

-             /* Avoid segfaults because due to character length.   */

-             c->ts.type = ts->type == BT_CHARACTER ? BT_VOID : ts->type;

-             c->ts.kind = ts->kind;

+             c->ts.type = BT_VOID;

@@ -2237,3 +2235 @@ gfc_find_intrinsic_vtab (gfc_typespec *ts)

-             /* Avoid segfaults due to missing character length.   */

-             c->ts.type = ts->type == BT_CHARACTER ? BT_VOID : ts->type;

-             c->ts.kind = ts->kind;

+             c->ts.type = ts->type = BT_VOID;