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

libgomp/ChangeLog

+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'.

libgomp/testsuite/libgomp.fortran/lastprivate1.f90

+! { dg-do run }
 program lastprivate
   integer :: i
   common /c/ i

libgomp/testsuite/libgomp.fortran/lastprivate2.f90

+! { dg-do run }
 program lastprivate
   integer :: i, k
   common /c/ i, k

libgomp/testsuite/libgomp.fortran/nestedfn4.f90

+! { dg-do run }
 program foo
   integer :: i, j, k
   integer :: a(10), c(10)

libgomp/testsuite/libgomp.fortran/pr25219.f90

+! { dg-do run }
 ! PR fortran/25219
 
   implicit none

libgomp/testsuite/libgomp.fortran/pr28390.f

+! { dg-do run }
 ! PR fortran/28390
       program pr28390
       integer i

libgomp/testsuite/libgomp.fortran/pr35130.f90

+! { dg-do run }
 ! PR middle-end/35130
 
 program pr35130

libgomp/testsuite/libgomp.fortran/pr90779.f90

+! { dg-do run }
 ! PR middle-end/90779
 
 program pr90779

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

libgomp/testsuite/libgomp.fortran/task2.f90

+! { dg-do run }
 ! { dg-options "-std=legacy" }
 
   integer :: err

libgomp/testsuite/libgomp.fortran/taskgroup1.f90

+! { dg-do run }
   integer :: v(16), i
   do i = 1, 16
     v(i) = i

libgomp/testsuite/libgomp.fortran/taskloop1.f90

+! { dg-do run }
   common /blk/ q, e
   integer :: q, r
   logical :: e

libgomp/testsuite/libgomp.fortran/use_device_addr-1.f90

+! { 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)

libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90

+! { 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)

libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90

+! { 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

libgomp/testsuite/libgomp.fortran/workshare1.f90

+! { dg-do run }
 function foo ()
   integer :: foo
   logical :: foo_seen

libgomp/testsuite/libgomp.fortran/workshare2.f90

+! { dg-do run }
 subroutine f1
   integer a(20:50,70:90)
 !$omp parallel workshare