This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [patch,fortran]PR25057 default initialization and DATA statement conflict
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- To: Fortran List <fortran at gcc dot gnu dot org>
- Cc: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 10 Dec 2006 12:28:30 -0800
- Subject: Re: [patch,fortran]PR25057 default initialization and DATA statement conflict
- References: <457C6AE5.1080004@verizon.net>
Jerry DeLisle wrote:
------------------------------------------------------------------------
Index: data.c
===================================================================
*** data.c (revision 119608)
--- data.c (working copy)
*************** get_array_index (gfc_array_ref * ar, mpz
*** 61,67 ****
if ((gfc_is_constant_expr (ar->as->lower[i]) == 0)
|| (gfc_is_constant_expr (ar->as->upper[i]) == 0)
|| (gfc_is_constant_expr (e) == 0))
! gfc_error ("non-constant array in DATA statement %L", &ar->where);
mpz_set (tmp, e->value.integer);
mpz_sub (tmp, tmp, ar->as->lower[i]->value.integer);
mpz_mul (tmp, tmp, delta);
--- 61,67 ----
if ((gfc_is_constant_expr (ar->as->lower[i]) == 0)
|| (gfc_is_constant_expr (ar->as->upper[i]) == 0)
|| (gfc_is_constant_expr (e) == 0))
! gfc_error ("non-constant array in DATA statement %L", &ar->where);
mpz_set (tmp, e->value.integer);
mpz_sub (tmp, tmp, ar->as->lower[i]->value.integer);
mpz_mul (tmp, tmp, delta);
The above portion is just fixing some whitespace.