get_compiler_name Function

public function get_compiler_name() result(compiler_name)

Arguments

None

Return Value character(len=:), allocatable


Called by

proc~~get_compiler_name~~CalledByGraph proc~get_compiler_name get_compiler_name proc~output_system_log output_system_log proc~output_system_log->proc~get_compiler_name interface~output_system_log type_output%output_system_log interface~output_system_log->proc~output_system_log

Source Code

    function get_compiler_name() result(compiler_name)
        implicit none
        character(:), allocatable :: compiler_name

#ifdef __GFORTRAN__
        compiler_name = "GNU Fortran Compiler"
#elif defined(__INTEL_COMPILER)
        compiler_name = "Intel Fortran Compiler"
#elif defined(__PGI) || defined(__NVCOMPILER)
        compiler_name = "NVIDIA (PGI) Fortran Compiler"
#else
        compiler_name = "Unknown Compiler"
#endif

    end function get_compiler_name