01509e2f04
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
14 lines
224 B
Fortran
14 lines
224 B
Fortran
! { dg-do run }
|
|
! PR middle-end/90779
|
|
|
|
program pr90779
|
|
implicit none
|
|
integer :: v(4), i
|
|
|
|
!$omp target map(from:v)
|
|
v(:) = (/ (i, i=1,4) /)
|
|
!$omp end target
|
|
|
|
if (any (v .ne. (/ (i, i=1,4) /))) stop 1
|
|
end program
|