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