libgomp/testsuite – use 'stop' and 'dg-do run'

        libgomp/
        * testsuite/libgomp.fortran/target-simd.f90: Use stop not abort.
        * testsuite/libgomp.fortran/use_device_ptr-optional-1.f90:
        Ditto; add 'dg-do run' for torture testing.
        * testsuite/libgomp.fortran/lastprivate1.f90:  Add 'dg-do run'.
        * testsuite/libgomp.fortran/lastprivate2.f90: Ditto.
        * testsuite/libgomp.fortran/nestedfn4.f90: Ditto.
        * testsuite/libgomp.fortran/pr25219.f90: Ditto.
        * testsuite/libgomp.fortran/pr28390.f: Ditto.
        * testsuite/libgomp.fortran/pr35130.f90: Ditto.
        * testsuite/libgomp.fortran/pr90779.f90: Ditto.
        * testsuite/libgomp.fortran/task2.f90: Ditto.
        * testsuite/libgomp.fortran/taskgroup1.f90: Ditto.
        * testsuite/libgomp.fortran/taskloop1.f90: Ditto.
        * testsuite/libgomp.fortran/use_device_addr-1.f90: Ditto.
        * testsuite/libgomp.fortran/use_device_addr-2.f90: Ditto.
        * testsuite/libgomp.fortran/workshare1.f90: Ditto.
        * testsuite/libgomp.fortran/workshare2.f90: Ditto.

From-SVN: r277606

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index aa30b809f1512c1db23f99db37e4c3d32bc9174c..bd16e9c9074d11daaab201e4b23ef4e2f3c7f542 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,23 @@
+2019-10-30  Tobias Burnus  <tobias@codesourcery.com>
+
+       * testsuite/libgomp.fortran/target-simd.f90: Use stop not abort.
+       * testsuite/libgomp.fortran/use_device_ptr-optional-1.f90:
+       Ditto; add 'dg-do run' for torture testing.
+       * testsuite/libgomp.fortran/lastprivate1.f90:  Add 'dg-do run'.
+       * testsuite/libgomp.fortran/lastprivate2.f90: Ditto.
+       * testsuite/libgomp.fortran/nestedfn4.f90: Ditto.
+       * testsuite/libgomp.fortran/pr25219.f90: Ditto.
+       * testsuite/libgomp.fortran/pr28390.f: Ditto.
+       * testsuite/libgomp.fortran/pr35130.f90: Ditto.
+       * testsuite/libgomp.fortran/pr90779.f90: Ditto.
+       * testsuite/libgomp.fortran/task2.f90: Ditto.
+       * testsuite/libgomp.fortran/taskgroup1.f90: Ditto.
+       * testsuite/libgomp.fortran/taskloop1.f90: Ditto.
+       * testsuite/libgomp.fortran/use_device_addr-1.f90: Ditto.
+       * testsuite/libgomp.fortran/use_device_addr-2.f90: Ditto.
+       * testsuite/libgomp.fortran/workshare1.f90: Ditto.
+       * testsuite/libgomp.fortran/workshare2.f90: Ditto.
+
 2019-10-28  Tobias Burnus  <tobias@codesourcery.com>
 
        * testsuite/libgomp.oacc-fortran/abort-1.f90: Add 'dg-do run'.

diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90
index 132617b5c2730e7f20fbb729bc5267091e2d906e..62a5ef9d96c251fd4749577145fa92284a967028 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90
+++ b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 program lastprivate
   integer :: i
   common /c/ i

diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90
index 6cd5760206c913a21b61a167b2a2725c91c21a1c..97b6007e1efa72789d8abf5f174c5fa304c67dae 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90
+++ b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 program lastprivate
   integer :: i, k
   common /c/ i, k

diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90
index bc8614a340ab4771abd52da77f556584c5cdee76..6143bfb283c2e4daff5a9148b2d826a183016dfc 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90
+++ b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 program foo
   integer :: i, j, k
   integer :: a(10), c(10)

diff --git a/libgomp/testsuite/libgomp.fortran/pr25219.f90 b/libgomp/testsuite/libgomp.fortran/pr25219.f90
index 61dd1bc04e6c232b2f7d43ce637201fb79ef370b..3b10fceb8b77a9008dd56f2c87d23274d8e18b7a 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/pr25219.f90
+++ b/libgomp/testsuite/libgomp.fortran/pr25219.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! PR fortran/25219
 
   implicit none

diff --git a/libgomp/testsuite/libgomp.fortran/pr28390.f b/libgomp/testsuite/libgomp.fortran/pr28390.f
index a667e08f73ee97a1e6b5769098b222c95f568f8e..9b2d29d2f73cfe9e276587ac4984ca7d33744c64 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/pr28390.f
+++ b/libgomp/testsuite/libgomp.fortran/pr28390.f
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! PR fortran/28390
       program pr28390
       integer i

diff --git a/libgomp/testsuite/libgomp.fortran/pr35130.f90 b/libgomp/testsuite/libgomp.fortran/pr35130.f90
index e6be64f15f521bba22aac095ea20cdd9b0df9adf..940531e823ac4217dd6644ad95b0fa4e917d9324 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/pr35130.f90
+++ b/libgomp/testsuite/libgomp.fortran/pr35130.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! PR middle-end/35130
 
 program pr35130

diff --git a/libgomp/testsuite/libgomp.fortran/pr90779.f90 b/libgomp/testsuite/libgomp.fortran/pr90779.f90
index a6d687abfe622eeb79a2c83940fccffa0b2d6e4b..c14dc87dd001945b597b0ead74c38a2c84ace0d2 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/pr90779.f90
+++ b/libgomp/testsuite/libgomp.fortran/pr90779.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! PR middle-end/90779
 
 program pr90779

