Fortran: avoid NULL pointer dereference on invalid range in logical SELECT CASE
authorHarald Anlauf <anlauf@gmx.de>
Tue, 16 Nov 2021 20:06:06 +0000 (21:06 +0100)
committerHarald Anlauf <anlauf@gmx.de>
Tue, 16 Nov 2021 20:06:06 +0000 (21:06 +0100)
commit3b3c9932338650c9a402cf1bfbdf7dfc03e185e7
tree8163f9a35e8057e4f1ae72497e0ca340012e4e75
parenta1d2b16202601e597fac1c0e6af6ee8cd09b52c0
Fortran: avoid NULL pointer dereference on invalid range in logical SELECT CASE

gcc/fortran/ChangeLog:

PR fortran/103286
* resolve.c (resolve_select): Choose appropriate range limit to
avoid NULL pointer dereference when generating error message.

gcc/testsuite/ChangeLog:

PR fortran/103286
* gfortran.dg/pr103286.f90: New test.
gcc/fortran/resolve.c
gcc/testsuite/gfortran.dg/pr103286.f90 [new file with mode: 0644]