1! { dg-do compile } 2 3module test 4contains 5 subroutine oacc1 6 implicit none 7 integer :: i 8 !$acc declare device_resident (10) ! { dg-error "Syntax error" } 9 !$acc data copy (10) ! { dg-error "Syntax error" } 10 !$acc end data ! { dg-error "Unexpected" } 11 !$acc data deviceptr (10) ! { dg-error "Syntax error" } 12 !$acc end data ! { dg-error "Unexpected" } 13 !$acc data private (10) ! { dg-error "Failed to match clause" } 14 !$acc end data ! { dg-error "Unexpected" } 15 !$acc host_data use_device (10) ! { dg-error "Syntax error" } 16 !$acc end host_data ! { dg-error "Unexpected" } 17 !$acc parallel loop reduction(+:10) ! { dg-error "Syntax error" } 18 do i = 1,5 19 enddo 20 !$acc end parallel loop ! { dg-error "Unexpected" } 21 !$acc parallel loop 22 do i = 1,5 23 !$acc cache (10) ! { dg-error "Syntax error" } 24 enddo 25 !$acc end parallel loop 26 !$acc update device (10) ! { dg-error "Syntax error" } 27 !$acc update host (10) ! { dg-error "Syntax error" } 28 !$acc update self (10) ! { dg-error "Syntax error" } 29 end subroutine oacc1 30end module test 31