libgomp/testsuite/*fortran – make 'stop' values unique

        * testsuite/libgomp.fortran/use_device_addr-3.f90: Make 'stop' codes
        unique.
        * testsuite/libgomp.fortran/use_device_addr-4.f90: Ditto.
        * testsuite/libgomp.fortran/use_device_ptr-optional-2.f90: Ditto.
        * testsuite/libgomp.oacc-fortran/declare-5.f90: Ditto.
        * testsuite/libgomp.oacc-fortran/optional-data-copyin-by-value.f90:
        Ditto.
        * testsuite/libgomp.oacc-fortran/optional-firstprivate.f90: Ditto.
        * testsuite/libgomp.oacc-fortran/optional-update-host.f90: Ditto.

From-SVN: r279117

libgomp/ChangeLog

+2019-12-09  Tobias Burnus  <tobias@codesourcery.com>
+
+	* testsuite/libgomp.fortran/use_device_addr-3.f90: Make 'stop' codes
+	unique.
+	* testsuite/libgomp.fortran/use_device_addr-4.f90: Ditto.
+	* testsuite/libgomp.fortran/use_device_ptr-optional-2.f90: Ditto.
+	* testsuite/libgomp.oacc-fortran/declare-5.f90: Ditto.
+	* testsuite/libgomp.oacc-fortran/optional-data-copyin-by-value.f90:
+	Ditto.
+	* testsuite/libgomp.oacc-fortran/optional-firstprivate.f90: Ditto.
+	* testsuite/libgomp.oacc-fortran/optional-update-host.f90: Ditto.
+
 2019-12-06  Kwok Cheung Yeung  <kcy@codesourcery.com>
 
 	* config/accel/proc.c (omp_get_num_procs): Apply ialias macro.

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

@@ -37,8 +37,8 @@ contains
       if (present(z)) then; z(1) = 5; stop 15; endif
       if (present(cptr)) then; cptr = c_loc(v); stop 16; endif
       if (present(cptr_in)) then
-        if (c_associated(cptr_in, c_loc(x))) stop 26
-        stop 27
+        if (c_associated(cptr_in, c_loc(x))) stop 17
+        stop 18
       endif
     !$omp end target data
 

libgomp/testsuite/libgomp.oacc-fortran/declare-5.f90

@@ -102,6 +102,6 @@ program test
   if (.not. acc_is_present (y)) stop 7
   if (.not. acc_is_present (z)) stop 8
 
-  if (a /= 3.0) stop 3
-  if (k /= -378) stop 3
+  if (a /= 3.0) stop 30
+  if (k /= -378) stop 31
 end program test

libgomp/testsuite/libgomp.oacc-fortran/optional-data-copyin-by-value.f90

@@ -8,7 +8,7 @@ program test
   integer :: res
 
   if (foo(27) .ne. 27) stop 1
-  if (foo(16, 18) .ne. 288) stop 1
+  if (foo(16, 18) .ne. 288) stop 2
 contains
   function foo(x, y)
     integer, value :: x

libgomp/testsuite/libgomp.oacc-fortran/optional-firstprivate.f90

@@ -44,7 +44,7 @@ program test_firstprivate
 
   call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
   do i = 1, n
-    if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 2
+    if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 3
   end do
 
   deallocate(a_alloc)

libgomp/testsuite/libgomp.oacc-fortran/optional-update-host.f90

@@ -29,12 +29,12 @@ program optional_update_host
 
   call test_array(a_arr, b_arr)
   do i = 1, n
-    if (res_arr(i) .ne. 0) stop 1
+    if (res_arr(i) .ne. 0) stop 3
   end do
 
   call test_array(a_arr, b_arr, res_arr)
   do i = 1, n
-    if (res_arr(i) .ne. a_arr(i) * b_arr(i)) stop 2
+    if (res_arr(i) .ne. a_arr(i) * b_arr(i)) stop 4
   end do
 
   allocate(a_alloc(n))
@@ -49,12 +49,12 @@ program optional_update_host
 
   call test_allocatable(a_alloc, b_alloc)
   do i = 1, n
-    if (res_alloc(i) .ne. 0) stop 1
+    if (res_alloc(i) .ne. 0) stop 5
   end do
 
   call test_allocatable(a_alloc, b_alloc, res_alloc)
   do i = 1, n
-    if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 2
+    if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
   end do
 
   deallocate(a_alloc)