diff mbox series

[committed] PR fortran/86551 - ICE on invalid code with select type

Message ID trinity-5df852b8-c085-400e-9c39-78f9fe9dc410-1635280086430@3c-app-gmx-bs16
State Committed
Commit 0ec53a3df536f83ec72ef25b045768c06c363f86
Headers
Series [committed] PR fortran/86551 - ICE on invalid code with select type |

Commit Message

Harald Anlauf Oct. 26, 2021, 8:28 p.m. UTC 
  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.
diff mbox series

Patch

diff --git a/gcc/testsuite/gfortran.dg/pr86551.f90 b/gcc/testsuite/gfortran.dg/pr86551.f90
new file mode 100644
index 00000000000..d96e17a1884
--- /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" }