diff options
author | Peter Klausler <pklausler@nvidia.com> | 2023-03-06 14:29:53 -0800 |
---|---|---|
committer | Peter Klausler <pklausler@nvidia.com> | 2023-03-10 09:36:05 -0800 |
commit | 199402c378630be3449d2a006812b9e9f0caa7ce (patch) | |
tree | f42945d8822e0885e4714e498bd14a42bc993d42 /flang/module | |
parent | a1db3e6274cfbf3e5d22de0826384c8ecab84441 (diff) | |
download | llvm-199402c378630be3449d2a006812b9e9f0caa7ce.tar.gz |
[flang] Check dummy arguments of BIND(C) procedures
Declaration checking in semantics was only examining symbols with
explicit BIND(C) attributes; extend it to also check dummy arguments
to such procedures.
Differential Revision: https://reviews.llvm.org/D145746
Diffstat (limited to 'flang/module')
-rw-r--r-- | flang/module/iso_c_binding.f90 | 2 | ||||
-rw-r--r-- | flang/module/omp_lib.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/flang/module/iso_c_binding.f90 b/flang/module/iso_c_binding.f90 index 0fcebc7bd751..68035579ec62 100644 --- a/flang/module/iso_c_binding.f90 +++ b/flang/module/iso_c_binding.f90 @@ -64,7 +64,7 @@ module iso_c_binding c_double_complex = c_double, & c_long_double_complex = c_long_double - integer, parameter :: c_bool = 1 ! TODO: or default LOGICAL? + integer, parameter :: c_bool = 1 integer, parameter :: c_char = 1 ! C characters with special semantics diff --git a/flang/module/omp_lib.h b/flang/module/omp_lib.h index 993b00409af7..d8a9aeb152df 100644 --- a/flang/module/omp_lib.h +++ b/flang/module/omp_lib.h @@ -9,7 +9,7 @@ !dir$ free integer, parameter :: omp_integer_kind = selected_int_kind(9) ! 32-bit int - integer, parameter :: omp_logical_kind = kind(.true.) + integer, parameter :: omp_logical_kind = 1 ! C_BOOL integer, parameter :: omp_sched_kind = omp_integer_kind integer, parameter :: omp_proc_bind_kind = omp_integer_kind |