diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2024-04-23 10:22:48 +0100 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2024-04-23 10:22:48 +0100 |
| commit | ca00bf02dcc37f9ff1028ca1d90e8b8d95d69683 (patch) | |
| tree | 49302c028ccb1da1838817888c4852ee3c8ed0ac | |
| parent | 18e8e55487238237f37f621668fdee316624981a (diff) | |
| download | gcc-ca00bf02dcc37f9ff1028ca1d90e8b8d95d69683.zip gcc-ca00bf02dcc37f9ff1028ca1d90e8b8d95d69683.tar.gz gcc-ca00bf02dcc37f9ff1028ca1d90e8b8d95d69683.tar.bz2 | |
Fortran: Check that the ICE does not reappear [PR102597]
2024-04-23 Paul Thomas <pault@gcc.gnu.org>
gcc/testsuite/
PR fortran/102597
* gfortran.dg/pr102597.f90: New test.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr102597.f90 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr102597.f90 b/gcc/testsuite/gfortran.dg/pr102597.f90 new file mode 100644 index 0000000..c2d875f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr102597.f90 @@ -0,0 +1,9 @@ +! { dg-do compile } +! Check that PR102597 does not resurface. Regression caused ICE at associate +! statement. +! Contributed by Gerhard Steinmetz <gscfq@t-online.de> +program p + use iso_fortran_env + associate (y => (compiler_version)) ! { dg-error "is a procedure name" } + end associate +end |