blob: e75a7abd56e10c01e0f4bdc1cc03c4b9a827434f (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
!
! PR 58185: [4.8/4.9 Regression] [OOP] ICE when selector in SELECT TYPE is non-polymorphic
!
! Contributed by John <jwmwalrus@gmail.com>
integer :: array
select type (a => array) ! { dg-error "Selector shall be polymorphic" }
end select
end
|