[committed] PR fortran/86551 - ICE on invalid code with select type
Commit Message
Dear Fortranners,
as has been validated by others before and checked again, the underlying
issue of this PR has been fixed before by an unknown commit.
To ensure that it doesn't pop up again, and as suggested in the PR,
I've packaged the testcase and committed as obvious.
Thanks,
Harald
commit 0ec53a3df536f83ec72ef25b045768c06c363f86
Author: Harald Anlauf <anlauf@gmx.de>
Date: Tue Oct 26 22:22:36 2021 +0200
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.
new file mode 100644
@@ -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" }