diff options
| author | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-08-23 08:43:26 +0200 |
|---|---|---|
| committer | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-08-23 08:43:26 +0200 |
| commit | 937b87e3a179d8ee969cf157ddd36c1f5cf51698 (patch) | |
| tree | 7ae6afa083a571ba0f630a71fbbc1c41798744ab | |
| parent | 6f891ed07aef779aa34a6ff42dbaa4080beb19ff (diff) | |
| download | fpm-937b87e3a179d8ee969cf157ddd36c1f5cf51698.tar.gz fpm-937b87e3a179d8ee969cf157ddd36c1f5cf51698.zip | |
Update LFortran in compiler settings
| -rw-r--r-- | src/fpm_compiler.f90 | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/fpm_compiler.f90 b/src/fpm_compiler.f90 index 32dfe33..fd582c1 100644 --- a/src/fpm_compiler.f90 +++ b/src/fpm_compiler.f90 @@ -11,7 +11,7 @@ ! PGI pgfortran pgcc -module -I -mp X ! NVIDIA nvfortran nvc -module -I -mp X ! LLVM flang flang clang -module -I -mp X -! LFortran lfortran --- ? ? ? X +! LFortran lfortran --- -J -I --openmp X ! Lahey/Futjitsu lfc ? -M -I -openmp ? ! NAG nagfor ? -mdir -I -openmp x ! Cray crayftn craycc -J -I -homp ? @@ -268,6 +268,8 @@ subroutine get_release_compile_flags(id, flags) flag_nag_coarray//& flag_nag_pic + case(id_lfortran) + flags = "" end select end subroutine get_release_compile_flags @@ -356,6 +358,9 @@ subroutine get_debug_compile_flags(id, flags) flag_nag_backtrace//& flag_nag_coarray//& flag_nag_pic + + case(id_lfortran) + flags = "" end select end subroutine get_debug_compile_flags @@ -370,7 +375,8 @@ function get_include_flag(self, path) result(flags) case(id_caf, id_gcc, id_f95, id_cray, id_nvhpc, id_pgi, id_flang, & & id_intel_classic_nix, id_intel_classic_mac, & - & id_intel_llvm_nix, id_lahey, id_nag, id_ibmxl) + & id_intel_llvm_nix, id_lahey, id_nag, id_ibmxl, & + & id_lfortran) flags = "-I "//path case(id_intel_classic_windows, id_intel_llvm_windows) @@ -388,7 +394,7 @@ function get_module_flag(self, path) result(flags) case default flags = "-module "//path - case(id_caf, id_gcc, id_f95, id_cray) + case(id_caf, id_gcc, id_f95, id_cray, id_lfortran) flags = "-J "//path case(id_nvhpc, id_pgi, id_flang) @@ -556,7 +562,7 @@ function get_id(compiler) result(id) return end if - if (check_compiler(compiler, "lfort")) then + if (check_compiler(compiler, "lfortran")) then id = id_lfortran return end if |