Skip to content

Initializing len for Fortran DRB071 #157

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
sbrantq wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Initializing len for Fortran DRB071 #157

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2023cd9
init len
sbrantq Aug 1, 2025
07dca57
init lock
sbrantq Aug 1, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,6 +14,8 @@ program DRB071_targetparallelfor_orig_no
integer :: i, len
integer, dimension(:), allocatable :: a

len = 1000

allocate(a(len))

do i = 1, len
Expand Down
2 changes: 2 additions & 0 deletions micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,8 @@ program DRB152_missinglock2_orig_gpu_no
integer :: var, i
var = 0

call omp_init_lock (lck)

!$omp target map(tofrom:var) device(0)
!$omp teams num_teams(1)
!$omp distribute parallel do
Expand Down