* [Patch][Fortran] OpenACC – libgomp/testsuite – use 'stop' and 'dg-do run'
@ 2019-10-25 16:16 Tobias Burnus
0 siblings, 0 replies; only message in thread
From: Tobias Burnus @ 2019-10-25 16:16 UTC (permalink / raw)
To: gcc-patches, fortran, Thomas Schwinge
[-- Attachment #1: Type: text/plain, Size: 1045 bytes --]
This patch is for libgomp/testsuite/libgomp.oacc-fortran/ and does two
things:
* It changes 'call abort' to 'stop 1' (etc.) to make Bernhard R.-F.
happy as it is then doesn't use a vendor extension.
[Note: I kept the abort call in abort-{1,2,}.f90. [NB: stop*.f also
exists.] And: 'call abort()' calls the libc's 'abort()' function while
'stop' prints 'STOP ' and the number to stderr and uses the number as
exit() code. (On some systems like Windows, certain exit codes still
imply aborting.)]
* It adds '{ dg-do run }'. While the default in this directory to _run_
the program, the explicit 'dg-do run' turns it into a torture test.
Quoting ./fortran.exp: "For Fortran we're doing torture testing, as
Fortran has far more tests with arrays etc. that testing just -O0 or -O2
is insufficient, that is typically not the case for C/C++."
Regtested on x86-64-gnu-linux without failures.
I intent to commit it as obvious in the next days, but I am happy to get
an explicit approvals – or to get some comments.
Cheers,
Tobias
[-- Attachment #2: acc-stop-run.diff --]
[-- Type: text/x-patch, Size: 36107 bytes --]
libgomp/
* testsuite/libgomp.oacc-fortran/abort-1.f90: Add 'dg-do run'.
* testsuite/libgomp.oacc-fortran/abort-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/common-block-1.f90:
Use 'stop' not abort().
* testsuite/libgomp.oacc-fortran/common-block-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/common-block-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/data-5.f90: Ditto.
* testsuite/libgomp.oacc-fortran/dummy-array.f90: Ditto.
* testsuite/libgomp.oacc-fortran/gemm-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/gemm.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-2.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/host_data-4.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-independent.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-loop-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-map-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-vector-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-vector-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-1.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-2.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-3.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-4.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-5.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-6.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-private-vars-worker-7.f90:
Ditto.
* testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-12.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-13.f90: Ditto.
* testsuite/libgomp.oacc-fortran/lib-14.f90: Ditto.
* testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90:
Likewise and also add 'dg-do run'.
* testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90:
Ditto.
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90
index fc0af7ff7d8..70c05d7d3c1 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90
index 97a692ba667..6671d46d8b8 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90
index d6c67a0c31a..1a8432cfa86 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90
@@ -0,0 +1 @@
+! { dg-do run }
@@ -1,0 +3 @@
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f
index 75e24509ce9..56f99d4f99b 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f
+++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f
@@ -0,0 +1 @@
+! { dg-do run }
@@ -1,0 +3 @@
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f
index 908d185f40c..565723851b1 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f
+++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f
@@ -0,0 +1 @@
+! { dg-do run }
@@ -1,0 +3 @@
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/common-block-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/common-block-1.f90
index 000d811a059..d77878ede39 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/common-block-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/common-block-1.f90
@@ -18 +18 @@ subroutine check
- if (x(i) .ne. y) call abort
+ if (x(i) .ne. y) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/common-block-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/common-block-2.f90
index 4cfcded244d..018b37d00bb 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/common-block-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/common-block-2.f90
@@ -19 +19 @@ subroutine validate
- if (abs(x(i) - i - z) .ge. 0.0001) call abort
+ if (abs(x(i) - i - z) .ge. 0.0001) stop 1
@@ -138 +138 @@ program main
- if (j .ne. n) call abort
+ if (j .ne. n) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90
index 5a68b485b1e..3c59b66246b 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90
@@ -19 +19 @@ subroutine validate
- if (abs(x(i) - i - z) .ge. 0.0001) call abort
+ if (abs(x(i) - i - z) .ge. 0.0001) stop 1
@@ -138 +138 @@ program main
- if (j .ne. n) call abort
+ if (j .ne. n) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90
index bf323b3f540..eeb06f3c84f 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90
@@ -29,2 +29,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 1
+ if (is_mapped (j) .eqv. .FALSE.) stop 2
@@ -32 +32 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 3
@@ -37 +37 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 4
@@ -40 +40 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 5
@@ -46,2 +46,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 6
+ if (is_mapped (j) .eqv. .FALSE.) stop 7
@@ -49 +49 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 8
@@ -54 +54 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 9
@@ -62 +62 @@ program main
- if (i .ne. 4 .or. j .ne. 2) call abort
+ if (i .ne. 4 .or. j .ne. 2) stop 10
@@ -68,2 +68,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 11
+ if (is_mapped (j) .eqv. .FALSE.) stop 12
@@ -71 +71 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 13
@@ -76 +76 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 14
@@ -79 +79 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 15
@@ -85,2 +85,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 16
+ if (is_mapped (j) .eqv. .FALSE.) stop 17
@@ -88 +88 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 18
@@ -93 +93 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 19
@@ -96 +96 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 20
@@ -102,2 +102,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 21
+ if (is_mapped (j) .eqv. .FALSE.) stop 22
@@ -105 +105 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 23
@@ -110 +110 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 24
@@ -118 +118 @@ program main
- if (i .ne. 4 .or. j .ne. 2) call abort
+ if (i .ne. 4 .or. j .ne. 2) stop 25
@@ -124,2 +124,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 26
+ if (is_mapped (j) .eqv. .FALSE.) stop 27
@@ -127 +127 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 28
@@ -132 +132 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 29
@@ -136 +136 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 30
@@ -138 +138 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 31
@@ -145,2 +145,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 32
+ if (is_mapped (j) .eqv. .FALSE.) stop 33
@@ -151 +151 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 34
@@ -154 +154 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 35
@@ -161,2 +161,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 36
+ if (is_mapped (j) .eqv. .FALSE.) stop 37
@@ -164 +164 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 38
@@ -169 +169 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 39
@@ -173 +173 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 40
@@ -180,2 +180,2 @@ program main
- if (is_mapped (i) .eqv. .FALSE.) call abort
- if (is_mapped (j) .eqv. .FALSE.) call abort
+ if (is_mapped (i) .eqv. .FALSE.) stop 41
+ if (is_mapped (j) .eqv. .FALSE.) stop 42
@@ -183 +183 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 43
@@ -188 +188 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 44
@@ -192 +192 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 45
@@ -199,2 +199,2 @@ program main
- if (is_mapped (i) .eqv. .TRUE.) call abort
- if (is_mapped (j) .eqv. .TRUE.) call abort
+ if (is_mapped (i) .eqv. .TRUE.) stop 46
+ if (is_mapped (j) .eqv. .TRUE.) stop 47
@@ -202 +202 @@ program main
- if (i .ne. -1 .or. j .ne. -2) call abort
+ if (i .ne. -1 .or. j .ne. -2) stop 48
@@ -207 +207 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 49
@@ -210 +210 @@ program main
- if (i .ne. 2 .or. j .ne. 1) call abort
+ if (i .ne. 2 .or. j .ne. 1) stop 50
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90
index 83a540070e6..ec206958e23 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90
@@ -57 +57 @@ program test
- if (d(i) .ne. 4.0) call abort
+ if (d(i) .ne. 4.0) STOP 3
@@ -78 +78 @@ program test
- if (d(i) .ne. 4.0) call abort
+ if (d(i) .ne. 4.0) STOP 4
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-5.f90
index a8843dedc22..c68a2795900 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/data-5.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/data-5.f90
@@ -26,2 +26,2 @@ program refcount_test
- ! abort if it's not.
- if (c .eq. N) call abort
+ ! 'stop' if it's not.
+ if (c .eq. N) stop 1
@@ -40 +40 @@ program refcount_test
- if (h(i) .ne. 0) call abort
+ if (h(i) .ne. 0) stop 2
@@ -46 +46 @@ program refcount_test
- if (acc_is_present (h) .eqv. .FALSE.) call abort
+ if (acc_is_present (h) .eqv. .FALSE.) stop 3
@@ -51 +51 @@ program refcount_test
- if (h(i) .ne. 111) call abort
+ if (h(i) .ne. 111) stop 4
@@ -54 +54 @@ program refcount_test
- if (acc_is_present (h) .eqv. .TRUE.) call abort
+ if (acc_is_present (h) .eqv. .TRUE.) stop 5
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/dummy-array.f90 b/libgomp/testsuite/libgomp.oacc-fortran/dummy-array.f90
index e95563cd406..697d94d52aa 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/dummy-array.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/dummy-array.f90
@@ -16 +16 @@ program main
- if (a(i) .ne. i) call abort
+ if (a(i) .ne. i) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/gemm-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/gemm-2.f90
index fe108732a5f..5fa93642477 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/gemm-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/gemm-2.f90
@@ -77 +77 @@ program main
- if (c(i,j) /= e(i,j)) call abort
+ if (c(i,j) /= e(i,j)) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/gemm.f90 b/libgomp/testsuite/libgomp.oacc-fortran/gemm.f90
index de78148c7b3..9e8915fbb88 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/gemm.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/gemm.f90
@@ -76 +76 @@ program main
- if (d(i,j) /= e(i,j)) call abort
+ if (d(i,j) /= e(i,j)) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/host_data-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/host_data-2.f90
index ff0921863f6..ab70e4e8dea 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/host_data-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/host_data-2.f90
@@ -96 +96 @@ subroutine validate_results (n, a, b)
- if (abs(a(i) - b(i)) > 0.0001) call abort
+ if (abs(a(i) - b(i)) > 0.0001) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/host_data-3.f b/libgomp/testsuite/libgomp.oacc-fortran/host_data-3.f
index 05ed949ee5c..434c18c9889 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/host_data-3.f
+++ b/libgomp/testsuite/libgomp.oacc-fortran/host_data-3.f
@@ -82 +82 @@
- if (abs(a(i) - b(i)) > 0.0001) call abort
+ if (abs(a(i) - b(i)) > 0.0001) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90
index 6e379b5485b..e81a8b292c1 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90
@@ -36 +36 @@ contains
- if (abs(a(i) - b(i)) > 0.0001) call abort
+ if (abs(a(i) - b(i)) > 0.0001) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90
index fdf9409bde4..0a612a57964 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction-2.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
@@ -8 +10 @@ program foo
- if (vol .ne. 4) call abort
+ if (vol .ne. 4) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90
index 912a22b5153..0b939c04fbb 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-acc-loop-reduction.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
@@ -7 +9 @@ program foo
- if (vol .ne. 2) call abort
+ if (vol .ne. 2) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90
index 4ef99cd3475..03b3a115d7b 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-3.f90
@@ -17 +17 @@ dokk: do kk=1,3
- if (any(a(1:3,1:3,1:3).ne.1)) call abort
+ if (any(a(1:3,1:3,1:3).ne.1)) stop 1
@@ -29 +29 @@ doll: do ll=1,3
- if (any(a(1:3,1:3,1:3).ne.2)) call abort
+ if (any(a(1:3,1:3,1:3).ne.2)) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90
index db382a7deb6..15e33603adb 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90
@@ -33 +33 @@ program collapse4
- if (l .neqv. r) call abort
+ if (l .neqv. r) stop 1
@@ -37 +37 @@ program collapse4
- if (a(i, j, k) .ne. b(i, j, k)) call abort
+ if (a(i, j, k) .ne. b(i, j, k)) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-independent.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-independent.f90
index a881fbbe5cc..5a47aca2dba 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-independent.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-independent.f90
@@ -29 +29 @@ subroutine foo (a, b, c)
- if (c(i) .ne. a(i) + b(i)) call abort
+ if (c(i) .ne. a(i) + b(i)) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-1.f90
index edcdc56ec1c..37aa0ac4f63 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-1.f90
@@ -40 +40 @@ program loops
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 1
@@ -64 +64 @@ subroutine check (a, b, n)
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90
index 704ff622854..736ce1791ae 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90
@@ -40 +40 @@ program map
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 1
@@ -114 +114 @@ subroutine check (a, b, n)
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95
index fe1088c0d04..0d353e80131 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-parallel-loop-data-enter-exit.f95
@@ -33 +33 @@ program main
- if (c(i) .ne. a(i) + b(i)) call abort
+ if (c(i) .ne. a(i) + b(i)) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90
index 5119fabadaf..bcc0476d665 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-1.f90
@@ -21 +21 @@ program main
- if (arr(i) .ne. i * 3) call abort
+ if (arr(i) .ne. i * 3) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90
index 5e46287497d..5571059588f 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-2.f90
@@ -26 +26 @@ program main
- if (arr(i) .ne. i + (i / 32) * 2) call abort
+ if (arr(i) .ne. i + (i / 32) * 2) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90
index 5cc3378f459..6abbed7f489 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-3.f90
@@ -26 +26 @@ program main
- if (arr(i) .ne. i + (i / 32) * 2) call abort
+ if (arr(i) .ne. i + (i / 32) * 2) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90
index 1e41555aa1c..d92be2d4f0e 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-gang-6.f90
@@ -34 +34 @@ program main
- if (arr(i) .ne. i + (i / 32) * 13) call abort
+ if (arr(i) .ne. i + (i / 32) * 13) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-1.f90
index 3efd9fe473b..e9c0fb3f130 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-1.f90
@@ -36 +36 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-2.f90
index 1cf3b9818ef..13badb51919 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-vector-2.f90
@@ -33 +33 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-1.f90
index 55e98e05c03..04d732ef410 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-1.f90
@@ -25 +25 @@ program main
- if (arr(i) .ne. i + ieor(i / 32, mod(i, 32) * 3)) call abort
+ if (arr(i) .ne. i + ieor(i / 32, mod(i, 32) * 3)) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-2.f90
index 7924e7f13a6..6c9a6b81c8a 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-2.f90
@@ -32 +32 @@ program main
- if (arr(idx) .ne. idx + ieor(i, j * 3) * k) call abort
+ if (arr(idx) .ne. idx + ieor(i, j * 3) * k) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-3.f90
index 598c6fd7226..fab14c3a953 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-3.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-3.f90
@@ -43 +43 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-4.f90
index 8512d7c3966..71f4a110acb 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-4.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-4.f90
@@ -40 +40 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-5.f90
index c3ebf744578..bb457555a42 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-5.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-5.f90
@@ -43 +43 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-6.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-6.f90
index 2a8a5905895..e169714dd51 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-6.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-6.f90
@@ -44 +44 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-7.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-7.f90
index 7dd1d3da7be..e262c02ac00 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-7.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-private-vars-loop-worker-7.f90
@@ -39 +39 @@ program main
- call abort
+ stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90
index c7a52ed98f6..4b85608f0de 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90
@@ -18 +18 @@ program reduction
- if (red .ne. n) call abort
+ if (red .ne. n) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90
index 901169aa119..760e21f916f 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90
index 4cf62f2728a..efb921065ac 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90
@@ -21 +21 @@ program main
- if (acc_async_test (2) .neqv. .TRUE.) call abort
+ if (acc_async_test (2) .neqv. .TRUE.) stop 1
@@ -26,3 +26,3 @@ program main
- if (acc_async_test (0) .neqv. .TRUE.) call abort
- if (acc_async_test (1) .neqv. .TRUE.) call abort
- if (acc_async_test (2) .neqv. .TRUE.) call abort
+ if (acc_async_test (0) .neqv. .TRUE.) stop 2
+ if (acc_async_test (1) .neqv. .TRUE.) stop 3
+ if (acc_async_test (2) .neqv. .TRUE.) stop 4
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
index da944c35de9..deb2c288604 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
@@ -28,3 +28,3 @@ program main
- if (acc_async_test (1) .neqv. .TRUE.) call abort
- if (acc_async_test (2) .neqv. .TRUE.) call abort
- if (acc_async_test (nprocs + 1) .neqv. .TRUE.) call abort
+ if (acc_async_test (1) .neqv. .TRUE.) stop 1
+ if (acc_async_test (2) .neqv. .TRUE.) stop 2
+ if (acc_async_test (nprocs + 1) .neqv. .TRUE.) stop 3
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-14.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-14.f90
index eb0206ccce1..bf35631c96b 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-14.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-14.f90
@@ -22 +22 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -26 +26 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 1
@@ -29 +29 @@ program main
- if (h(i) /= i) call abort
+ if (h(i) /= i) stop 1
@@ -38 +38 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -42 +42 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 1
@@ -45 +45 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 1
@@ -50 +50 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -60 +60 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 1
@@ -63 +63 @@ program main
- if (h(i) /= i) call abort
+ if (h(i) /= i) stop 1
@@ -68 +68 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -72 +72 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 1
@@ -76 +76 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -80 +80 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-15.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-15.f90
index 3a834dbb22a..cbf7a6eccae 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-15.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-15.f90
@@ -26 +26 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -33 +33 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 2
@@ -42 +42 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 3
@@ -45 +45 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 4
@@ -50 +50 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 4
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-16-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-16-2.f90
index fa76f65912f..ddd557d3be0 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-16-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-16-2.f90
@@ -28 +28 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -37 +37 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 2
@@ -46 +46 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 3
@@ -49 +49 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 4
@@ -56 +56 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 5
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-16.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-16.f90
index 011f9cf31db..ccd1ce6ee18 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-16.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-16.f90
@@ -28 +28 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 1
@@ -37 +37 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 2
@@ -46 +46 @@ program main
- if (acc_is_present (h) .neqv. .TRUE.) call abort
+ if (acc_is_present (h) .neqv. .TRUE.) stop 3
@@ -49 +49 @@ program main
- if (h(i) /= i + i) call abort
+ if (h(i) /= i + i) stop 4
@@ -56 +56 @@ program main
- if (acc_is_present (h) .neqv. .FALSE.) call abort
+ if (acc_is_present (h) .neqv. .FALSE.) stop 5
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f
index 069e07ec035..3c8d8dba3e7 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f
index 47424f14a15..54a781eae69 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90
index 47859508c8f..c0e8f8f540c 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/parallel-loop-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/parallel-loop-1.f90
index 754b833a4ba..676417cfecf 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/parallel-loop-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/parallel-loop-1.f90
@@ -40 +40 @@ program loops
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 1
@@ -75 +75 @@ subroutine check (a, b, n)
- if (a(i) .ne. b(i)) call abort
+ if (a(i) .ne. b(i)) stop 2
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90
index 3f4b9fe070e..d0e7aa1c81b 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr68813.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr68813.f90
index 735350f6aac..c4552053e28 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/pr68813.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/pr68813.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr70289.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr70289.f90
index 63bde44100d..a516f9f32f6 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/pr70289.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/pr70289.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90
index c8a7922a415..42dc3193546 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reference-reductions.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reference-reductions.f90
index a684d07977c..b25430e59ed 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/reference-reductions.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/reference-reductions.f90
@@ -37 +37 @@ program test
- if (r .ne. 1010) call abort ()
+ if (r .ne. 1010) stop 1
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90
index 8a2ec2cc97e..b67a8f482f4 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90
index 914da5b4062..1cc6dd68820 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90
@@ -0,0 +1,2 @@
+! { dg-do run }
+!
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/vector-routine.f90 b/libgomp/testsuite/libgomp.oacc-fortran/vector-routine.f90
index 1edcee48677..88b9ab411d4 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/vector-routine.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/vector-routine.f90
@@ -24 +24 @@ program main
- if (a(i) .ne. 0) call abort
+ if (a(i) .ne. 0) stop 1
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2019-10-25 16:00 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-10-25 16:16 [Patch][Fortran] OpenACC – libgomp/testsuite – use 'stop' and 'dg-do run' Tobias Burnus
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).