blob: 910d3939a4a35a0c1e37ae4f32fd4129965b8f88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
!
! PR 56081: [4.7/4.8 Regression] Segfault ICE on select with bad case
!
! Contributed by Richard L Lozes <richard@lozestech.com>
implicit none
integer :: a(4)
select case(a) ! { dg-error "must be a scalar expression" }
case (0)
end select
end
|
