1! { dg-do compile }
2
3  character(kind=1,len=20) :: s1
4  character(kind=4,len=20) :: s4
5
6  select case (s1)
7    case ("":4_"foo") ! { dg-error "must be of kind" }
8      test = 1
9    case (4_"gee") ! { dg-error "must be of kind" }
10      test = 1
11    case ("bar")
12      test = 1
13    case default
14      test = 4
15  end select
16
17  select case (s4)
18    case ("":4_"foo") ! { dg-error "must be of kind" }
19      test = 1
20    case (4_"gee")
21      test = 1
22    case ("bar") ! { dg-error "must be of kind" }
23      test = 1
24    case default
25      test = 4
26  end select
27
28  select case (s4)
29    case (4_"foo":4_"bar")
30      test = 1
31    case (4_"foo":4_"gee") ! { dg-error "overlaps with CASE label" }
32      test = 1
33    case (4_"foo") ! { dg-error "overlaps with CASE label" }
34      test = 1
35  end select
36
37end
38