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
|