[patch,fortran]PR25057 default initialization and DATA statement conflict

[Jerry DeLisle]

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.