diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2010-05-05 14:53:23 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2010-05-05 14:53:23 -0400 |
| commit | e5880243049fd9d3992c86eb2f929abd3514153c (patch) | |
| tree | 24a5a6c449684bf4a2c0701c5f668e03bd7fa60f /gcc/fortran/data.h | |
| parent | 5b042919f71728bc26a8921738bdb0a1b3c680f0 (diff) | |
| download | gcc-e5880243049fd9d3992c86eb2f929abd3514153c.tar.gz | |
re PR fortran/24978 (ICE in gfc_assign_data_value_range)
gcc/fortran/:
2010-05-05 Daniel Franke <franke.daniel@gmail.com>
PR fortran/24978
* gfortran.h: Removed repeat count from constructor, removed
all usages.
* data.h (gfc_assign_data_value_range): Changed return value from
void to gfc_try.
* data.c (gfc_assign_data_value): Add location to constructor element.
(gfc_assign_data_value_range): Call gfc_assign_data_value()
for each element in range. Return early if an error was generated.
* resolve.c (check_data_variable): Stop early if range assignment
generated an error.
gcc/testsuite/:
2010-05-05 Daniel Franke <franke.daniel@gmail.com>
PR fortran/24978
* gfortran.dg/data_invalid.f90: New.
From-SVN: r159076
Diffstat (limited to 'gcc/fortran/data.h')
| -rw-r--r-- | gcc/fortran/data.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/data.h b/gcc/fortran/data.h index 0d31a920e6d..c54c75de9c0 100644 --- a/gcc/fortran/data.h +++ b/gcc/fortran/data.h @@ -20,5 +20,5 @@ along with GCC; see the file COPYING3. If not see void gfc_formalize_init_value (gfc_symbol *); void gfc_get_section_index (gfc_array_ref *, mpz_t *, mpz_t *); gfc_try gfc_assign_data_value (gfc_expr *, gfc_expr *, mpz_t); -void gfc_assign_data_value_range (gfc_expr *, gfc_expr *, mpz_t, mpz_t); +gfc_try gfc_assign_data_value_range (gfc_expr *, gfc_expr *, mpz_t, mpz_t); void gfc_advance_section (mpz_t *, gfc_array_ref *, mpz_t *); |