1111! PGI pgfortran pgcc -module -I -mp X
1212! NVIDIA nvfortran nvc -module -I -mp X
1313! LLVM flang flang clang -module -I -mp X
14- ! LFortran lfortran --- ? ? ? X
14+ ! LFortran lfortran --- -J -I --openmp X
1515! Lahey/Futjitsu lfc ? -M -I -openmp ?
1616! NAG nagfor ? -mdir -I -openmp x
1717! Cray crayftn craycc -J -I -homp ?
@@ -268,6 +268,8 @@ subroutine get_release_compile_flags(id, flags)
268268 flag_nag_coarray// &
269269 flag_nag_pic
270270
271+ case (id_lfortran)
272+ flags = " "
271273 end select
272274end subroutine get_release_compile_flags
273275
@@ -356,6 +358,9 @@ subroutine get_debug_compile_flags(id, flags)
356358 flag_nag_backtrace// &
357359 flag_nag_coarray// &
358360 flag_nag_pic
361+
362+ case (id_lfortran)
363+ flags = " "
359364 end select
360365end subroutine get_debug_compile_flags
361366
@@ -370,7 +375,8 @@ function get_include_flag(self, path) result(flags)
370375
371376 case (id_caf, id_gcc, id_f95, id_cray, id_nvhpc, id_pgi, id_flang, &
372377 & id_intel_classic_nix, id_intel_classic_mac, &
373- & id_intel_llvm_nix, id_lahey, id_nag, id_ibmxl)
378+ & id_intel_llvm_nix, id_lahey, id_nag, id_ibmxl, &
379+ & id_lfortran)
374380 flags = " -I " // path
375381
376382 case (id_intel_classic_windows, id_intel_llvm_windows)
@@ -388,7 +394,7 @@ function get_module_flag(self, path) result(flags)
388394 case default
389395 flags = " -module " // path
390396
391- case (id_caf, id_gcc, id_f95, id_cray)
397+ case (id_caf, id_gcc, id_f95, id_cray, id_lfortran )
392398 flags = " -J " // path
393399
394400 case (id_nvhpc, id_pgi, id_flang)
@@ -556,7 +562,7 @@ function get_id(compiler) result(id)
556562 return
557563 end if
558564
559- if (check_compiler(compiler, " lfort " )) then
565+ if (check_compiler(compiler, " lfortran " )) then
560566 id = id_lfortran
561567 return
562568 end if
0 commit comments