Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | compiler | |||
character(len=*), | intent(in) | :: | expected |
function check_compiler(compiler, expected) result(match)
character(len=*), intent(in) :: compiler
character(len=*), intent(in) :: expected
logical :: match
match = compiler == expected
if (.not. match) then
match = index(basename(compiler), expected) > 0
end if
end function check_compiler