We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9ef2ac3 commit ee43128Copy full SHA for ee43128
openmp/libomptarget/test/offloading/fortran/basic-target-parallel-region.f90
@@ -0,0 +1,21 @@
1
+! Basic offloading test with a target region
2
+! REQUIRES: flang
3
+! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
4
+! UNSUPPORTED: aarch64-unknown-linux-gnu
5
+! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
6
+! UNSUPPORTED: x86_64-pc-linux-gnu
7
+! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
8
+
9
+! RUN: %libomptarget-compile-fortran-run-and-check-generic
10
+program main
11
+ use omp_lib
12
+ integer :: x
13
14
+ !$omp target parallel map(from: x)
15
+ x = omp_get_num_threads()
16
+ !$omp end target parallel
17
+ print *,"parallel = ", (x .ne. 1)
18
19
+end program main
20
21
+! CHECK: parallel = T
0 commit comments