Skip to content

Commit e3fff65

Browse files
authored
Disallow C-style escaping for IBM XL compiler (#764)
1 parent df4463d commit e3fff65

File tree

1 file changed

+10
-0
lines changed

1 file changed

+10
-0
lines changed

src/fpm_compiler.f90

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -149,6 +149,9 @@ module fpm_compiler
149149
flag_pgi_check = " -Mbounds -Mchkptr -Mchkstk", &
150150
flag_pgi_warn = " -Minform=inform"
151151

152+
character(*), parameter :: &
153+
flag_ibmxl_backslash = " -qnoescape"
154+
152155
character(*), parameter :: &
153156
flag_intel_backtrace = " -traceback", &
154157
flag_intel_warn = " -warn all", &
@@ -235,6 +238,10 @@ subroutine get_release_compile_flags(id, flags)
235238
flags = &
236239
flag_pgi_backslash
237240

241+
case(id_ibmxl)
242+
flags = &
243+
flag_ibmxl_backslash
244+
238245
case(id_intel_classic_nix)
239246
flags = &
240247
flag_intel_fp//&
@@ -332,6 +339,9 @@ subroutine get_debug_compile_flags(id, flags)
332339
flag_pgi_backslash//&
333340
flag_pgi_check//&
334341
flag_pgi_traceback
342+
case(id_ibmxl)
343+
flags = &
344+
flag_ibmxl_backslash
335345
case(id_intel_classic_nix)
336346
flags = &
337347
flag_intel_warn//&

0 commit comments

Comments
 (0)