gcc/testsuite/gfortran.dg/select_char_3.f90


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