[Bug fortran/58658] [OOP] Pointer assignment to allocatable unlimited polymorphic accepted

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |accepts-invalid
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-10-07
                 CC|                            |burnus at gcc dot gnu.org
            Summary|Pointer assignment to       |[OOP] Pointer assignment to
                   |allocatable unlimited       |allocatable unlimited
                   |polymorphic accepted        |polymorphic accepted
     Ever confirmed|0                           |1
      Known to fail|                            |4.8.1, 4.9.0

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Confirmed. Untested patch:

--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -2147,5 +2147,5 @@ gfc_variable_attr (gfc_expr *expr, gfc_typespec *ts)
   attr = sym->attr;

-  if (sym->ts.type == BT_CLASS && sym->attr.class_ok)
+  if (sym->ts.type == BT_CLASS && (sym->attr.class_ok || UNLIMITED_POLY
(sym)))
     {
       dimension = CLASS_DATA (sym)->attr.dimension;