summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/select_char_3.f90
blob: f0a7c8741751951f321ad33b091efb84ccf61ca3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
! PR fortran/40206
! { dg-do compile }
! { dg-options "-O2 -Wuninitialized" }

function char2type (char)
  character, intent(in) :: char
  integer :: char2type

  select case (char)
    case ('E','e')
      char2type=1
    case default
      char2type=-1234
  end select
end function