From 00bdf88b63f5a838e1542c621296e80fe3a1af9e Mon Sep 17 00:00:00 2001 From: Henry Jin Date: Thu, 14 Nov 2024 08:08:37 -0800 Subject: [PATCH] fix transparent task example --- tasking/sources/task_dep.14.c | 2 +- tasking/sources/task_dep.14.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tasking/sources/task_dep.14.c b/tasking/sources/task_dep.14.c index 4a89d62..be41d05 100644 --- a/tasking/sources/task_dep.14.c +++ b/tasking/sources/task_dep.14.c @@ -28,7 +28,7 @@ int main() for (int h = 0; h < NUM_VS; h++) { // Generate transparent task to establish dependences // between child tasks that don't share the same parent. - #pragma omp task depend(inout:M[:]) transparent(omp_impex) + #pragma omp task depend(inout:h) transparent(omp_impex) my_func(M, v[h]); } diff --git a/tasking/sources/task_dep.14.f90 b/tasking/sources/task_dep.14.f90 index 0b0793b..7b2b2c2 100644 --- a/tasking/sources/task_dep.14.f90 +++ b/tasking/sources/task_dep.14.f90 @@ -20,7 +20,7 @@ program main do h = 0, NUM_VS-1 ! Generate transparent task to establish dependences ! between child tasks that don't share the same parent. - !$omp task depend(inout:M) transparent(omp_impex) + !$omp task depend(inout:h) transparent(omp_impex) call my_func(M, v(:,h)) !$omp end task end do