1! { dg-do compile } 2! { dg-additional-options "-fopenmp" } 3 4module test 5contains 6 subroutine ichi 7 implicit none 8 integer :: i 9 !$acc parallel 10 !$omp do ! { dg-error "cannot be specified" } 11 do i = 1,5 12 enddo 13 !$acc end parallel 14 end subroutine ichi 15 16 subroutine ni 17 implicit none 18 integer :: i 19 !$omp parallel 20 !$acc loop ! { dg-error "cannot be specified" } 21 do i = 1,5 22 enddo 23 !$omp end parallel 24 end subroutine ni 25 26 subroutine san 27 implicit none 28 integer :: i 29 !$omp do 30 !$acc loop ! { dg-error "Unexpected" } 31 do i = 1,5 32 enddo 33 end subroutine san 34 35 subroutine yon 36 implicit none 37 integer :: i 38 !$acc loop 39 !$omp do ! { dg-error "Expected DO loop" } 40 do i = 1,5 41 enddo 42 end subroutine yon 43 44 subroutine go 45 implicit none 46 integer :: i, j 47 48 !$omp parallel 49 do i = 1,5 50 !$acc kernels ! { dg-error "cannot be specified" } 51 do j = 1,5 52 enddo 53 !$acc end kernels 54 enddo 55 !$omp end parallel 56 end subroutine go 57 58 subroutine roku 59 implicit none 60 61 !$acc data 62 !$omp parallel ! { dg-error "cannot be specified" } 63 !$omp end parallel 64 !$acc end data 65 end subroutine roku 66 67 subroutine nana 68 !$acc parallel & 69 !$omp do ! { dg-error "Wrong OpenACC continuation" } 70 71 !$omp parallel & 72 !$acc loop ! { dg-error "Wrong OpenMP continuation" } 73 end subroutine nana 74end module test 75