11
11
! PGI pgfortran pgcc -module -I -mp X
12
12
! NVIDIA nvfortran nvc -module -I -mp X
13
13
! LLVM flang flang clang -module -I -mp X
14
- ! LFortran lfortran --- ? ? ? X
14
+ ! LFortran lfortran --- -J -I --openmp X
15
15
! Lahey/Futjitsu lfc ? -M -I -openmp ?
16
16
! NAG nagfor ? -mdir -I -openmp x
17
17
! Cray crayftn craycc -J -I -homp ?
@@ -268,6 +268,8 @@ subroutine get_release_compile_flags(id, flags)
268
268
flag_nag_coarray// &
269
269
flag_nag_pic
270
270
271
+ case (id_lfortran)
272
+ flags = " "
271
273
end select
272
274
end subroutine get_release_compile_flags
273
275
@@ -356,6 +358,9 @@ subroutine get_debug_compile_flags(id, flags)
356
358
flag_nag_backtrace// &
357
359
flag_nag_coarray// &
358
360
flag_nag_pic
361
+
362
+ case (id_lfortran)
363
+ flags = " "
359
364
end select
360
365
end subroutine get_debug_compile_flags
361
366
@@ -370,7 +375,8 @@ function get_include_flag(self, path) result(flags)
370
375
371
376
case (id_caf, id_gcc, id_f95, id_cray, id_nvhpc, id_pgi, id_flang, &
372
377
& 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)
374
380
flags = " -I " // path
375
381
376
382
case (id_intel_classic_windows, id_intel_llvm_windows)
@@ -388,7 +394,7 @@ function get_module_flag(self, path) result(flags)
388
394
case default
389
395
flags = " -module " // path
390
396
391
- case (id_caf, id_gcc, id_f95, id_cray)
397
+ case (id_caf, id_gcc, id_f95, id_cray, id_lfortran )
392
398
flags = " -J " // path
393
399
394
400
case (id_nvhpc, id_pgi, id_flang)
@@ -556,7 +562,7 @@ function get_id(compiler) result(id)
556
562
return
557
563
end if
558
564
559
- if (check_compiler(compiler, " lfort " )) then
565
+ if (check_compiler(compiler, " lfortran " )) then
560
566
id = id_lfortran
561
567
return
562
568
end if
0 commit comments