diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2010-05-13 10:08:05 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2010-05-13 10:08:05 -0400 |
| commit | f2cbd86c34ffc36a36090944d18b86985b22442d (patch) | |
| tree | c4f84c65f11ace6d3113c31c9459bee24b509b97 /gcc/fortran/arith.c | |
| parent | 917ed77360cf86ddf2b45851187f532c137d77d0 (diff) | |
| download | gcc-f2cbd86c34ffc36a36090944d18b86985b22442d.zip gcc-f2cbd86c34ffc36a36090944d18b86985b22442d.tar.gz gcc-f2cbd86c34ffc36a36090944d18b86985b22442d.tar.bz2 | |
re PR fortran/35779 (error pointer wrong in PARAMETER)
gcc/fortran/:
2010-05-13 Daniel Franke <franke.daniel@gmail.com>
PR fortran/35779
* intrinsic.c (gfc_init_expr): Renamed to gfc_init_expr_flag.
Updated all usages.
* expr.c (init_flag): Removed; use gfc_init_expr_flag everywhere.
* array.c (match_array_list): Pass on gfc_init_expr_flag when matching
iterators.
gcc/testsuite/:
2010-05-13 Daniel Franke <franke.daniel@gmail.com>
PR fortran/35779
* gfortran.dg/initialization_25.f90: New.
From-SVN: r159366
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 7a9741b..1e90584 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -784,7 +784,6 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) int power_sign; gfc_expr *result; arith rc; - extern bool init_flag; rc = ARITH_OK; result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where); @@ -899,7 +898,7 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) case BT_REAL: - if (init_flag) + if (gfc_init_expr_flag) { if (gfc_notify_std (GFC_STD_F2003,"Fortran 2003: Noninteger " "exponent in an initialization " @@ -921,7 +920,7 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) case BT_COMPLEX: { - if (init_flag) + if (gfc_init_expr_flag) { if (gfc_notify_std (GFC_STD_F2003,"Fortran 2003: Noninteger " "exponent in an initialization " |