diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-12-20 22:01:05 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-12-22 19:34:20 +0100 |
| commit | 5474092c9afbd76cbd457facce3757d8d2fad07b (patch) | |
| tree | de2451b1cfb440bb987eb8e72abe35d04adbf4d0 /gcc/fortran/match.c | |
| parent | 9c1ce17bc4aed37bc42bbe47210c562ea4fa6864 (diff) | |
| download | gcc-5474092c9afbd76cbd457facce3757d8d2fad07b.zip gcc-5474092c9afbd76cbd457facce3757d8d2fad07b.tar.gz gcc-5474092c9afbd76cbd457facce3757d8d2fad07b.tar.bz2 | |
Fortran: CASE selector expressions must be scalar
gcc/fortran/ChangeLog:
PR fortran/103776
* match.c (match_case_selector): Reject expressions in CASE
selector which are not scalar.
gcc/testsuite/ChangeLog:
PR fortran/103776
* gfortran.dg/select_10.f90: New test.
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 52bc5af..617fb35 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -6088,6 +6088,19 @@ match_case_selector (gfc_case **cp) } } + if (c->low && c->low->rank != 0) + { + gfc_error ("Expression in CASE selector at %L must be scalar", + &c->low->where); + goto cleanup; + } + if (c->high && c->high->rank != 0) + { + gfc_error ("Expression in CASE selector at %L must be scalar", + &c->high->where); + goto cleanup; + } + *cp = c; return MATCH_YES; |