compiler_id_name Function

public pure function compiler_id_name(id) result(name)

Convert compiler enum to name (reverse of match_compiler_type)

Arguments

Type IntentOptional Attributes Name
integer(kind=compiler_enum), intent(in) :: id

Return Value character(len=:), allocatable


Source Code

pure function compiler_id_name(id) result(name)
   integer(compiler_enum), intent(in) :: id
   character(len=:), allocatable :: name

   select case (id)
       case(id_gcc);                   name = "gfortran"
       case(id_f95);                   name = "f95"
       case(id_caf);                   name = "caf"
       case(id_intel_classic_nix);     name = "ifort"
       case(id_intel_classic_mac);     name = "ifort"
       case(id_intel_classic_windows); name = "ifort"
       case(id_intel_llvm_nix);        name = "ifx"
       case(id_intel_llvm_windows);    name = "ifx"
       case(id_intel_llvm_unknown);    name = "ifx"
       case(id_pgi);                   name = "pgfortran"
       case(id_nvhpc);                 name = "nvfortran"
       case(id_nag);                   name = "nagfor"
       case(id_flang_classic);         name = "flang"
       case(id_flang);                 name = "flang-new"
       case(id_f18);                   name = "f18"
       case(id_ibmxl);                 name = "xlf90"
       case(id_cray);                  name = "crayftn"
       case(id_lahey);                 name = "lfc"
       case(id_lfortran);              name = "lfortran"
       case (id_all);                  name = "all"
       case default;                   name = "invalid/unknown"
   end select
end function compiler_id_name