From 7d7212ec2b45c2829dba3bd3319fce109cbe7f01 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Mon, 22 Aug 2011 14:07:30 +0000 Subject: re PR fortran/50050 (Internal compiler error free_expr0 at expr.c:3709 via gfc_done_2) 2011-08-22 Mikael Morin PR fortran/50050 * gfortran.h (gfc_clear_shape, gfc_free_shape): New prototypes. * expr.c (gfc_clear_shape, gfc_free_shape): New functions. (free_expr0): Re-use gfc_free_shape. * trans-expr.c (gfc_trans_subarray_assign): Ditto. * trans-io.c (transfer_array_component): Ditto. * resolve.c (check_host_association): Ditto. (gfc_expr_to_initialize): Don't force the rank value and free the shape after updating the expression. Recalculate shape and rank. (resolve_where_shape): Re-use gfc_clear_shape. * array.c (gfc_array_ref_shape): Ditto. 2011-08-22 Mikael Morin PR fortran/50050 * gfortran.dg/alloc_comp_initializer_3.f90: New test. From-SVN: r177956 --- gcc/fortran/array.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'gcc/fortran/array.c') diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 3074275..aa9cc0c 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -2281,9 +2281,7 @@ gfc_array_ref_shape (gfc_array_ref *ar, mpz_t *shape) } cleanup: - for (d--; d >= 0; d--) - mpz_clear (shape[d]); - + gfc_clear_shape (shape, d); return FAILURE; } -- cgit v1.1