77 lines
2.1 KiB
Fortran
77 lines
2.1 KiB
Fortran
integer function char_select (s)
|
|
character(len=*), intent(in) :: s
|
|
|
|
select case(s)
|
|
case ("foo")
|
|
char_select = 1
|
|
case ("bar", "gee")
|
|
char_select = 2
|
|
case ("111", "999")
|
|
char_select = 3
|
|
case ("1024", "1900")
|
|
char_select = 4
|
|
case ("12", "17890")
|
|
char_select = 5
|
|
case default
|
|
char_select = -1
|
|
end select
|
|
end function char_select
|
|
|
|
integer function char_select2 (s)
|
|
character(len=*), intent(in) :: s
|
|
|
|
char_select2 = -1
|
|
select case(s)
|
|
case ("foo")
|
|
char_select2 = 1
|
|
case ("bar", "gee")
|
|
char_select2 = 2
|
|
case ("111", "999")
|
|
char_select2 = 3
|
|
case ("1024", "1900")
|
|
char_select2 = 4
|
|
case ("12", "17890")
|
|
char_select2 = 5
|
|
end select
|
|
end function char_select2
|
|
|
|
|
|
program test
|
|
interface
|
|
integer function char_select (s)
|
|
character(len=*), intent(in) :: s
|
|
end function char_select
|
|
integer function char_select2 (s)
|
|
character(len=*), intent(in) :: s
|
|
end function char_select2
|
|
end interface
|
|
|
|
if (char_select("foo") /= 1) call abort
|
|
if (char_select("foo ") /= 1) call abort
|
|
if (char_select("foo2 ") /= -1) call abort
|
|
if (char_select("bar") /= 2) call abort
|
|
if (char_select("gee") /= 2) call abort
|
|
if (char_select("000") /= -1) call abort
|
|
if (char_select("101") /= -1) call abort
|
|
if (char_select("109") /= -1) call abort
|
|
if (char_select("111") /= 3) call abort
|
|
if (char_select("254") /= -1) call abort
|
|
if (char_select("999") /= 3) call abort
|
|
if (char_select("9989") /= -1) call abort
|
|
if (char_select("1882") /= -1) call abort
|
|
|
|
if (char_select2("foo") /= 1) call abort
|
|
if (char_select2("foo ") /= 1) call abort
|
|
if (char_select2("foo2 ") /= -1) call abort
|
|
if (char_select2("bar") /= 2) call abort
|
|
if (char_select2("gee") /= 2) call abort
|
|
if (char_select2("000") /= -1) call abort
|
|
if (char_select2("101") /= -1) call abort
|
|
if (char_select2("109") /= -1) call abort
|
|
if (char_select2("111") /= 3) call abort
|
|
if (char_select2("254") /= -1) call abort
|
|
if (char_select2("999") /= 3) call abort
|
|
if (char_select2("9989") /= -1) call abort
|
|
if (char_select2("1882") /= -1) call abort
|
|
end program test
|