[flang] Use ACHAR() instead of the nonstandard backslash escape sequences.

Original-commit: flang-compiler/f18@103ed895fe27ae0f4503a4cf379132392dc14788
Reviewed-on: https://github.com/flang-compiler/f18/pull/660

diff --git a/flang/module/iso_c_binding.f90 b/flang/module/iso_c_binding.f90
index d839082..c909e7f 100644 (file)
--- a/flang/module/iso_c_binding.f90
+++ b/flang/module/iso_c_binding.f90
@@ -75,14 +75,14 @@ module iso_c_binding
   integer, parameter :: c_char = 1
 
   ! C characters with special semantics
-  character(kind=c_char, len=1), parameter :: c_null_char = '\0'
-  character(kind=c_char, len=1), parameter :: c_alert = '\a'
-  character(kind=c_char, len=1), parameter :: c_backspace = '\b'
-  character(kind=c_char, len=1), parameter :: c_form_feed = '\f'
-  character(kind=c_char, len=1), parameter :: c_new_line = '\n'
-  character(kind=c_char, len=1), parameter :: c_carriage_return = '\r'
-  character(kind=c_char, len=1), parameter :: c_horizontal_tab = '\t'
-  character(kind=c_char, len=1), parameter :: c_vertical_tab =  '\v'
+  character(kind=c_char, len=1), parameter :: c_null_char = achar(0)
+  character(kind=c_char, len=1), parameter :: c_alert = achar(7)
+  character(kind=c_char, len=1), parameter :: c_backspace = achar(8)
+  character(kind=c_char, len=1), parameter :: c_form_feed = achar(12)
+  character(kind=c_char, len=1), parameter :: c_new_line = achar(10)
+  character(kind=c_char, len=1), parameter :: c_carriage_return = achar(13)
+  character(kind=c_char, len=1), parameter :: c_horizontal_tab = achar(9)
+  character(kind=c_char, len=1), parameter :: c_vertical_tab =  achar(11)
 
  contains