maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Define the named constants for the C characters with 

special semantics in the ISO_C_BINDING intrinsic module.

Original-commit: flang-compiler/f18@bee546fdb2
Reviewed-on: https://github.com/flang-compiler/f18/pull/660
Tree-same-pre-rewrite: false
This commit is contained in:
Steve Scalpone 2019-08-13 20:41:43 -07:00
parent bcaba6e571
commit 7b17a67190
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
flang/module/iso_c_binding.f90
View File

@ -74,6 +74,16 @@ module iso_c_binding
integer, parameter :: c_bool = 1 ! TODO: or default LOGICAL?
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'
contains
logical function c_associated(c_ptr_1, c_ptr_2)