get_compiler_name Function

private function get_compiler_name()

Returns the name of the compiler used

Type Bound

runtime_info_type

Arguments

None

Return Value character(len=9)


Contents

Source Code

get_compiler_name

Source Code

  function get_compiler_name()
    implicit none
    character(len=9) :: get_compiler_name
    get_compiler_name='unknown'
#if FCOMPILER == _PGI_
    get_compiler_name='pgi'
#elif FCOMPILER == _INTEL_
    get_compiler_name='intel'
#elif FCOMPILER == _IFX_
    get_compiler_name='ifx'
#elif FCOMPILER == _GFORTRAN_
    get_compiler_name='gfortran'
#elif FCOMPILER == _XL_
    get_compiler_name='xl'
#elif FCOMPILER == _NAG_
    get_compiler_name='nag'
#elif FCOMPILER == _CRAY_
    get_compiler_name='cray'
#elif FCOMPILER == _G95_
    get_compiler_name='g95'
#elif FCOMPILER == _PATHSCALE_
    get_compiler_name='pathscale'
#elif FCOMPILER == _LAHEY_
    get_compiler_name='lahey'
#elif FCOMPILER == _ABSOFT_
    get_compiler_name='absoft'
#elif FCOMPILER == _ALPHA_
    get_compiler_name='alpha'
#elif FCOMPILER == _SUN_
    get_compiler_name='sun'
#elif FCOMPILER == _FUJ_
    get_compiler_name='fujitsu'
#elif FCOMPILER == _NEC_
    get_compiler_name='nec'
#endif
  end function get_compiler_name