blob: 99f0dc95b449f1637ec1bc057c49f633e0d28e52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
! OpenACC default (present) clause.
! { dg-additional-options "-fdump-tree-gimple" }
SUBROUTINE F1
IMPLICIT NONE
INTEGER :: F1_A = 2, F1_C = 3
REAL, DIMENSION (2) :: F1_B, F1_D
!$ACC KERNELS DEFAULT (PRESENT)
! { dg-final { scan-tree-dump-times "omp target oacc_kernels default\\(present\\) map\\(force_present:f1_b \[^\\)\]+\\) map\\(force_tofrom:f1_a" 1 "gimple" } }
F1_B(1) = F1_A;
!$ACC END KERNELS
!$ACC PARALLEL DEFAULT (PRESENT)
! { dg-final { scan-tree-dump-times "omp target oacc_parallel default\\(present\\) map\\(force_present:f1_b \[^\\)\]+\\) firstprivate\\(f1_a\\)" 1 "gimple" } }
F1_B(1) = F1_A;
!$ACC END PARALLEL
!$ACC SERIAL DEFAULT (PRESENT)
! { dg-final { scan-tree-dump-times "omp target oacc_serial default\\(present\\) map\\(force_present:f1_b \[^\\)\]+\\) firstprivate\\(f1_a\\)" 1 "gimple" } }
F1_B(1) = F1_A;
!$ACC END SERIAL
!$ACC DATA DEFAULT (PRESENT)
!$ACC KERNELS
! { dg-final { scan-tree-dump-times "omp target oacc_kernels map\\(force_present:f1_d \[^\\)\]+\\) map\\(force_tofrom:f1_c" 1 "gimple" } }
F1_D(1) = F1_C;
!$ACC END KERNELS
!$ACC END DATA
!$ACC DATA DEFAULT (NONE)
!$ACC DATA DEFAULT (PRESENT)
!$ACC PARALLEL DEFAULT (PRESENT)
! { dg-final { scan-tree-dump-times "omp target oacc_parallel default\\(present\\) map\\(force_present:f1_d \[^\\)\]+\\) firstprivate\\(f1_c\\)" 1 "gimple" } }
F1_D(1) = F1_C;
!$ACC END PARALLEL
!$ACC END DATA
!$ACC END DATA
!$ACC DATA DEFAULT (NONE)
!$ACC DATA DEFAULT (NONE)
!$ACC DATA DEFAULT (PRESENT)
!$ACC SERIAL DEFAULT (PRESENT)
! { dg-final { scan-tree-dump-times "omp target oacc_serial default\\(present\\) map\\(force_present:f1_d \[^\\)\]+\\) firstprivate\\(f1_c\\)" 1 "gimple" } }
F1_D(1) = F1_C;
!$ACC END SERIAL
!$ACC END DATA
!$ACC END DATA
!$ACC END DATA
END SUBROUTINE F1
|
