5
5
6
6
module prif
7
7
8
- use iso_c_binding, only: c_int, c_bool, c_intptr_t, c_intmax_t, c_ptr, c_funptr, c_size_t, c_ptrdiff_t, c_null_ptr, c_int64_t
8
+ use iso_c_binding, only: c_int, c_bool, c_intptr_t, c_ptr, c_funptr, c_size_t, c_ptrdiff_t, c_null_ptr, c_int64_t
9
9
10
10
implicit none
11
11
@@ -761,7 +761,7 @@ module subroutine prif_event_post_indirect(image_num, event_var_ptr, stat, errms
761
761
module subroutine prif_event_wait (event_var_ptr , until_count , stat , errmsg , errmsg_alloc )
762
762
implicit none
763
763
type (c_ptr), intent (in ) :: event_var_ptr
764
- integer (c_intmax_t ), intent (in ), optional :: until_count
764
+ integer (c_int64_t ), intent (in ), optional :: until_count
765
765
integer (c_int), intent (out ), optional :: stat
766
766
character (len=* ), intent (inout ), optional :: errmsg
767
767
character (len= :), intent (inout ), allocatable , optional :: errmsg_alloc
@@ -770,14 +770,14 @@ module subroutine prif_event_wait(event_var_ptr, until_count, stat, errmsg, errm
770
770
module subroutine prif_event_query (event_var_ptr , count , stat )
771
771
implicit none
772
772
type (c_ptr), intent (in ) :: event_var_ptr
773
- integer (c_intmax_t ), intent (out ) :: count
773
+ integer (c_int64_t ), intent (out ) :: count
774
774
integer (c_int), intent (out ), optional :: stat
775
775
end subroutine
776
776
777
777
module subroutine prif_notify_wait (notify_var_ptr , until_count , stat , errmsg , errmsg_alloc )
778
778
implicit none
779
779
type (c_ptr), intent (in ) :: notify_var_ptr
780
- integer (c_intmax_t ), intent (in ), optional :: until_count
780
+ integer (c_int64_t ), intent (in ), optional :: until_count
781
781
integer (c_int), intent (out ), optional :: stat
782
782
character (len=* ), intent (inout ), optional :: errmsg
783
783
character (len= :), intent (inout ), allocatable , optional :: errmsg_alloc
@@ -1048,7 +1048,7 @@ module subroutine prif_atomic_ref_logical_indirect(image_num, atom_remote_ptr, v
1048
1048
integer (c_size_t) :: coarray_size
1049
1049
type (c_funptr) :: final_func
1050
1050
type (c_ptr) :: previous_handle = c_null_ptr, next_handle = c_null_ptr
1051
- integer (c_intmax_t ) :: lcobounds(15 ), ucobounds(15 )
1051
+ integer (c_int64_t ) :: lcobounds(15 ), ucobounds(15 )
1052
1052
end type
1053
1053
1054
1054
type, private :: team_data
0 commit comments