1! OpenACC default clause: invalid syntax. 2 3 SUBROUTINE F1 4 IMPLICIT NONE 5 6!$ACC KERNELS DEFAULT ! { dg-error "Failed to match clause" } 7!$ACC END KERNELS ! { dg-error "Unexpected" } 8!$ACC PARALLEL DEFAULT ! { dg-error "Failed to match clause" } 9!$ACC END PARALLEL ! { dg-error "Unexpected" } 10 11!$ACC KERNELS DEFAULT ( ! { dg-error "Failed to match clause" } 12!$ACC END KERNELS ! { dg-error "Unexpected" } 13!$ACC PARALLEL DEFAULT ( ! { dg-error "Failed to match clause" } 14!$ACC END PARALLEL ! { dg-error "Unexpected" } 15 16!$ACC KERNELS DEFAULT (, ! { dg-error "Failed to match clause" } 17!$ACC END KERNELS ! { dg-error "Unexpected" } 18!$ACC PARALLEL DEFAULT (, ! { dg-error "Failed to match clause" } 19!$ACC END PARALLEL ! { dg-error "Unexpected" } 20 21!$ACC KERNELS DEFAULT () ! { dg-error "Failed to match clause" } 22!$ACC END KERNELS ! { dg-error "Unexpected" } 23!$ACC PARALLEL DEFAULT () ! { dg-error "Failed to match clause" } 24!$ACC END PARALLEL ! { dg-error "Unexpected" } 25 26!$ACC KERNELS DEFAULT (,) ! { dg-error "Failed to match clause" } 27!$ACC END KERNELS ! { dg-error "Unexpected" } 28!$ACC PARALLEL DEFAULT (,) ! { dg-error "Failed to match clause" } 29!$ACC END PARALLEL ! { dg-error "Unexpected" } 30 31!$ACC KERNELS DEFAULT (FIRSTPRIVATE) ! { dg-error "Failed to match clause" } 32!$ACC END KERNELS ! { dg-error "Unexpected" } 33!$ACC PARALLEL DEFAULT (FIRSTPRIVATE) ! { dg-error "Failed to match clause" } 34!$ACC END PARALLEL ! { dg-error "Unexpected" } 35 36!$ACC KERNELS DEFAULT (PRIVATE) ! { dg-error "Failed to match clause" } 37!$ACC END KERNELS ! { dg-error "Unexpected" } 38!$ACC PARALLEL DEFAULT (PRIVATE) ! { dg-error "Failed to match clause" } 39!$ACC END PARALLEL ! { dg-error "Unexpected" } 40 41!$ACC KERNELS DEFAULT (SHARED) ! { dg-error "Failed to match clause" } 42!$ACC END KERNELS ! { dg-error "Unexpected" } 43!$ACC PARALLEL DEFAULT (SHARED) ! { dg-error "Failed to match clause" } 44!$ACC END PARALLEL ! { dg-error "Unexpected" } 45 46!$ACC KERNELS DEFAULT (NONE ! { dg-error "Failed to match clause" } 47!$ACC END KERNELS ! { dg-error "Unexpected" } 48!$ACC PARALLEL DEFAULT (NONE ! { dg-error "Failed to match clause" } 49!$ACC END PARALLEL ! { dg-error "Unexpected" } 50 51!$ACC KERNELS DEFAULT (NONE NONE) ! { dg-error "Failed to match clause" } 52!$ACC END KERNELS ! { dg-error "Unexpected" } 53!$ACC PARALLEL DEFAULT (NONE NONE) ! { dg-error "Failed to match clause" } 54!$ACC END PARALLEL ! { dg-error "Unexpected" } 55 56!$ACC KERNELS DEFAULT (NONE, NONE) ! { dg-error "Failed to match clause" } 57!$ACC END KERNELS ! { dg-error "Unexpected" } 58!$ACC PARALLEL DEFAULT (NONE, NONE) ! { dg-error "Failed to match clause" } 59!$ACC END PARALLEL ! { dg-error "Unexpected" } 60 END SUBROUTINE F1 61