Skip to content

[OpenMP][flang] Adding more tests for commonblock with target map #71146

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

Merged
merged 1 commit into from
Dec 1, 2023
Merged

[OpenMP][flang] Adding more tests for commonblock with target map #71146

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
55 changes: 51 additions & 4 deletions openmp/libomptarget/test/offloading/fortran/target_map_common_block.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,9 +12,13 @@
! Testing simple variables in common block.
program main
call check_device
call commonblock_simple_with_implicit_type
call commonblock_simple_with_implicit_type_var
call commonblock_simple_with_integer
call commonblock_simple_with_real
call commonblock_simple_to
call commonblock_simple_from
call set_commonblock_named
call use_commonblock_named
end program main

!-----
Expand All @@ -26,14 +30,17 @@ subroutine check_device
!$omp target map(tofrom:devices)
devices(2) = omp_get_device_num()
!$omp end target
print *, omp_get_num_devices()
!CHECK: [[ND:[0-9]+]]
print *, omp_get_default_device()
!CHECK: [[DD:[0-9]+]]
!CHECK: devices: [[ND]] [[DD]]
print *, "devices: ", devices
end subroutine check_device

!CHECK: devices: 1 0

!-----

subroutine commonblock_simple_with_implicit_type
subroutine commonblock_simple_with_implicit_type_var
use omp_lib
common var1
var1 = 10
Expand Down Expand Up @@ -80,3 +87,43 @@ subroutine commonblock_simple_with_real

! CHECK: var3 before target = 12.5
! CHECK: var3 after target = 14.5

! -----

subroutine commonblock_simple_to_from
use omp_lib
integer :: var4, tmp
common var4
var4 = 10
tmp = 20
!$omp target map(to:var4) map(from:tmp)
tmp = var4
var4 = 20
!$omp end target
print *, "var4 after target = ", var4
print *, "tmp after target = ", tmp
end subroutine

! CHECK: var4 after target = 10
! CHECK: tmp after target = 10

! -----

subroutine set_commonblock_named
integer :: var6
common /my_common_block/ var6
var6 = 20
end subroutine

subroutine use_commonblock_named
integer :: var6
common /my_common_block/ var6
print *, "var6 before target = ", var6
!$omp target map(tofrom: var6)
var6 = 30
!$omp end target
print *, "var6 after target = ", var6
end subroutine

! CHECK: var6 before target = 20
! CHECK: var6 after target = 30