- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hi
I am facing a segmentation fault problem when I try to perform asynchronous offload at a later point which I believe is the time when the function returned.
here is the code
functionA real :: WORKN(X,Y,Z) !dir$ offload begin target(MIC:0)signal(1)out(WORKN) do k=1,km . !Lots of code !dir$ end offload end function A functionB real :: Dummy . . ! Do Whatever . . . end function B program run !$OMP PARALLEL DO DEFAULT(SHARED) !this OMP is dummy i.e num_blockblock is 1, can be removed do iblock=1,num_blocks call functionA(iblock) !here is the async offload enddo !$OMP END PARALLEL DO !$OMP PARALLEL DO DEFAULT(SHARED) do iblock=1,num_blocks call functionB(iblock) get segfault when B is running enddo !$OMP END PARALLEL DO end program run
Link Copied
0 Replies

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page