mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 20:01:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/40472 (Simplification of spread intrinsic takes a long time)

Browse Source 
2009-06-22  Tobias Burnus  <burnus@net-b.de>

        PR fortran/40472
        PR fortran/50520
        * simplify.c (gfc_simplify_spread): Fix the case that source=
        is a scalar.

From-SVN: r148814
This commit is contained in:
Tobias Burnus 2009-06-22 22:24:18 +02:00 committed by Tobias Burnus
parent c986683bb0
commit e5e85f2b81
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2009-06-22 Tobias Burnus <burnus@net-b.de>
PR fortran/40472
PR fortran/50520
* simplify.c (gfc_simplify_spread): Fix the case that source=
is a scalar.
2009-06-22 Paul Thomas <pault@gcc.gnu.org>
PR fortran/40443

9
gcc/fortran/simplify.c
View File

@ -5117,7 +5117,14 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_exp
/* Do not allow the array size to exceed the limit for an array
constructor. */
gfc_array_size (source, &size);
if (source->expr_type == EXPR_ARRAY)
{
if (gfc_array_size (source, &size) == FAILURE)
gfc_internal_error ("Failure getting length of a constant array.");
}
else
mpz_init_set_ui (size, 1);
if (mpz_get_si (size)*ncopies > gfc_option.flag_max_array_constructor)
return NULL;