diff --git a/libgomp/testsuite/libgomp.fortran/target-simd.f90 b/libgomp/testsuite/libgomp.fortran/target-simd.f90
index a58e6a57d15464c25047128b5f91ccbcca8797d9..158347b59dc19b2caddf4faa5ddb24d1eb601419 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/target-simd.f90
+++ b/libgomp/testsuite/libgomp.fortran/target-simd.f90
@@ -14,7 +14,7 @@ program test
     b(i) = 5.0 * a(i)
   end do
 
-  if (any (b - 5.0 *a > 10.0*epsilon(a))) call abort()
+  if (any (b - 5.0 *a > 10.0*epsilon(a))) stop 1
 
   !$omp target simd map(to:a) map(from:b)
   do i = 1, size(a)
@@ -22,5 +22,5 @@ program test
   end do
   !$omp end target simd
 
-  if (any (b - 2.0 *a > 10.0*epsilon(a))) call abort()
+  if (any (b - 2.0 *a > 10.0*epsilon(a))) stop 2
 end program test

diff --git a/libgomp/testsuite/libgomp.fortran/task2.f90 b/libgomp/testsuite/libgomp.fortran/task2.f90
index 27151415043360ee05d75674c43222eea6ff90b7..4f363b684a5d194aff28d994f19cbc55b5a88cd5 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/task2.f90
+++ b/libgomp/testsuite/libgomp.fortran/task2.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! { dg-options "-std=legacy" }
 
   integer :: err

diff --git a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90
index 3f6b38a35f9c45b74172ee1161bdc3f505e32c2e..145f54f89117e2c356192389433548bcab286c23 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90
+++ b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
   integer :: v(16), i
   do i = 1, 16
     v(i) = i

diff --git a/libgomp/testsuite/libgomp.fortran/taskloop1.f90 b/libgomp/testsuite/libgomp.fortran/taskloop1.f90
index 48904b145bdbca3f204001803b216ceb18a52c88..44a14c2433c430cc603b7e0d213b20e625c4b55a 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/taskloop1.f90
+++ b/libgomp/testsuite/libgomp.fortran/taskloop1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
   common /blk/ q, e
   integer :: q, r
   logical :: e

diff --git a/libgomp/testsuite/libgomp.fortran/use_device_addr-1.f90 b/libgomp/testsuite/libgomp.fortran/use_device_addr-1.f90
index 2e5ce60d47caabc65c1c05161cc0f4791b2b1589..69607e03e880afd15775dca0879b3b05d6545f59 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/use_device_addr-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/use_device_addr-1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Comprehensive run-time test for use_device_addr
 !
 ! Differs from use_device_addr-2.f90 by using a 8-byte variable (c_double)

diff --git a/libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90 b/libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90
index bddb449141454ec266856714f9ef391f13440c6d..391a8313aec72168d17a3857b34d80b0ee37e9a9 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90
+++ b/libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Comprehensive run-time test for use_device_addr
 !
 ! Differs from use_device_addr-1.f90 by using a 4-byte variable (c_float)

diff --git a/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90 b/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90
index 93c61216034e3da566a9fa8c3b737cb65b84e9d5..ac69df559c969b53e622634307b7f644adb64cf2 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Test whether use_device_ptr properly handles OPTIONAL arguments
 ! (Only case of present arguments is tested)
 program test_it
@@ -14,11 +15,11 @@ contains
   subroutine foo(ii)
     integer, pointer, optional :: ii
 
-    if (.not.present(ii)) call abort()
-    if (.not.associated(ii, ixx)) call abort()
+    if (.not.present(ii)) stop 1
+    if (.not.associated(ii, ixx)) stop 2
     !$omp target data map(to:ixx) use_device_ptr(ii)
-    if (.not.present(ii)) call abort()
-    if (.not.associated(ii)) call abort()
+    if (.not.present(ii)) stop 3
+    if (.not.associated(ii)) stop 4
     !$omp end target data
   end subroutine foo
 
@@ -26,11 +27,11 @@ contains
   subroutine bar(jj)
     integer, pointer, optional :: jj
 
-    if (.not.present(jj)) call abort()
-    if (associated(jj)) call abort()
+    if (.not.present(jj)) stop 5
+    if (associated(jj)) stop 6
     !$omp target data map(to:ixx) use_device_ptr(jj)
-    if (.not.present(jj)) call abort()
-   if (associated(jj)) call abort()
+    if (.not.present(jj)) stop 7
+   if (associated(jj)) stop 8
     !$omp end target data
   end subroutine bar
 end program test_it

diff --git a/libgomp/testsuite/libgomp.fortran/workshare1.f90 b/libgomp/testsuite/libgomp.fortran/workshare1.f90
index 1d2ba7d3ee264b38f9f60deefadefac8c662bc42..f50928e0a47e9f6540331717cd86ebc735057c11 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/workshare1.f90
+++ b/libgomp/testsuite/libgomp.fortran/workshare1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 function foo ()
   integer :: foo
   logical :: foo_seen

diff --git a/libgomp/testsuite/libgomp.fortran/workshare2.f90 b/libgomp/testsuite/libgomp.fortran/workshare2.f90
index 655a450885e1b9c280063eebe98fb93b92f7884d..88b50fbe457bac3756c772425bc65268792ddfd0 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/workshare2.f90
+++ b/libgomp/testsuite/libgomp.fortran/workshare2.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 subroutine f1
   integer a(20:50,70:90)
 !$omp parallel workshare