diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-10-26 22:22:36 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-10-26 22:22:36 +0200 |
| commit | 0ec53a3df536f83ec72ef25b045768c06c363f86 (patch) | |
| tree | 542dd702dce435fdfdb03fecb14b74cb6c4ccba9 | |
| parent | 662f64a1f9e2de65982e4d895b3afe72cbf581ba (diff) | |
| download | gcc-0ec53a3df536f83ec72ef25b045768c06c363f86.zip gcc-0ec53a3df536f83ec72ef25b045768c06c363f86.tar.gz gcc-0ec53a3df536f83ec72ef25b045768c06c363f86.tar.bz2 | |
Fortran: error recovery on invalid code with SELECT TYPE
gcc/testsuite/ChangeLog:
PR fortran/86551
* gfortran.dg/pr86551.f90: New test to verify that PR86551 remains
fixed.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr86551.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr86551.f90 b/gcc/testsuite/gfortran.dg/pr86551.f90 new file mode 100644 index 0000000..d96e17a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr86551.f90 @@ -0,0 +1,12 @@ +! { dg-do compile } +! PR fortran/86551 - ICE on invalid code with select type / end select type + +subroutine b + type :: t1 + end type t1 + class(t1) :: c2 + select type (d => c2) + end select type ! { dg-error "Syntax error" } +end ! { dg-error "END SELECT statement expected" } + +! { dg-prune-output "Unexpected end of file" } |