Browse Source

fortran fix getting priority argument

Alfredo Buttari 5 years ago
parent
commit
15ff455006
1 changed files with 1 additions and 1 deletions
  1. 1 1
      mpi/src/starpu_mpi_task_insert_fortran.c

+ 1 - 1
mpi/src/starpu_mpi_task_insert_fortran.c

@@ -227,8 +227,8 @@ int _fstarpu_mpi_task_decode_v(struct starpu_codelet *codelet, int me, int nb_no
 		}
 		else if (arg_type==STARPU_PRIORITY)
 		{
-			prio = *(int *)arglist[arg_i];
 			arg_i++;
+			prio = *(int *)arglist[arg_i];
 			/* int* */
 		}
 		/* STARPU_EXECUTE_ON_NODE handled above */