Magic-Mirror/llvm-capstone
1
0
Fork 0
mirror of https://github.com/capstone-engine/llvm-capstone.git synced 2025-02-14 06:29:38 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

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

Browse Source 
Original-commit: flang-compiler/f18@103ed895fe
Reviewed-on: https://github.com/flang-compiler/f18/pull/660
This commit is contained in:
Steve Scalpone 2019-08-14 10:36:29 -07:00
parent 7b17a67190
commit da480fc6ce
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
flang/module/iso_c_binding.f90
View File

@ -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