blob: a1ae97d0129540558fc9389d2a23199a6e7cb5e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
program test
integer a, b(100)
!$acc parallel firstprivate (a, b)
!$acc end parallel
!$acc parallel firstprivate (b(10:20)) ! { dg-error "Syntax error in OpenMP variable list" }
!$acc end parallel ! { dg-error "Unexpected !\\\$ACC END PARALLEL statement" }
!$acc serial firstprivate (a, b)
!$acc end serial
!$acc serial firstprivate (b(10:20)) ! { dg-error "Syntax error in OpenMP variable list" }
!$acc end serial ! { dg-error "Unexpected !\\\$ACC END SERIAL statement" }
end program test
|
