Disallow C-style escaping for IBM XL compiler (#764)

fortran-lang · Sep 30, 2022 · e3fff65 · e3fff65
1 parent df4463d
commit e3fff65
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/fpm_compiler.f90 b/src/fpm_compiler.f90
@@ -149,6 +149,9 @@ module fpm_compiler
     flag_pgi_check = " -Mbounds -Mchkptr -Mchkstk", &
     flag_pgi_warn = " -Minform=inform"
 
+character(*), parameter :: &
+    flag_ibmxl_backslash = " -qnoescape"
+
 character(*), parameter :: &
     flag_intel_backtrace = " -traceback", &
     flag_intel_warn = " -warn all", &
@@ -235,6 +238,10 @@ subroutine get_release_compile_flags(id, flags)
         flags = &
             flag_pgi_backslash
 
+    case(id_ibmxl)
+        flags = &
+            flag_ibmxl_backslash
+
     case(id_intel_classic_nix)
         flags = &
             flag_intel_fp//&
@@ -332,6 +339,9 @@ subroutine get_debug_compile_flags(id, flags)
             flag_pgi_backslash//&
             flag_pgi_check//&
             flag_pgi_traceback
+    case(id_ibmxl)
+        flags = &
+            flag_ibmxl_backslash
     case(id_intel_classic_nix)
         flags = &
             flag_intel_warn//&