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.

126 lines
3.9 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, &
[flang] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
c_sizeof => sizeof, &
c_loc => __builtin_c_loc
[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] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
interface c_associated
module procedure c_associated_c_ptr
module procedure c_associated_c_funptr
end interface
private :: c_associated_c_ptr, c_associated_c_funptr
! gfortran extensions
integer, parameter :: &
c_float128 = 16, &
c_float128_complex = c_float128
[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
[flang] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
logical function c_associated_c_ptr(c_ptr_1, c_ptr_2)
[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
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] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
c_associated_c_ptr = .false.
[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 if (present(c_ptr_2)) then
[flang] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
c_associated_c_ptr = 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
[flang] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
c_associated_c_ptr = .true.
[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
end if
[flang] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
end function c_associated_c_ptr
[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] Better C_LOC and C_ASSOCIATED in flang/module The place-holding implementation of C_LOC just didn't work when used with our more complete semantic checking, specifically in the case of a polymorphic argument; convert it to an external function with an implicit interface. C_ASSOCIATED needs to be a generic interface with specific implementations for C_PTR and C_FUNPTR. Differential Revision: https://reviews.llvm.org/D94714
2021-01-15 04:49:27 +08:00
logical function c_associated_c_funptr(c_funptr_1, c_funptr_2)
type(c_funptr), intent(in) :: c_funptr_1
type(c_funptr), intent(in), optional :: c_funptr_2
if (c_funptr_1%__address == c_null_ptr%__address) then
c_associated_c_funptr = .false.
else if (present(c_funptr_2)) then
c_associated_c_funptr = c_funptr_1%__address == c_funptr_2%__address
else
c_associated_c_funptr = .true.
end if
end function c_associated_c_funptr
[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_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