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

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

108 lines
3.2 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] Minor format change to LLVM license lines Replace comment lines containing all dashes with the proper ===-----....----=== markers. Original-commit: flang-compiler/f18@a8936b0d4187a9a9ef43f9d34055a3213beeb9d2 Reviewed-on: https://github.com/flang-compiler/f18/pull/922
2020-01-11 04:12:03 +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
[flang] C_F_POINTER Emit INTRINSIC statements in module files Argument checking utility Complete error checking Original-commit: flang-compiler/f18@9c6a88f0482c1f222b37e0cc548c822f80ad00e7 Reviewed-on: https://github.com/flang-compiler/f18/pull/896
2019-12-26 04:29:50 +08:00
use __Fortran_builtins, only: &
c_f_pointer => __builtin_c_f_pointer, &
c_ptr => __builtin_c_ptr, &
[flang] Implement STORAGE_SIZE(), SIZEOF(), C_SIZEOF() STORAGE_SIZE() is a standard inquiry intrinsic (size in bits of an array element of the same type as the argument); SIZEOF() is a common extension that returns the size in bytes of its argument; C_SIZEOF() is a renaming of SIZEOF() in module ISO_C_BINDING. STORAGE_SIZE() and SIZEOF() are implemented via rewrites to expressions; these expressions will be constant when the necessary type parameters and bounds are also constant. Code to calculate the sizes of types (with and without alignment) was isolated into Evaluate/type.* and /characteristics.*. Code in Semantics/compute-offsets.* to calculate sizes and alignments of derived types' scopes was exposed so that it can be called at type instantiation time (earlier than before) so that these inquiry intrinsics could be called from specification expressions. Differential Revision: https://reviews.llvm.org/D93322
2020-12-16 03:06:44 +08:00
c_funptr => __builtin_c_funptr, &
c_sizeof => sizeof
[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] Implement derived type description table encoding Define Fortran derived types that describe the characteristics of derived types, and instantiations of parameterized derived types, that are of relevance to the runtime language support library. Define a suite of corresponding C++ structure types for the runtime library to use to interpret instances of the descriptions. Create instances of these description types in Semantics as static initializers for compiler-created objects in the scopes that define or instantiate user derived types. Delete obsolete code from earlier attempts to package runtime type information. Differential Revision: https://reviews.llvm.org/D92802
2020-12-08 06:46:24 +08:00
type(c_ptr), parameter :: c_null_ptr = c_ptr(0)
type(c_funptr), parameter :: c_null_funptr = c_funptr(0)
[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
! 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, &
[flang] Implement STORAGE_SIZE(), SIZEOF(), C_SIZEOF() STORAGE_SIZE() is a standard inquiry intrinsic (size in bits of an array element of the same type as the argument); SIZEOF() is a common extension that returns the size in bytes of its argument; C_SIZEOF() is a renaming of SIZEOF() in module ISO_C_BINDING. STORAGE_SIZE() and SIZEOF() are implemented via rewrites to expressions; these expressions will be constant when the necessary type parameters and bounds are also constant. Code to calculate the sizes of types (with and without alignment) was isolated into Evaluate/type.* and /characteristics.*. Code in Semantics/compute-offsets.* to calculate sizes and alignments of derived types' scopes was exposed so that it can be called at type instantiation time (earlier than before) so that these inquiry intrinsics could be called from specification expressions. Differential Revision: https://reviews.llvm.org/D93322
2020-12-16 03:06:44 +08:00
c_size_t = kind(c_sizeof(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
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
[flang] C_F_POINTER Emit INTRINSIC statements in module files Argument checking utility Complete error checking Original-commit: flang-compiler/f18@9c6a88f0482c1f222b37e0cc548c822f80ad00e7 Reviewed-on: https://github.com/flang-compiler/f18/pull/896
2019-12-26 04:29:50 +08:00
if (c_ptr_1%__address == c_null_ptr%__address) then
[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
c_associated = .false.
else if (present(c_ptr_2)) then
[flang] C_F_POINTER Emit INTRINSIC statements in module files Argument checking utility Complete error checking Original-commit: flang-compiler/f18@9c6a88f0482c1f222b37e0cc548c822f80ad00e7 Reviewed-on: https://github.com/flang-compiler/f18/pull/896
2019-12-26 04:29:50 +08:00
c_associated = c_ptr_1%__address == c_ptr_2%__address
[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
else
c_associated = .true.
end if
end function c_associated
[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
[flang] Repair C_LOC Original-commit: flang-compiler/f18@dc1c95277dd6161ce2d13f971ca91cce3e771e8a Reviewed-on: https://github.com/flang-compiler/f18/pull/1061 Tree-same-pre-rewrite: false
2020-03-12 02:00:36 +08:00
type(*), dimension(..), intent(in) :: x
[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
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
end module iso_c_binding