blob: c1fc52e6014331300ca2c8680e7ed44c64029534 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
program tile
integer i, j, a
!$acc parallel default (shared) ! { dg-error "Unclassifiable OpenACC directive" }
!$acc end parallel ! { dg-error "Unexpected" }
!$acc parallel default (private) ! { dg-error "Unclassifiable OpenACC directive" }
!$acc end parallel ! { dg-error "Unexpected" }
!$acc parallel default (none)
!$acc end parallel
!$acc parallel default (firstprivate) ! { dg-error "Unclassifiable OpenACC directive" }
!$acc end parallel ! { dg-error "Unexpected" }
end program tile
|