Skip to content

Commit 15b6c29

Browse files
committed
[OpenMP][Flang]Fix some of the Fortan OpenMP Offloading tests
target_map_common_block2.f90 - Fix the extra space in the print message. - #67164 fixes this. So moving it outside of failing and also removing XFAIL marker. basic-target-region-3D-array.f90 - Corrected the check to account for the new lines printed. Depends on #67319
1 parent edea974 commit 15b6c29

File tree

2 files changed

+12
-6
lines changed

2 files changed

+12
-6
lines changed

openmp/libomptarget/test/offloading/fortran/basic-target-region-3D-array.f90

Lines changed: 10 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ program main
2323
end do
2424

2525
i = 1
26-
j = 1
26+
j = 1
2727
k = 1
2828

2929
!$omp target map(tofrom:x, counter) map(to: i, j, k, i2, j2, k2)
@@ -50,5 +50,12 @@ program main
5050
end do
5151
end do
5252
end program main
53-
54-
! CHECK: 1 2 3 4 5 6 7 8
53+
54+
! CHECK: 1
55+
! CHECK: 2
56+
! CHECK: 3
57+
! CHECK: 4
58+
! CHECK: 5
59+
! CHECK: 6
60+
! CHECK: 7
61+
! CHECK: 8

openmp/libomptarget/test/offloading/fortran/failing/target_map_common_block2.f90 renamed to openmp/libomptarget/test/offloading/fortran/target_map_common_block2.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,19 +7,18 @@
77
! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
88

99
! RUN: %libomptarget-compile-fortran-run-and-check-generic
10-
! XFAIL: *
1110

1211
program main
1312
use omp_lib
1413
integer :: tmp, var4
1514
common var4
1615
var4 = 24
1716
tmp = 12
18-
print *, "var4 before target = ", var4
17+
print *, "var4 before target =", var4
1918
!$omp target map(tofrom:var4)
2019
var4 = tmp
2120
!$omp end target
22-
print *, "var4 after target = ", var4
21+
print *, "var4 after target =", var4
2322
end program
2423

2524
! CHECK: var4 before target = 24

0 commit comments

Comments
 (0)