[Bug fortran/61968] ICE (assembly failure) due to wrongly generating a vtable for TYPE(*) / BT_ASSUMED_TYPE

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61968

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|REOPENED                    |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot gnu.org

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Index: interface.c
===================================================================
--- interface.c (Revision 270622)
+++ interface.c (Arbeitskopie)
@@ -2989,7 +2989,8 @@
         polymorphic formal arguments.  */
       if (UNLIMITED_POLY (f->sym)
          && a->expr->ts.type != BT_DERIVED
-         && a->expr->ts.type != BT_CLASS)
+         && a->expr->ts.type != BT_CLASS
+         && a->expr->ts.type != BT_ASSUMED)
        gfc_find_vtab (&a->expr->ts);

       if (a->expr->expr_type == EXPR_NULL

seems to do the trick.