소스 검색

Fix build

following 4c9b7257 ('fix data tag type in Fortran')
Samuel Thibault 5 년 전
부모
커밋
36c14e8d4b
3개의 변경된 파일5개의 추가작업 그리고 3개의 파일을 삭제
  1. 1 1
      mpi/examples/native_fortran/nf_basic_ring.f90
  2. 2 1
      mpi/examples/native_fortran/nf_mm.f90
  3. 2 1
      mpi/examples/native_fortran/nf_mm_task_build.f90

+ 1 - 1
mpi/examples/native_fortran/nf_basic_ring.f90

@@ -25,7 +25,7 @@ program nf_basic_ring
         integer(c_int),target :: token = 42
         integer(c_int) :: nloops = 32
         integer(c_int) :: loop
-        integer(c_int) :: tag
+        integer(c_int64_t) :: tag
         integer(c_int) :: world
         integer(c_int) :: src,dst
         type(c_ptr) :: token_dh, st

+ 2 - 1
mpi/examples/native_fortran/nf_mm.f90

@@ -31,7 +31,8 @@ program nf_mm
         integer(c_int) :: ret
         integer(c_int) :: row, col
         integer(c_int) :: b_row, b_col
-        integer(c_int) :: mr, tag, rank
+        integer(c_int) :: mr, rank
+        integer(c_int64_t) :: tag
 
         ret = fstarpu_init(C_NULL_PTR)
         if (ret == -19) then

+ 2 - 1
mpi/examples/native_fortran/nf_mm_task_build.f90

@@ -32,7 +32,8 @@ program nf_mm
         integer(c_int) :: ret
         integer(c_int) :: row, col
         integer(c_int) :: b_row, b_col
-        integer(c_int) :: mr, tag, rank
+        integer(c_int) :: mr, rank
+        integer(c_int64_t) :: tag
 
         ret = fstarpu_init(C_NULL_PTR)
         if (ret == -19) then