]>
Commit | Line | Data |
---|---|---|
41dbbb37 TS |
1 | ! { dg-do compile } |
2 | ! { dg-additional-options "-fcoarray=single" } | |
ff7a55bf TS |
3 | ! |
4 | ! PR fortran/63861 | |
5 | ! { dg-xfail-if "<http://gcc.gnu.org/PR63861>" { *-*-* } } | |
6 | ! { dg-excess-errors "TODO" } | |
41dbbb37 TS |
7 | |
8 | module test | |
9 | contains | |
10 | subroutine oacc1(a) | |
11 | implicit none | |
12 | integer :: i | |
13 | integer, codimension[*] :: a | |
14 | !$acc declare device_resident (a) | |
15 | !$acc data copy (a) | |
16 | !$acc end data | |
17 | !$acc data deviceptr (a) | |
18 | !$acc end data | |
19 | !$acc parallel private (a) | |
20 | !$acc end parallel | |
21 | !$acc host_data use_device (a) | |
22 | !$acc end host_data | |
23 | !$acc parallel loop reduction(+:a) | |
24 | do i = 1,5 | |
25 | enddo | |
26 | !$acc end parallel loop | |
27 | !$acc parallel loop | |
28 | do i = 1,5 | |
29 | !$acc cache (a) | |
30 | enddo | |
31 | !$acc end parallel loop | |
32 | !$acc update device (a) | |
33 | !$acc update host (a) | |
34 | !$acc update self (a) | |
35 | end subroutine oacc1 | |
36 | end module test |