diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-03-16 19:20:15 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-03-16 19:20:15 +0000 |
| commit | 299ab1b2a13bc34d8dd205a4762e81e627b8ba1f (patch) | |
| tree | 1ccddb1cff7d4f852b35b8b7c8044da89497baf2 /gcc/fortran | |
| parent | 534d990b353fad0828841d1aa8630ccd0302cb21 (diff) | |
| download | gcc-299ab1b2a13bc34d8dd205a4762e81e627b8ba1f.zip gcc-299ab1b2a13bc34d8dd205a4762e81e627b8ba1f.tar.gz gcc-299ab1b2a13bc34d8dd205a4762e81e627b8ba1f.tar.bz2 | |
re PR fortran/69395 (ICE on declaring array with more than 7 dimensions+codimensions)
2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/69395
* decl.c (merge_array_spec): Correct the error condition.
2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/69395
* gfortran.dg/pr69395.f90: Add test for max dimensions
From-SVN: r258607
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 818c50f..77a6a8c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/69395 + * decl.c (merge_array_spec): Correct the error condition. + 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/78741 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 64199a96..1047525 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -871,7 +871,7 @@ merge_array_spec (gfc_array_spec *from, gfc_array_spec *to, bool copy) } } - if (to->rank + to->corank >= GFC_MAX_DIMENSIONS) + if (to->rank + to->corank > GFC_MAX_DIMENSIONS) { gfc_error ("Sum of array rank %d and corank %d at %C exceeds maximum " "allowed dimensions of %d", |