Warn if the compiler is not correctly identified

Author: awvwgk

fpm/src/fpm.f90

@@ -9,7 +9,7 @@ module fpm
 use fpm_model, only: fpm_model_t, srcfile_t, show_model, &
                     FPM_SCOPE_UNKNOWN, FPM_SCOPE_LIB, FPM_SCOPE_DEP, &
                     FPM_SCOPE_APP, FPM_SCOPE_EXAMPLE, FPM_SCOPE_TEST
-use fpm_compiler, only: get_module_flags
+use fpm_compiler, only: get_module_flags, is_unknown_compiler
 
 
 use fpm_sources, only: add_executable_sources, add_sources_from_dir
@@ -62,6 +62,11 @@ subroutine build_model(model, settings, package, error)
         model%fortran_compiler = settings%compiler
     endif
 
+    if (is_unknown_compiler(model%fortran_compiler)) then
+        write(*, '(*(a:,1x))') &
+            "<WARN>", "Unknown compiler", model%fortran_compiler, "requested!", &
+            "Defaults for this compiler might be incorrect"
+    end if
     model%output_directory = join_path('build',basename(model%fortran_compiler)//'_'//settings%build_name)
 
     call get_module_flags(model%fortran_compiler, &

fpm/src/fpm_command_line.f90

@@ -156,7 +156,7 @@ subroutine get_command_line_settings(cmd_settings)
             & --target " " &
             & --list F &
             & --all F &
-            & --profile "default"&
+            & --profile " "&
             & --example F&
             & --runner " " &
             & --compiler "'//get_env('FPM_COMPILER','gfortran')//'" &
@@ -206,7 +206,7 @@ subroutine get_command_line_settings(cmd_settings)
 
         case('build')
             call set_args( '&
-            & --profile "default" &
+            & --profile " " &
             & --list F &
             & --show-model F &
             & --compiler "'//get_env('FPM_COMPILER','gfortran')//'" &
@@ -345,7 +345,7 @@ subroutine get_command_line_settings(cmd_settings)
             call printhelp(help_text)
 
         case('install')
-            call set_args('--profile "default" --no-rebuild F --verbose F --prefix " " &
+            call set_args('--profile " " --no-rebuild F --verbose F --prefix " " &
                 & --list F &
                 & --compiler "'//get_env('FPM_COMPILER','gfortran')//'" &
                 & --flag:: " "&
@@ -382,7 +382,7 @@ subroutine get_command_line_settings(cmd_settings)
             call set_args('&
             & --target " " &
             & --list F&
-            & --profile "default"&
+            & --profile " "&
             & --runner " " &
             & --compiler "'//get_env('FPM_COMPILER','gfortran')//'" &
             & --flag:: " "&

fpm/src/fpm_compiler.f90

@@ -29,6 +29,7 @@ module fpm_compiler
 use fpm_model, only: fpm_model_t
 use fpm_filesystem, only: join_path, basename
 implicit none
+public :: is_unknown_compiler
 public :: get_module_flags
 public :: get_default_compile_flags
 public :: get_debug_compile_flags
@@ -323,4 +324,10 @@ function check_compiler(compiler, expected) result(match)
     end if
 end function check_compiler
 
+function is_unknown_compiler(compiler) result(is_unknown)
+    character(len=*), intent(in) :: compiler
+    logical :: is_unknown
+    is_unknown = get_compiler_id(compiler) == id_unknown
+end function is_unknown_compiler
+
 end module fpm_compiler