diff options
| author | Mark Eggleston <markeggleston@gcc.gnu.org> | 2020-04-02 07:31:12 +0100 |
|---|---|---|
| committer | Mark Eggleston <markeggleston@gcc.gnu.org> | 2020-04-02 07:31:12 +0100 |
| commit | 2c54eab5a302c6da015bb39b1a81f6799e45a650 (patch) | |
| tree | 0e65bf74cb366cdcff9a9f5fa4c92194e1a4c1ab /gcc/fortran/ChangeLog | |
| parent | bf1f6d8819ade074271df718f01fd3a5a9dc1b82 (diff) | |
| download | gcc-2c54eab5a302c6da015bb39b1a81f6799e45a650.zip gcc-2c54eab5a302c6da015bb39b1a81f6799e45a650.tar.gz gcc-2c54eab5a302c6da015bb39b1a81f6799e45a650.tar.bz2 | |
fortran : ICE in gfc_resolve_findloc PR93498
ICE occurs when findloc is used with character arguments of different
kinds. If the character kinds are different reject the code.
Original patch provided by Steven G. Kargl <kargl@gcc.gnu.org>.
gcc/fortran/ChangeLog:
PR fortran/93498
* check.c (gfc_check_findloc): If the kinds of the arguments
differ goto label "incompat".
gcc/testsuite/ChangeLog:
PR fortran/93498
* gfortran.dg/pr93498_1.f90: New test.
* gfortran.dg/pr93498_2.f90: New test.
Diffstat (limited to 'gcc/fortran/ChangeLog')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1aa71d8..89de9d0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2020-04-02 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/93498 + * check.c (gfc_check_findloc): If the kinds of the arguments + differ goto label "incompat". + 2020-04-02 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/94030 |