WIP: recognize flang as LLVM flang

Author: rouson

src/fpm/manifest/profiles.f90

@@ -197,8 +197,8 @@ subroutine validate_compiler_name(compiler_name, is_valid)
         !> Boolean value of whether compiler_name is valid or not
         logical, intent(out) :: is_valid
         select case(compiler_name)
-          case("gfortran", "ifort", "ifx", "pgfortran", "nvfortran", "flang", "caf", &
-                        & "f95", "lfortran", "lfc", "nagfor", "crayftn", "xlf90", "ftn95")
+          case("gfortran", "ifort", "ifx", "pgfortran", "nvfortran", "flang", "flang-new", "flang-classic", "caf", &
+                        & "f18", "f95", "lfortran", "lfc", "nagfor", "crayftn", "xlf90", "ftn95")
             is_valid = .true.
           case default
             is_valid = .false.
@@ -726,6 +726,11 @@ function get_default_profiles(error) result(default_profiles)
         type(profile_config_t), allocatable :: default_profiles(:)
 
         default_profiles = [ &
+              & new_profile('release', &
+                & 'flang', &
+                & OS_ALL, &
+                & flags=' -O3 -Wall -Warray-bounds', &
+                & is_built_in=.true.), &
               & new_profile('release', &
                 & 'caf', &
                 & OS_ALL, &

src/fpm_compiler.F90

@@ -70,7 +70,7 @@ module fpm_compiler
         id_nvhpc, &
         id_nag, &
         id_flang_classic, &
-        id_flang_new, &
+        id_flang, &
         id_f18, &
         id_ibmxl, &
         id_cray, &
@@ -614,7 +614,7 @@ function get_include_flag(self, path) result(flags)
         flags = "-I "//path
 
     case(id_caf, id_gcc, id_f95, id_cray, id_nvhpc, id_pgi, &
-        & id_flang_classic, id_flang_new, id_f18, &
+        & id_flang_classic, id_flang, id_f18, &
         & id_intel_classic_nix, id_intel_classic_mac, &
         & id_intel_llvm_nix, id_lahey, id_nag, id_ibmxl, &
         & id_lfortran)
@@ -641,7 +641,7 @@ function get_module_flag(self, path) result(flags)
     case(id_nvhpc, id_pgi, id_flang_classic)
         flags = "-module "//path
 
-    case(id_flang_new, id_f18)
+    case(id_flang, id_f18)
         flags = "-module-dir "//path
 
     case(id_intel_classic_nix, id_intel_classic_mac, &
@@ -734,6 +734,7 @@ function get_feature_flag(self, feature) result(flags)
        end select
 
     case("free-form")
+
        select case(self%id)
        case(id_caf, id_gcc, id_f95)
            flags = flag_gnu_free_form
@@ -849,7 +850,7 @@ subroutine get_default_c_compiler(f_compiler, c_compiler)
     case(id_intel_llvm_nix,id_intel_llvm_windows)
         c_compiler = 'icx'
 
-    case(id_flang_classic, id_flang_new, id_f18)
+    case(id_flang_classic, id_flang, id_f18)
         c_compiler='clang'
 
     case(id_ibmxl)
@@ -884,7 +885,7 @@ subroutine get_default_cxx_compiler(f_compiler, cxx_compiler)
     case(id_intel_llvm_nix,id_intel_llvm_windows)
         cxx_compiler = 'icpx'
 
-    case(id_flang_classic, id_flang_new, id_f18)
+    case(id_flang_classic, id_flang, id_f18)
         cxx_compiler='clang++'
 
     case(id_ibmxl)
@@ -997,18 +998,18 @@ function get_id(compiler) result(id)
         return
     end if
 
-    if (check_compiler(compiler, "flang-new")) then
-        id = id_flang_new
+    if (check_compiler(compiler, "flang-classic")) then
+        id = id_flang_classic
         return
     end if
 
-    if (check_compiler(compiler, "f18")) then
-        id = id_f18
+    if (check_compiler(compiler, "flang-new") .or. check_compiler(compiler, "flang")) then
+        id = id_flang
         return
     end if
 
-    if (check_compiler(compiler, "flang")) then
-        id = id_flang_classic
+    if (check_compiler(compiler, "f18")) then
+        id = id_f18
         return
     end if
 
@@ -1752,8 +1753,8 @@ pure function compiler_name(self) result(name)
        case(id_pgi);       name = "pgfortran"
        case(id_nvhpc);     name = "nvfortran"
        case(id_nag);       name = "nagfor"
-       case(id_flang_classic);     name = "flang"
-       case(id_flang_new); name = "flang-new"
+       case(id_flang_classic); name = "flang-classic"
+       case(id_flang);     name = "flang"
        case(id_f18);       name = "f18"
        case(id_ibmxl);     name = "xlf90"
        case(id_cray);      name = "crayftn"