Skip to content

Commit f8e6dd4

Browse files
committed
fix: Replace all remaining c_intmax_t references to c_int64_t
Also replace `intmax_t` to `int64_t` in the C code
1 parent 5bbe1df commit f8e6dd4

File tree

3 files changed

+9
-9
lines changed

3 files changed

+9
-9
lines changed

src/caffeine/caffeine.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -287,7 +287,7 @@ size_t caf_elem_len(CFI_cdesc_t* a_desc)
287287
return a_desc->elem_len;
288288
}
289289

290-
void caf_form_team(gex_TM_t current_team, gex_TM_t* new_team, intmax_t team_number, int new_index)
290+
void caf_form_team(gex_TM_t current_team, gex_TM_t* new_team, int64_t team_number, int new_index)
291291
{
292292
gex_TM_Split(new_team, current_team, team_number, new_index, NULL, 0, GEX_FLAG_TM_NO_SCRATCH);
293293
}

src/caffeine/prif_private_s.f90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -208,11 +208,11 @@ pure function caf_elem_len(a) result(a_elem_len) bind(C)
208208
end function
209209

210210
subroutine caf_form_team(current_team, new_team, team_number, new_index) bind(C)
211-
!! void caf_form_team(gex_TM_t* current_team, gex_TM_t* new_team, intmax_t team_number, int new_index);
212-
import c_ptr, c_int, c_intmax_t
211+
!! void caf_form_team(gex_TM_t* current_team, gex_TM_t* new_team, int64_t team_number, int new_index);
212+
import c_ptr, c_int, c_int64_t
213213
type(c_ptr), intent(in), value :: current_team
214214
type(c_ptr), intent(out) :: new_team
215-
integer(c_intmax_t), intent(in), value :: team_number
215+
integer(c_int64_t), intent(in), value :: team_number
216216
integer(c_int), intent(in), value :: new_index
217217
end subroutine
218218

src/prif.F90

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55

66
module prif
77

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
99

1010
implicit none
1111

@@ -761,7 +761,7 @@ module subroutine prif_event_post_indirect(image_num, event_var_ptr, stat, errms
761761
module subroutine prif_event_wait(event_var_ptr, until_count, stat, errmsg, errmsg_alloc)
762762
implicit none
763763
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
765765
integer(c_int), intent(out), optional :: stat
766766
character(len=*), intent(inout), optional :: errmsg
767767
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
770770
module subroutine prif_event_query(event_var_ptr, count, stat)
771771
implicit none
772772
type(c_ptr), intent(in) :: event_var_ptr
773-
integer(c_intmax_t), intent(out) :: count
773+
integer(c_int64_t), intent(out) :: count
774774
integer(c_int), intent(out), optional :: stat
775775
end subroutine
776776

777777
module subroutine prif_notify_wait(notify_var_ptr, until_count, stat, errmsg, errmsg_alloc)
778778
implicit none
779779
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
781781
integer(c_int), intent(out), optional :: stat
782782
character(len=*), intent(inout), optional :: errmsg
783783
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
10481048
integer(c_size_t) :: coarray_size
10491049
type(c_funptr) :: final_func
10501050
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)
10521052
end type
10531053

10541054
type, private :: team_data

0 commit comments

Comments
 (0)