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;
> + }
>
