blob: 84590fd883abbd6f1052b45e884966aea9315938 (
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
|
! { dg-do compile }
! { dg-additional-options "-fdump-tree-gimple" }
module main
implicit none
interface
integer function f0 ()
end function
integer function f1 ()
end function
integer function f2 ()
!$omp declare variant (f0) match (construct={dispatch})
!$omp declare variant (f1) match (implementation={vendor(gnu)})
end function
end interface
contains
integer function test ()
integer :: a
!$omp dispatch
a = f2 ()
!$omp dispatch novariants(.TRUE.)
a = f2 ()
!$omp dispatch novariants(.FALSE.)
a = f2 ()
!$omp dispatch nocontext(.TRUE.)
a = f2 ()
!$omp dispatch nocontext(.FALSE.)
a = f2 ()
end function
end module
! { dg-final { scan-tree-dump-times "a = f0 \\\(\\\);" 3 "gimple" } }
! { dg-final { scan-tree-dump-times "a = f1 \\\(\\\);" 1 "gimple" } }
! { dg-final { scan-tree-dump-times "a = f2 \\\(\\\);" 1 "gimple" } }
|
