[Bug fortran/43366] [OOP][F2008] Intrinsic assign to polymorphic variable

[burnus at gcc dot gnu.org]

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

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-03 
21:24:38 UTC ---
(In reply to comment #4)
> Here is a simple patch for getting rid of the error message:

The patch is not quite right. The LHS must be allocatable
("gfc_expr_attr(e).allocatable") - and it must not be coindexed
("!gfc_is_conindexed(e)").

Thus, you need something like:

if (lhs->ts.type == BT_CLASS)
  {
    if (gfc_expr_attr(e).allocatable") && !gfc_is_conindexed(e))

      if (gfc_notify_std(F2008 ...)  == FAILURE)
         return false;
    else
      {
        gfc_error ();
        return false;
      }
  }