diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-04-18 19:21:24 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-04-18 19:21:24 +0200 |
| commit | e84b920c7c572f009e90ab39bab51c715de99c84 (patch) | |
| tree | bf6b6c568e6f3d79086e78008f4e7cd747eee634 /gcc/fortran/array.c | |
| parent | 9c41356cd209d7f8fd8a7a548a291f08a383c768 (diff) | |
| download | gcc-e84b920c7c572f009e90ab39bab51c715de99c84.zip gcc-e84b920c7c572f009e90ab39bab51c715de99c84.tar.gz gcc-e84b920c7c572f009e90ab39bab51c715de99c84.tar.bz2 | |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
2011-04-18 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* array.c (gfc_match_array_ref): Check for too many
* codimensions.
* check.c (gfc_check_image_index): Check number of elements
in SUB argument.
* simplify.c (gfc_simplify_image_index): Remove unreachable
* checks.
2011-04-18 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.dg/coarray_17.f90: New.
* gfortran.dg/coarray_10.f90: Update dg-error.
From-SVN: r172658
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index ff0977a..750d733 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -237,6 +237,12 @@ coarray: corank, ar->codimen); return MATCH_ERROR; } + if (ar->codimen > corank) + { + gfc_error ("Too many codimensions at %C, expected %d not %d", + corank, ar->codimen); + return MATCH_ERROR; + } return MATCH_YES; } |