blob: cf2826475a3f4e0eecc04bd0d900613eaf336812 (
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
|
! Have to enable optimizations, as otherwise builtins won't be expanded.
! { dg-additional-options "-O -fdump-rtl-expand -fno-openacc" }
module openacc_kinds
implicit none
integer, parameter :: acc_device_kind = 4
end module openacc_kinds
module openacc
use openacc_kinds
implicit none
integer (acc_device_kind), parameter :: acc_device_host = 2
interface
function acc_on_device (dev)
use openacc_kinds
logical (4) :: acc_on_device
integer (acc_device_kind), intent (in) :: dev
end function acc_on_device
end interface
end module openacc
logical (4) function f ()
use openacc
implicit none
integer (4), parameter :: dev = 2
f = acc_on_device (dev)
return
end function f
! Without -fopenacc, we're expecting one call.
! { dg-final { scan-rtl-dump-times "\\\(call \[^\\n\]*\\\"acc_on_device" 1 "expand" } }
! { dg-final { cleanup-rtl-dump "expand" } }
|
