Преглед на файлове

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