diff options
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 6cddb3c..0d04d65 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -1,5 +1,5 @@ /* Supporting functions for resolving DATA statement. - Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 + Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. Contributed by Lifang Zeng <zlf605@hotmail.com> @@ -46,7 +46,6 @@ get_array_index (gfc_array_ref *ar, mpz_t *offset) { gfc_expr *e; int i; - gfc_try re; mpz_t delta; mpz_t tmp; @@ -56,7 +55,7 @@ get_array_index (gfc_array_ref *ar, mpz_t *offset) for (i = 0; i < ar->dimen; i++) { e = gfc_copy_expr (ar->start[i]); - re = gfc_simplify_expr (e, 1); + gfc_simplify_expr (e, 1); if ((gfc_is_constant_expr (ar->as->lower[i]) == 0) || (gfc_is_constant_expr (ar->as->upper[i]) == 0) |