OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Tobias Burnus 2019-10-30 10:33:58 +00:00 committed by Tobias Burnus
parent 9f33e12137
commit 01509e2f04
17 changed files with 45 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
libgomp/ChangeLog
View File

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

1
libgomp/testsuite/libgomp.fortran/lastprivate1.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
program lastprivate
integer :: i
common /c/ i

1
libgomp/testsuite/libgomp.fortran/lastprivate2.f90
View File

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

1
libgomp/testsuite/libgomp.fortran/nestedfn4.f90
View File

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

1
libgomp/testsuite/libgomp.fortran/pr25219.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! PR fortran/25219
implicit none

1
libgomp/testsuite/libgomp.fortran/pr28390.f
View File

@ -1,3 +1,4 @@
! { dg-do run }
! PR fortran/28390
program pr28390
integer i

1
libgomp/testsuite/libgomp.fortran/pr35130.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! PR middle-end/35130
program pr35130

1
libgomp/testsuite/libgomp.fortran/pr90779.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! PR middle-end/90779
program pr90779

4
libgomp/testsuite/libgomp.fortran/target-simd.f90
View File

@ -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

1
libgomp/testsuite/libgomp.fortran/task2.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! { dg-options "-std=legacy" }
integer :: err

1
libgomp/testsuite/libgomp.fortran/taskgroup1.f90
View File

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

1
libgomp/testsuite/libgomp.fortran/taskloop1.f90
View File

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

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

@ -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)

1
libgomp/testsuite/libgomp.fortran/use_device_addr-2.f90
View File

@ -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)

17
libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-1.f90
View File

@ -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

1
libgomp/testsuite/libgomp.fortran/workshare1.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
function foo ()
integer :: foo
logical :: foo_seen

1
libgomp/testsuite/libgomp.fortran/workshare2.f90
View File

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