diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-06-01 23:04:30 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-06-01 23:04:30 +0200 |
| commit | ff8f45d20f9ea6acc99442ad29212d177f58e8fe (patch) | |
| tree | a3224bd8244ee0696de7fed0824c1baacd0f3c37 /gcc | |
| parent | 3bb8ebb6acfd4ce1ea9d924d73c252a8c4b31e1a (diff) | |
| download | gcc-ff8f45d20f9ea6acc99442ad29212d177f58e8fe.zip gcc-ff8f45d20f9ea6acc99442ad29212d177f58e8fe.tar.gz gcc-ff8f45d20f9ea6acc99442ad29212d177f58e8fe.tar.bz2 | |
Fortran: force error on bad KIND specifier [PR88552]
gcc/fortran/ChangeLog:
PR fortran/88552
* decl.cc (gfc_match_kind_spec): Use error path on missing right
parenthesis.
(gfc_match_decl_type_spec): Use error return when an error occurred
during matching a KIND specifier.
gcc/testsuite/ChangeLog:
PR fortran/88552
* gfortran.dg/pr88552.f90: New test.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/decl.cc | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr88552.f90 | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/decl.cc b/gcc/fortran/decl.cc index 1de2b23..f5d39e2 100644 --- a/gcc/fortran/decl.cc +++ b/gcc/fortran/decl.cc @@ -3366,6 +3366,7 @@ close_brackets: else gfc_error ("Missing right parenthesis at %C"); m = MATCH_ERROR; + goto no_match; } else /* All tests passed. */ @@ -4703,6 +4704,9 @@ get_kind: } m = gfc_match_kind_spec (ts, false); + if (m == MATCH_ERROR) + return MATCH_ERROR; + if (m == MATCH_NO && ts->type != BT_CHARACTER) { m = gfc_match_old_kind_spec (ts); diff --git a/gcc/testsuite/gfortran.dg/pr88552.f90 b/gcc/testsuite/gfortran.dg/pr88552.f90 new file mode 100644 index 0000000..15e1b37 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr88552.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! PR fortran/88552 +! Contributed by G.Steinmetz + +integer(len((c)) :: n ! { dg-error "must be CHARACTER" } +end |