diff options
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; } |