new file mode 100644
@@ -0,0 +1,17 @@
+/* Verify that the location information for clauses is correct. */
+
+void
+check_clause_columns() {
+ int i, j, sum, diff;
+
+ #pragma acc parallel
+ {
+ #pragma acc loop reduction(+:sum)
+ for (i = 1; i <= 10; i++)
+ {
+ #pragma acc loop reduction(-:diff) reduction(-:sum) /* { dg-warning "53: conflicting reduction operations for .sum." } */
+ for (j = 1; j <= 10; j++)
+ sum = 1;
+ }
+ }
+}
new file mode 100644
@@ -0,0 +1,18 @@
+! Verify that the location information for clauses is correct.
+! See also PR 92793.
+
+subroutine check_clause_columns ()
+ implicit none (type, external)
+ integer :: i, j, sum, diff
+
+ !$acc parallel
+ !$acc loop reduction(+:sum)
+ do i = 1, 10
+ !$acc loop reduction(-:diff) reduction(-:sum) ! { dg-warning "47: conflicting reduction operations for .sum." }
+ do j = 1, 10
+ sum = 1
+ end do
+ end do
+ !$acc end parallel
+end subroutine check_clause_columns
+