maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/module/iso_c_binding.f90

119 lines
3.6 KiB
Fortran
Raw Normal View History

[flang] Flang relicensing changes for LLVM Apache 2.0 license This changes the license information in many of the flang source files. - Renamed LICENSE to LICENSE.txt. - NVIDIA Copyright lines have been removed. - Initial lines for files follow the LLVM coding convention (file name on the first line; Emacs mode information on the first line). - License references have been replaced with the abridged LLVM text. - License information was removed from the test files. - No file header was placed on test files (these weren't in most LLVM test files). - License information was added to documentation files where it was missing. We did not add brief file summaries to the initial line. See http://llvm.org/docs/DeveloperPolicy.html#new-llvm-project-license-framework for a description of the new license. See http://llvm.org/docs/CodingStandards.html#file-headers for a description of the new LLVM standard file header. Original-commit: flang-compiler/f18@add6cde7244b926ca457a1c74c21fea071b85329 Reviewed-on: https://github.com/flang-compiler/f18/pull/887
2019-12-21 04:52:07 +08:00
!===-- module/iso_c_binding.f90 --------------------------------------------===!
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
!
[flang] Flang relicensing changes for LLVM Apache 2.0 license This changes the license information in many of the flang source files. - Renamed LICENSE to LICENSE.txt. - NVIDIA Copyright lines have been removed. - Initial lines for files follow the LLVM coding convention (file name on the first line; Emacs mode information on the first line). - License references have been replaced with the abridged LLVM text. - License information was removed from the test files. - No file header was placed on test files (these weren't in most LLVM test files). - License information was added to documentation files where it was missing. We did not add brief file summaries to the initial line. See http://llvm.org/docs/DeveloperPolicy.html#new-llvm-project-license-framework for a description of the new license. See http://llvm.org/docs/CodingStandards.html#file-headers for a description of the new LLVM standard file header. Original-commit: flang-compiler/f18@add6cde7244b926ca457a1c74c21fea071b85329 Reviewed-on: https://github.com/flang-compiler/f18/pull/887
2019-12-21 04:52:07 +08:00
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
!
[flang] Flang relicensing changes for LLVM Apache 2.0 license This changes the license information in many of the flang source files. - Renamed LICENSE to LICENSE.txt. - NVIDIA Copyright lines have been removed. - Initial lines for files follow the LLVM coding convention (file name on the first line; Emacs mode information on the first line). - License references have been replaced with the abridged LLVM text. - License information was removed from the test files. - No file header was placed on test files (these weren't in most LLVM test files). - License information was added to documentation files where it was missing. We did not add brief file summaries to the initial line. See http://llvm.org/docs/DeveloperPolicy.html#new-llvm-project-license-framework for a description of the new license. See http://llvm.org/docs/CodingStandards.html#file-headers for a description of the new LLVM standard file header. Original-commit: flang-compiler/f18@add6cde7244b926ca457a1c74c21fea071b85329 Reviewed-on: https://github.com/flang-compiler/f18/pull/887
2019-12-21 04:52:07 +08:00
!------------------------------------------------------------------------------!
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
! See Fortran 2018, clause 18.2
module iso_c_binding
type :: c_ptr
integer(kind=8) :: address
end type c_ptr
type :: c_funptr
integer(kind=8) :: address
end type c_funptr
type(c_ptr), parameter :: c_null_ptr = c_ptr(0)
type(c_funptr), parameter :: c_null_funptr = c_funptr(0)
! Table 18.2 (in clause 18.3.1)
! TODO: Specialize (via macros?) for alternative targets
integer, parameter :: &
c_int8_t = 1, &
c_int16_t = 2, &
c_int32_t = 4, &
c_int64_t = 8, &
c_int128_t = 16 ! anticipating future addition
integer, parameter :: &
c_int = c_int32_t, &
c_short = c_int16_t, &
c_long = c_int64_t, &
c_long_long = c_int64_t, &
c_signed_char = c_int8_t, &
c_size_t = c_long_long, &
c_intmax_t = c_int128_t, &
c_intptr_t = c_size_t, &
c_ptrdiff_t = c_size_t
integer, parameter :: &
c_int_least8_t = c_int8_t, &
c_int_fast8_t = c_int8_t, &
c_int_least16_t = c_int16_t, &
c_int_fast16_t = c_int16_t, &
c_int_least32_t = c_int32_t, &
c_int_fast32_t = c_int32_t, &
c_int_least64_t = c_int64_t, &
c_int_fast64_t = c_int64_t, &
c_int_least128_t = c_int128_t, &
c_int_fast128_t = c_int128_t
integer, parameter :: &
c_float = 4, &
c_double = 8, &
#if __x86_64__
c_long_double = 10
#else
c_long_double = 16
#endif
integer, parameter :: &
c_float_complex = c_float, &
c_double_complex = c_double, &
c_long_double_complex = c_long_double
integer, parameter :: c_bool = 1 ! TODO: or default LOGICAL?
[flang] Use LOC() in iso_c_binding for C_LOC and C_FUNLOC Original-commit: flang-compiler/f18@da02305d1baed2e4862568e00810495e7d5dd65b Reviewed-on: https://github.com/flang-compiler/f18/pull/538 Tree-same-pre-rewrite: false
2019-07-02 07:54:53 +08:00
integer, parameter :: c_char = 1
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
[flang] Define the named constants for the C characters with special semantics in the ISO_C_BINDING intrinsic module. Original-commit: flang-compiler/f18@bee546fdb22bd0a4f0a287e623fcb69ceafeb976 Reviewed-on: https://github.com/flang-compiler/f18/pull/660 Tree-same-pre-rewrite: false
2019-08-14 11:41:43 +08:00
! C characters with special semantics
[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
2019-08-15 01:36:29 +08:00
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)
[flang] Define the named constants for the C characters with special semantics in the ISO_C_BINDING intrinsic module. Original-commit: flang-compiler/f18@bee546fdb22bd0a4f0a287e623fcb69ceafeb976 Reviewed-on: https://github.com/flang-compiler/f18/pull/660 Tree-same-pre-rewrite: false
2019-08-14 11:41:43 +08:00
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
contains
logical function c_associated(c_ptr_1, c_ptr_2)
type(c_ptr), intent(in) :: c_ptr_1
type(c_ptr), intent(in), optional :: c_ptr_2
if (c_ptr_1%address == c_null_ptr%address) then
c_associated = .false.
else if (present(c_ptr_2)) then
c_associated = c_ptr_1%address == c_ptr_2%address
else
c_associated = .true.
end if
end function c_associated
subroutine c_f_pointer(cptr, fptr, shape)
type(c_ptr), intent(in) :: cptr
type(*), pointer, dimension(..), intent(out) :: fptr
! TODO: Use a larger kind for shape than default integer
integer, intent(in), optional :: shape(:) ! size(shape) == rank(fptr)
! TODO: Define, or write in C and change this to an interface
end subroutine c_f_pointer
[flang] Use LOC() in iso_c_binding for C_LOC and C_FUNLOC Original-commit: flang-compiler/f18@da02305d1baed2e4862568e00810495e7d5dd65b Reviewed-on: https://github.com/flang-compiler/f18/pull/538 Tree-same-pre-rewrite: false
2019-07-02 07:54:53 +08:00
function c_loc(x)
type(c_ptr) :: c_loc
type(*), intent(in) :: x
c_loc = c_ptr(loc(x))
end function c_loc
function c_funloc(x)
type(c_funptr) :: c_funloc
external :: x
c_funloc = c_funptr(loc(x))
end function c_funloc
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
! TODO c_f_procpointer
! TODO c_sizeof
end module iso_c_binding