get_preprocess_flag Function

public function get_preprocess_flag(self, source_file) result(flag)

Get the flag that preprocesses a Fortran source with an upper-case .F90 or .F suffix, for compilers that do not do so on their own: NAG runs fpp by suffix only on .ff90, .ff95 and .ff sources

Type Bound

compiler_t

Arguments

Type IntentOptional Attributes Name
class(compiler_t), intent(in) :: self
character(len=*), intent(in) :: source_file

Return Value character(len=:), allocatable


Source Code

function get_preprocess_flag(self, source_file) result(flag)
    class(compiler_t), intent(in) :: self
    character(len=*), intent(in) :: source_file
    character(len=:), allocatable :: flag

    flag = ""
    if (self%id /= id_nag) return
    if (str_ends_with(source_file, ".F90") .or. str_ends_with(source_file, ".F")) flag = flag_nag_fpp
end function get_preprocess_flag