[Bug fortran/57022] [4.7/4.8/4.9 Regression] Inappropriate warning for use of TRANSFER with arrays

[mikael at gcc dot gnu.org]

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

Mikael Morin <mikael at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |mikael at gcc dot gnu.org

--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> 2013-04-21 12:05:13 UTC ---
(In reply to comment #2)
> +  
> +  if (source->expr_type == EXPR_ARRAY || source->rank > 0)
> +    {
> +      if (!gfc_array_size (source, &tmp))
should be "if (gfc_array_size (...))" (i.e. without '!') maybe?

> +    *source_size *= mpz_get_ui (tmp);
> +      else
> +    return false;
> +    }
>