blob: 2d9b0170ce9d4f6c858cc195d758fe3d8f7b6076 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { dg-do compile }
! PR fortran/103776 - ICE in gfc_compare_string
! Contributed by G.Steinmetz
program p
integer :: n
select case (n)
case ([1]) ! { dg-error "must be scalar" }
end select
select case (n)
case (:[2]) ! { dg-error "must be scalar" }
end select
select case (n)
case (['1']) ! { dg-error "must be scalar" }
end select
select case (n)
case (['1']:2) ! { dg-error "must be scalar" }
end select
select case (n)
case(['1']:['2']) ! { dg-error "must be scalar" }
end select
select case (n)
case(1:['2']) ! { dg-error "must be scalar" }
end select
end
|
