get_shared_flag Function

public function get_shared_flag(self) result(shared_flag)

Arguments

Type IntentOptional Attributes Name
class(compiler_t), intent(in) :: self

Return Value character(len=:), allocatable


Source Code

function get_shared_flag(self) result(shared_flag)
    class(compiler_t), intent(in) :: self
    character(len=:), allocatable :: shared_flag

    select case (self%id)
    case default
        shared_flag = "-shared"
    case (id_gcc, id_f95, id_flang, id_flang_new, id_lfortran)
        shared_flag = "-shared"
    case (id_intel_classic_nix, id_intel_llvm_nix, id_pgi, id_nvhpc)
        shared_flag = "-shared"
    case (id_intel_classic_windows, id_intel_llvm_windows)
        shared_flag = "/DLL"
    case (id_nag)
        shared_flag = "-Wl,-shared"
    case (id_ibmxl)
        shared_flag = "-qmkshrobj"
    case (id_cray, id_lahey)
        shared_flag = ""  ! Needs special handling
    end select

end function get_shared_flag