From c77b5b3cc40d2b9aa323b95f21a9d12eb1ec5b3a Mon Sep 17 00:00:00 2001 From: burnus Date: Sat, 6 Jun 2009 21:09:57 +0000 Subject: 2009-06-06 Daniel Franke PR fortran/37203 * simplify.c (gfc_simplify_reshape): Fixed reshaping of empty * arrays without padding. 2009-06-06 Daniel Franke PR fortran/37203 * reshape_zerosize_2.f90: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148238 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/simplify.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/simplify.c') diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 09cf2978188..737f299cc88 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -3808,7 +3808,7 @@ gfc_simplify_reshape (gfc_expr *source, gfc_expr *shape_exp, for (i = 0; i < rank; i++) x[i] = 0; - for (;;) + while (nsource > 0 || npad > 0) { /* Figure out which element to extract. */ mpz_set_ui (index, 0); -- cgit v1.2.1