gcc-4.9/gcc/testsuite/gfortran.dg/select_char_2.f90


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" } }