1      IMPLICIT NONE
2
3      INTEGER DEV
4
5!$ACC PARALLEL
6      DEV = 0
7!$ACC END PARALLEL
8
9!$ACC PARALLEL
10      DEV = 0
11!$ACC END PARALLEL
12
13      END
14