Subversion Repositories openrisc

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