4 ! The unfinished SELECT TYPE statement below was leading to an ICE because
5 ! at the time the statement was rejected, the compiler tried to free
6 ! some symbols that had already been freed with the SELECT TYPE
9 ! Original testcase from Dominique Pelletier <dominique.pelletier@polymtl.ca>
11 module any_list_module
15 public :: anylist, anyitem
21 class(*), allocatable :: value
23 end module any_list_module
26 module my_item_list_module
31 type, extends (anyitem) :: myitem
36 subroutine myprint (this)
37 class (myitem) :: this
39 select type ( v => this % value ! { dg-error "parse error in SELECT TYPE" }
40 end select ! { dg-error "Expecting END SUBROUTINE" }
41 end subroutine myprint
43 end module my_item_list_module