blob: 22af1c76dfc7f0b0870bd08dadf11666e6f0be0e (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
! { dg-do run }
! { dg-options "-O -fdump-tree-original" }
if (foo ('E') .ne. 1) call abort
if (foo ('e') .ne. 1) call abort
if (foo ('f') .ne. 2) call abort
if (foo ('g') .ne. 2) call abort
if (foo ('h') .ne. 2) call abort
if (foo ('Q') .ne. 3) call abort
if (foo (' ') .ne. 4) call abort
if (bar ('e') .ne. 1) call abort
if (bar ('f') .ne. 3) call abort
contains
function foo (c)
character :: c
integer :: foo
select case (c)
case ('E','e')
foo = 1
case ('f':'h ')
foo = 2
case default
foo = 3
case ('')
foo = 4
end select
end function
function bar (c)
character :: c
integer :: bar
select case (c)
case ('ea':'ez')
bar = 2
case ('e')
bar = 1
case default
bar = 3
case ('fd')
bar = 4
end select
end function
end
! { dg-final { scan-tree-dump-not "_gfortran_select_string" "original" } }
! { dg-final { cleanup-tree-dump "original" } }
|
