[Bug fortran/58652] ICE with move_alloc and unlimited polymorphic

[burnus at gcc dot gnu.org]

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

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Patch for the issue in comment 1:

--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -1993,2 +1993,3 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
-      if (!gfc_compare_derived_types (CLASS_DATA (actual)->ts.u.derived,
-                      CLASS_DATA (formal)->ts.u.derived))
+      if (!UNLIMITED_POLY (formal)
+      && !gfc_compare_derived_types (CLASS_DATA (actual)->ts.u.derived,
+                     CLASS_DATA (formal)->ts.u.derived))