2019-10-30 Tobias Burnus <tobias@codesourcery.com>
+ * testsuite/libgomp.fortran/aligned1.f03: Replace 'STOP' by 'stop'.
+ * testsuite/libgomp.fortran/alloc-comp-1.f90: Ditto.
+ * testsuite/libgomp.fortran/alloc-comp-2.f90: Ditto.
+ * testsuite/libgomp.fortran/alloc-comp-3.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable1.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable10.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable11.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable12.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable2.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable3.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable4.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable5.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable6.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable7.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable8.f90: Ditto.
+ * testsuite/libgomp.fortran/allocatable9.f90: Ditto.
+ * testsuite/libgomp.fortran/associate1.f90: Ditto.
+ * testsuite/libgomp.fortran/associate2.f90: Ditto.
+ * testsuite/libgomp.fortran/associate3.f90: Ditto.
+ * testsuite/libgomp.fortran/async_io_4.f90: Ditto.
+ * testsuite/libgomp.fortran/async_io_5.f90: Ditto.
+ * testsuite/libgomp.fortran/async_io_6.f90: Ditto.
+ * testsuite/libgomp.fortran/async_io_7.f90: Ditto.
+ * testsuite/libgomp.fortran/cancel-do-1.f90: Ditto.
+ * testsuite/libgomp.fortran/cancel-do-2.f90: Ditto.
+ * testsuite/libgomp.fortran/cancel-parallel-1.f90: Ditto.
+ * testsuite/libgomp.fortran/cancel-sections-1.f90: Ditto.
+ * testsuite/libgomp.fortran/cancel-taskgroup-2.f90: Ditto.
+ * testsuite/libgomp.fortran/character1.f90: Ditto.
+ * testsuite/libgomp.fortran/character2.f90: Ditto.
+ * testsuite/libgomp.fortran/collapse1.f90: Ditto.
+ * testsuite/libgomp.fortran/collapse2.f90: Ditto.
+ * testsuite/libgomp.fortran/collapse3.f90: Ditto.
+ * testsuite/libgomp.fortran/collapse4.f90: Ditto.
+ * testsuite/libgomp.fortran/crayptr1.f90: Ditto.
+ * testsuite/libgomp.fortran/crayptr2.f90: Ditto.
+ * testsuite/libgomp.fortran/crayptr3.f90: Ditto.
+ * testsuite/libgomp.fortran/declare-simd-1.f90: Ditto.
+ * testsuite/libgomp.fortran/declare-simd-3.f90: Ditto.
+ * testsuite/libgomp.fortran/declare-target-2.f90: Ditto.
+ * testsuite/libgomp.fortran/depend-1.f90: Ditto.
+ * testsuite/libgomp.fortran/depend-2.f90: Ditto.
+ * testsuite/libgomp.fortran/depend-3.f90: Ditto.
+ * testsuite/libgomp.fortran/do1.f90: Ditto.
+ * testsuite/libgomp.fortran/do2.f90: Ditto.
+ * testsuite/libgomp.fortran/do_concurrent_5.f90: Ditto.
+ * testsuite/libgomp.fortran/doacross1.f90: Ditto.
+ * testsuite/libgomp.fortran/doacross2.f90: Ditto.
+ * testsuite/libgomp.fortran/doacross3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/array_sections-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/array_sections-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/async_target-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/async_target-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/declare_target-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/declare_target-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/declare_target-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/device-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/device-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/device-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-6.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-7.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/simd-8.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-6.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_data-7.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_update-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/target_update-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/task_dep-1.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/task_dep-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/task_dep-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/task_dep-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/task_dep-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/teams-2.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/teams-3.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/teams-4.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/teams-5.f90: Ditto.
+ * testsuite/libgomp.fortran/examples-4/teams-6.f90: Ditto.
+ * testsuite/libgomp.fortran/lastprivate1.f90: Ditto.
+ * testsuite/libgomp.fortran/lastprivate2.f90: Ditto.
+ * testsuite/libgomp.fortran/lib1.f90: Ditto.
+ * testsuite/libgomp.fortran/lib4.f90: Ditto.
+ * testsuite/libgomp.fortran/lock-1.f90: Ditto.
+ * testsuite/libgomp.fortran/lock-2.f90: Ditto.
+ * testsuite/libgomp.fortran/nested1.f90: Ditto.
+ * testsuite/libgomp.fortran/nestedfn1.f90: Ditto.
+ * testsuite/libgomp.fortran/nestedfn2.f90: Ditto.
+ * testsuite/libgomp.fortran/nestedfn3.f90: Ditto.
+ * testsuite/libgomp.fortran/nestedfn4.f90: Ditto.
+ * testsuite/libgomp.fortran/nestedfn5.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_atomic1.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_atomic2.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_atomic3.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_atomic4.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_atomic5.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_cond1.f: Ditto.
+ * testsuite/libgomp.fortran/omp_cond2.f: Ditto.
+ * testsuite/libgomp.fortran/omp_cond3.F90: Ditto.
+ * testsuite/libgomp.fortran/omp_cond4.F90: Ditto.
+ * testsuite/libgomp.fortran/omp_parse1.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_parse2.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_parse3.f90: Ditto.
+ * testsuite/libgomp.fortran/omp_parse4.f90: Ditto.
+ * testsuite/libgomp.fortran/openmp_version-1.f: Ditto.
+ * testsuite/libgomp.fortran/openmp_version-2.f90: Ditto.
+ * testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95: Ditto.
+ * testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95: Ditto.
+ * testsuite/libgomp.fortran/pointer1.f90: Ditto.
+ * testsuite/libgomp.fortran/pointer2.f90: Ditto.
+ * testsuite/libgomp.fortran/pr25219.f90: Ditto.
+ * testsuite/libgomp.fortran/pr27395-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr27395-2.f90: Ditto.
+ * testsuite/libgomp.fortran/pr27416-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr27916-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr27916-2.f90: Ditto.
+ * testsuite/libgomp.fortran/pr28390.f: Ditto.
+ * testsuite/libgomp.fortran/pr29629.f90: Ditto.
+ * testsuite/libgomp.fortran/pr32550.f90: Ditto.
+ * testsuite/libgomp.fortran/pr33880.f90: Ditto.
+ * testsuite/libgomp.fortran/pr34020.f90: Ditto.
+ * testsuite/libgomp.fortran/pr35130.f90: Ditto.
+ * testsuite/libgomp.fortran/pr42162.f90: Ditto.
+ * testsuite/libgomp.fortran/pr46753.f90: Ditto.
+ * testsuite/libgomp.fortran/pr48894.f90: Ditto.
+ * testsuite/libgomp.fortran/pr49792-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr49792-2.f90: Ditto.
+ * testsuite/libgomp.fortran/pr63938-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr63938-2.f90: Ditto.
+ * testsuite/libgomp.fortran/pr65597.f90: Ditto.
+ * testsuite/libgomp.fortran/pr66199-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr71014.f90: Ditto.
+ * testsuite/libgomp.fortran/pr81304.f90: Ditto.
+ * testsuite/libgomp.fortran/pr81841.f90: Ditto.
+ * testsuite/libgomp.fortran/pr84418-1.f90: Ditto.
+ * testsuite/libgomp.fortran/pr84418-2.f90: Ditto.
+ * testsuite/libgomp.fortran/procptr1.f90: Ditto.
+ * testsuite/libgomp.fortran/recursion1.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction1.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction2.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction3.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction4.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction5.f90: Ditto.
+ * testsuite/libgomp.fortran/reduction6.f90: Ditto.
+ * testsuite/libgomp.fortran/reference1.f90: Ditto.
+ * testsuite/libgomp.fortran/reference2.f90: Ditto.
+ * testsuite/libgomp.fortran/retval1.f90: Ditto.
+ * testsuite/libgomp.fortran/retval2.f90: Ditto.
+ * testsuite/libgomp.fortran/sharing1.f90: Ditto.
+ * testsuite/libgomp.fortran/sharing2.f90: Ditto.
+ * testsuite/libgomp.fortran/simd1.f90: Ditto.
+ * testsuite/libgomp.fortran/simd2.f90: Ditto.
+ * testsuite/libgomp.fortran/simd3.f90: Ditto.
+ * testsuite/libgomp.fortran/simd4.f90: Ditto.
+ * testsuite/libgomp.fortran/simd5.f90: Ditto.
+ * testsuite/libgomp.fortran/simd6.f90: Ditto.
+ * testsuite/libgomp.fortran/simd7.f90: Ditto.
+ * testsuite/libgomp.fortran/stack.f90: Ditto.
+ * testsuite/libgomp.fortran/strassen.f90: Ditto.
+ * testsuite/libgomp.fortran/tabs1.f90: Ditto.
+ * testsuite/libgomp.fortran/tabs2.f: Ditto.
+ * testsuite/libgomp.fortran/target1.f90: Ditto.
+ * testsuite/libgomp.fortran/target2.f90: Ditto.
+ * testsuite/libgomp.fortran/target3.f90: Ditto.
+ * testsuite/libgomp.fortran/target4.f90: Ditto.
+ * testsuite/libgomp.fortran/target5.f90: Ditto.
+ * testsuite/libgomp.fortran/target6.f90: Ditto.
+ * testsuite/libgomp.fortran/target7.f90: Ditto.
+ * testsuite/libgomp.fortran/target8.f90: Ditto.
+ * testsuite/libgomp.fortran/task1.f90: Ditto.
+ * testsuite/libgomp.fortran/task2.f90: Ditto.
+ * testsuite/libgomp.fortran/task3.f90: Ditto.
+ * testsuite/libgomp.fortran/task4.f90: Ditto.
+ * testsuite/libgomp.fortran/taskgroup1.f90: Ditto.
+ * testsuite/libgomp.fortran/taskloop1.f90: Ditto.
+ * testsuite/libgomp.fortran/taskloop2.f90: Ditto.
+ * testsuite/libgomp.fortran/taskloop3.f90: Ditto.
+ * testsuite/libgomp.fortran/taskloop4.f90: Ditto.
+ * testsuite/libgomp.fortran/threadprivate1.f90: Ditto.
+ * testsuite/libgomp.fortran/threadprivate2.f90: Ditto.
+ * testsuite/libgomp.fortran/threadprivate3.f90: Ditto.
+ * testsuite/libgomp.fortran/threadprivate4.f90: Ditto.
+ * testsuite/libgomp.fortran/udr1.f90: Ditto.
+ * testsuite/libgomp.fortran/udr10.f90: Ditto.
+ * testsuite/libgomp.fortran/udr11.f90: Ditto.
+ * testsuite/libgomp.fortran/udr12.f90: Ditto.
+ * testsuite/libgomp.fortran/udr13.f90: Ditto.
+ * testsuite/libgomp.fortran/udr14.f90: Ditto.
+ * testsuite/libgomp.fortran/udr15.f90: Ditto.
+ * testsuite/libgomp.fortran/udr2.f90: Ditto.
+ * testsuite/libgomp.fortran/udr3.f90: Ditto.
+ * testsuite/libgomp.fortran/udr4.f90: Ditto.
+ * testsuite/libgomp.fortran/udr5.f90: Ditto.
+ * testsuite/libgomp.fortran/udr6.f90: Ditto.
+ * testsuite/libgomp.fortran/udr7.f90: Ditto.
+ * testsuite/libgomp.fortran/udr8.f90: Ditto.
+ * testsuite/libgomp.fortran/udr9.f90: Ditto.
+ * testsuite/libgomp.fortran/vla1.f90: Ditto.
+ * testsuite/libgomp.fortran/vla2.f90: Ditto.
+ * testsuite/libgomp.fortran/vla3.f90: Ditto.
+ * testsuite/libgomp.fortran/vla4.f90: Ditto.
+ * testsuite/libgomp.fortran/vla5.f90: Ditto.
+ * testsuite/libgomp.fortran/vla6.f90: Ditto.
+ * testsuite/libgomp.fortran/vla7.f90: Ditto.
+ * testsuite/libgomp.fortran/vla8.f90: Ditto.
+ * testsuite/libgomp.fortran/workshare1.f90: Ditto.
+ * testsuite/libgomp.fortran/workshare2.f90: Ditto.
+
+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.
end do
call foo (p, q, c_loc (r(1)), s)
do i = 1, 1024
- if (p(i) /= i * i + 3 * i + 2) STOP 1
+ if (p(i) /= i * i + 3 * i + 2) stop 1
p(i) = i
end do
call bar (p, q, c_loc (r(1)), s)
do i = 1, 1024
- if (p(i) /= i * i + 3 * i + 2) STOP 2
+ if (p(i) /= i * i + 3 * i + 2) stop 2
end do
! Attempt to create 64-byte aligned allocatable
do i = 1, 64
end do
call baz (p, c)
do i = 1, 1024
- if (p(i) /= i * i + 5 * i + 2) STOP 3
+ if (p(i) /= i * i + 5 * i + 2) stop 3
end do
end if
end
type (dl), intent (in) :: obj
integer, intent (in) :: val, cl1, cu1, cl2, cu2
logical, intent (in) :: c, f
- if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1
+ if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1
if (c) then
- if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2
- if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3
+ if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2
+ if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3
end if
if (val /= 0) then
- if (obj%a /= val .or. obj%b /= val) STOP 4
- if (obj%d /= val .or. obj%e /= val) STOP 5
+ if (obj%a /= val .or. obj%b /= val) stop 4
+ if (obj%d /= val .or. obj%e /= val) stop 5
if (c) then
- if (any (obj%c /= val)) STOP 6
+ if (any (obj%c /= val)) stop 6
end if
if (f) then
- if (obj%f /= val) STOP 7
+ if (obj%f /= val) stop 7
end if
end if
end subroutine ver_dl
integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2
logical, intent (in) :: h, k, c, f
integer :: i, j
- if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8
+ if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8
if (h) then
- if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9
+ if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9
do i = hl, hu
call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f)
end do
end do
if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f)
if (val /= 0) then
- if (obj%g /= val .or. obj%i /= val) STOP 10
+ if (obj%g /= val .or. obj%i /= val) stop 10
end if
end subroutine ver_dt
subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f)
type (dl), intent (in) :: obj
integer, intent (in) :: val, cl1, cu1, cl2, cu2
logical, intent (in) :: c, f
- if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1
+ if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1
if (c) then
- if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2
- if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3
+ if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2
+ if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3
end if
if (val /= 0) then
- if (obj%a /= val .or. obj%b /= val) STOP 4
- if (obj%d /= val .or. obj%e /= val) STOP 5
+ if (obj%a /= val .or. obj%b /= val) stop 4
+ if (obj%d /= val .or. obj%e /= val) stop 5
if (c) then
- if (any (obj%c /= val)) STOP 6
+ if (any (obj%c /= val)) stop 6
end if
if (f) then
- if (obj%f /= val) STOP 7
+ if (obj%f /= val) stop 7
end if
end if
end subroutine ver_dl
integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2
logical, intent (in) :: h, k, c, f
integer :: i, j
- if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8
+ if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8
if (h) then
- if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9
+ if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9
do i = hl, hu
call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f)
end do
end do
if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f)
if (val /= 0) then
- if (obj%g /= val .or. obj%i /= val) STOP 10
+ if (obj%g /= val .or. obj%i /= val) stop 10
end if
end subroutine ver_dt
subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f)
logical, parameter :: T = .true.
logical :: l
!$omp parallel private (x, y, z)
- if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 11
+ if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 11
!$omp end parallel
!$omp parallel firstprivate (x, y, z)
- if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 12
+ if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 12
!$omp end parallel
l = F
!$omp parallel sections lastprivate (x, y, z) firstprivate (l)
!$omp section
if (.not. l) then
- if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 13
+ if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 13
end if
!$omp section
if (.not. l) then
- if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 14
+ if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 14
end if
allocate (x, y, z(-3:-3,2:3))
call alloc_dt (x, 5, F, 0, 0, T, T, -1, -1, -1, -1, T)
call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F)
!$omp section
!$omp end parallel sections
- if (.not.allocated (x) .or. .not.allocated (y)) STOP 15
- if (.not.allocated (z)) STOP 16
- if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) STOP 17
- if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) STOP 18
+ if (.not.allocated (x) .or. .not.allocated (y)) stop 15
+ if (.not.allocated (z)) stop 16
+ if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) stop 17
+ if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) stop 18
call ver_dt (x, 5, F, 0, 0, T, T, -1, -1, -1, -1, T)
call ver_dt (y, 23, T, 0, 1, T, T, 2, 2, 2, 2, F)
call ver_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T)
type (dl), intent (in) :: obj
integer, intent (in) :: val, cl1, cu1, cl2, cu2
logical, intent (in) :: c, f
- if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1
+ if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1
if (c) then
- if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2
- if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3
+ if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2
+ if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3
end if
if (val /= 0) then
- if (obj%a /= val .or. obj%b /= val) STOP 4
- if (obj%d /= val .or. obj%e /= val) STOP 5
+ if (obj%a /= val .or. obj%b /= val) stop 4
+ if (obj%d /= val .or. obj%e /= val) stop 5
if (c) then
- if (any (obj%c /= val)) STOP 6
+ if (any (obj%c /= val)) stop 6
end if
if (f) then
- if (obj%f /= val) STOP 7
+ if (obj%f /= val) stop 7
end if
end if
end subroutine ver_dl
integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2
logical, intent (in) :: h, k, c, f
integer :: i, j
- if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8
+ if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8
if (h) then
- if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9
+ if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9
do i = hl, hu
call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f)
end do
end do
if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f)
if (val /= 0) then
- if (obj%g /= val .or. obj%i /= val) STOP 10
+ if (obj%g /= val .or. obj%i /= val) stop 10
end if
end subroutine ver_dt
subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f)
logical, parameter :: F = .false.
logical, parameter :: T = .true.
logical :: l
- if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) STOP 11
- if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) STOP 12
+ if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) stop 11
+ if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) stop 12
call ver_dt (x(2), 0, F, 0, 0, F, F, 0, 0, 0, 0, F)
call ver_dt (x(n), 0, F, 0, 0, F, F, 0, 0, 0, 0, F)
call ver_dt (y(3), 0, F, 0, 0, F, F, 0, 0, 0, 0, F)
call ver_dt (y(4), 0, F, 0, 0, F, F, 0, 0, 0, 0, F)
!$omp parallel private (z)
- if (allocated (z)) STOP 13
+ if (allocated (z)) stop 13
!$omp end parallel
!$omp parallel firstprivate (z)
- if (allocated (z)) STOP 14
+ if (allocated (z)) stop 14
!$omp end parallel
l = F
!$omp parallel sections lastprivate (z) firstprivate (l)
!$omp section
if (.not. l) then
- if (allocated (z)) STOP 15
+ if (allocated (z)) stop 15
end if
!$omp section
if (.not. l) then
- if (allocated (z)) STOP 16
+ if (allocated (z)) stop 16
end if
allocate (z(-3:-3,2:3))
call alloc_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T)
call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F)
!$omp section
!$omp end parallel sections
- if (.not.allocated (z)) STOP 17
- if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) STOP 18
- if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) STOP 19
+ if (.not.allocated (z)) stop 17
+ if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) stop 18
+ if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) stop 19
call ver_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T)
call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F)
call ver_dt (x(n - 1), 0, F, 0, 0, F, F, 0, 0, 0, 0, F)
call alloc_dt (z(-3,2), 5, T, 1, 2, F, T, 2, 3, -2, -2, F)
call alloc_dt (z(-3,3), 15, F, 0, 0, T, T, 2, 2, 2, 2, T)
!$omp parallel firstprivate (x, y, z)
- if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) STOP 20
- if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) STOP 21
+ if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) stop 20
+ if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) stop 21
call ver_dt (x(n - 1), 5, T, 1, 2, F, T, 2, 3, -2, -2, F)
call alloc_dt (x(n - 1), 4, T, -3, -1, T, T, -1, -1, 2, 3, T)
call ver_dt (x(n - 1), 4, T, -3, -1, T, T, -1, -1, 2, 3, T)
logical :: k, l
b(:, :) = 16
l = .false.
- if (allocated (a)) STOP 1
+ if (allocated (a)) stop 1
!$omp parallel private (a, b) reduction (.or.:l)
l = l.or.allocated (a)
allocate (a(3, 6))
deallocate (a)
l = l.or.allocated (a)
!$omp end parallel
- if (allocated (a).or.l) STOP 2
+ if (allocated (a).or.l) stop 2
allocate (a(6, 3))
a(:, :) = 3
- if (.not.allocated (a)) STOP 3
+ if (.not.allocated (a)) stop 3
l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3
- if (l) STOP 4
+ if (l) stop 4
!$omp parallel private (a, b) reduction (.or.:l)
l = l.or..not.allocated (a)
a(3, 2) = 1
b(3, 2) = 1
!$omp end parallel
- if (l.or..not.allocated (a)) STOP 5
+ if (l.or..not.allocated (a)) stop 5
!$omp parallel firstprivate (a, b) reduction (.or.:l)
l = l.or..not.allocated (a)
l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3
a(:, :) = omp_get_thread_num ()
b(:, :) = omp_get_thread_num ()
!$omp end parallel
- if (any (a.ne.3).or.any (b.ne.16).or.l) STOP 6
+ if (any (a.ne.3).or.any (b.ne.16).or.l) stop 6
k = .true.
!$omp parallel do firstprivate (a, b, k) lastprivate (a, b) &
!$omp & reduction (.or.:l)
a(:, :) = i + 2
b(:, :) = i
end do
- if (any (a.ne.38).or.any (b.ne.36).or.l) STOP 7
+ if (any (a.ne.38).or.any (b.ne.36).or.l) stop 7
deallocate (a)
- if (allocated (a)) STOP 8
+ if (allocated (a)) stop 8
allocate (a (0:1, 0:3))
a(:, :) = 0
!$omp parallel do reduction (+:a) reduction (.or.:l) &
a(modulo (i, 2), i / 2) = a(modulo (i, 2), i / 2) + i
a(i / 4, modulo (i, 4)) = a(i / 4, modulo (i, 4)) + i
end do
- if (l) STOP 9
+ if (l) stop 9
do i = 0, 1
do j = 0, 3
- if (a(i, j) .ne. (5*i + 3*j)) STOP 10
+ if (a(i, j) .ne. (5*i + 3*j)) stop 10
end do
end do
end
integer :: i
!$omp declare reduction (foo : integer : omp_out = omp_out + omp_in) &
!$omp & initializer (omp_priv = 0)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1
allocate (a, b(6:9), c(3, 8:9))
a = 0
b = 0
c = 0
- if (.not.allocated (a)) STOP 2
- if (.not.allocated (b) .or. size (b) /= 4) STOP 3
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 4
- if (.not.allocated (c) .or. size (c) /= 6) STOP 5
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 6
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 7
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 8
+ if (.not.allocated (a)) stop 2
+ if (.not.allocated (b) .or. size (b) /= 4) stop 3
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 4
+ if (.not.allocated (c) .or. size (c) /= 6) stop 5
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 6
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 7
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 8
!$omp parallel do reduction (+:a, b, c)
do i = 1, 10
- if (.not.allocated (a)) STOP 9
- if (.not.allocated (b) .or. size (b) /= 4) STOP 10
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 11
- if (.not.allocated (c) .or. size (c) /= 6) STOP 12
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 13
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 14
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 15
+ if (.not.allocated (a)) stop 9
+ if (.not.allocated (b) .or. size (b) /= 4) stop 10
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 11
+ if (.not.allocated (c) .or. size (c) /= 6) stop 12
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 13
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 14
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 15
a = a + i
b = b + 2 * i
c = c + 3 * i
end do
- if (.not.allocated (a)) STOP 16
- if (.not.allocated (b) .or. size (b) /= 4) STOP 17
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 18
- if (.not.allocated (c) .or. size (c) /= 6) STOP 19
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 20
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 21
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 22
- if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 23
+ if (.not.allocated (a)) stop 16
+ if (.not.allocated (b) .or. size (b) /= 4) stop 17
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 18
+ if (.not.allocated (c) .or. size (c) /= 6) stop 19
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 20
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 21
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 22
+ if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 23
a = 0
b = 0
c = 0
!$omp parallel do reduction (foo : a, b, c)
do i = 1, 10
- if (.not.allocated (a)) STOP 24
- if (.not.allocated (b) .or. size (b) /= 4) STOP 25
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 26
- if (.not.allocated (c) .or. size (c) /= 6) STOP 27
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 28
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 29
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 30
+ if (.not.allocated (a)) stop 24
+ if (.not.allocated (b) .or. size (b) /= 4) stop 25
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 26
+ if (.not.allocated (c) .or. size (c) /= 6) stop 27
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 28
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 29
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 30
a = a + i
b = b + 2 * i
c = c + 3 * i
end do
- if (.not.allocated (a)) STOP 31
- if (.not.allocated (b) .or. size (b) /= 4) STOP 32
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 33
- if (.not.allocated (c) .or. size (c) /= 6) STOP 34
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 35
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 36
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 37
- if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 38
+ if (.not.allocated (a)) stop 31
+ if (.not.allocated (b) .or. size (b) /= 4) stop 32
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 33
+ if (.not.allocated (c) .or. size (c) /= 6) stop 34
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 35
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 36
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 37
+ if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 38
a = 0
b = 0
c = 0
!$omp simd reduction (+:a, b, c)
do i = 1, 10
- if (.not.allocated (a)) STOP 39
- if (.not.allocated (b) .or. size (b) /= 4) STOP 40
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 41
- if (.not.allocated (c) .or. size (c) /= 6) STOP 42
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 43
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 44
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 45
+ if (.not.allocated (a)) stop 39
+ if (.not.allocated (b) .or. size (b) /= 4) stop 40
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 41
+ if (.not.allocated (c) .or. size (c) /= 6) stop 42
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 43
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 44
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 45
a = a + i
b = b + 2 * i
c = c + 3 * i
end do
- if (.not.allocated (a)) STOP 46
- if (.not.allocated (b) .or. size (b) /= 4) STOP 47
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 48
- if (.not.allocated (c) .or. size (c) /= 6) STOP 49
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 50
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 51
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 52
- if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 53
+ if (.not.allocated (a)) stop 46
+ if (.not.allocated (b) .or. size (b) /= 4) stop 47
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 48
+ if (.not.allocated (c) .or. size (c) /= 6) stop 49
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 50
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 51
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 52
+ if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 53
a = 0
b = 0
c = 0
!$omp simd reduction (foo : a, b, c)
do i = 1, 10
- if (.not.allocated (a)) STOP 54
- if (.not.allocated (b) .or. size (b) /= 4) STOP 55
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 56
- if (.not.allocated (c) .or. size (c) /= 6) STOP 57
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 58
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 59
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 60
+ if (.not.allocated (a)) stop 54
+ if (.not.allocated (b) .or. size (b) /= 4) stop 55
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 56
+ if (.not.allocated (c) .or. size (c) /= 6) stop 57
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 58
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 59
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 60
a = a + i
b = b + 2 * i
c = c + 3 * i
end do
- if (.not.allocated (a)) STOP 61
- if (.not.allocated (b) .or. size (b) /= 4) STOP 62
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 63
- if (.not.allocated (c) .or. size (c) /= 6) STOP 64
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 65
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 66
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 67
- if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 68
+ if (.not.allocated (a)) stop 61
+ if (.not.allocated (b) .or. size (b) /= 4) stop 62
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 63
+ if (.not.allocated (c) .or. size (c) /= 6) stop 64
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 65
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 66
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 67
+ if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 68
end
integer, allocatable, save :: a, b(:), c(:,:)
integer :: p
!$omp threadprivate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1
call omp_set_dynamic (.false.)
call omp_set_num_threads (4)
!$omp parallel num_threads (4)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2
!$omp end parallel
allocate (a, b(6:9), c(3, 8:9))
a = 4
b = 5
c = 6
- if (.not.allocated (a)) STOP 3
- if (.not.allocated (b) .or. size (b) /= 4) STOP 4
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 5
- if (.not.allocated (c) .or. size (c) /= 6) STOP 6
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 7
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 8
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 9
+ if (.not.allocated (a)) stop 3
+ if (.not.allocated (b) .or. size (b) /= 4) stop 4
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 5
+ if (.not.allocated (c) .or. size (c) /= 6) stop 6
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 7
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 8
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 9
!$omp parallel num_threads (4) copyin (a, b, c) private (p)
p = omp_get_thread_num ()
- if (.not.allocated (a)) STOP 10
- if (.not.allocated (b) .or. size (b) /= 4) STOP 11
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 12
- if (.not.allocated (c) .or. size (c) /= 6) STOP 13
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 14
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 15
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 16
- if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) STOP 17
+ if (.not.allocated (a)) stop 10
+ if (.not.allocated (b) .or. size (b) /= 4) stop 11
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 12
+ if (.not.allocated (c) .or. size (c) /= 6) stop 13
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 14
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 15
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 16
+ if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) stop 17
deallocate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 18
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 18
allocate (a, b(p:9), c(3, p:7))
a = p
b = p
c = p
- if (.not.allocated (a)) STOP 19
- if (.not.allocated (b) .or. size (b) /= (10 - p)) STOP 20
- if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) STOP 21
- if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) STOP 22
- if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) STOP 23
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 24
- if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) STOP 25
- if (a /= p .or. any (b /= p) .or. any (c /= p)) STOP 26
+ if (.not.allocated (a)) stop 19
+ if (.not.allocated (b) .or. size (b) /= (10 - p)) stop 20
+ if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) stop 21
+ if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) stop 22
+ if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) stop 23
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 24
+ if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) stop 25
+ if (a /= p .or. any (b /= p) .or. any (c /= p)) stop 26
!$omp end parallel
!$omp parallel num_threads (4) copyin (a, b, c)
- if (.not.allocated (a)) STOP 27
- if (.not.allocated (b) .or. size (b) /= 10) STOP 28
- if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) STOP 29
- if (.not.allocated (c) .or. size (c) /= 24) STOP 30
- if (size (c, 1) /= 3 .or. size (c, 2) /= 8) STOP 31
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 32
- if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) STOP 33
- if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) STOP 34
+ if (.not.allocated (a)) stop 27
+ if (.not.allocated (b) .or. size (b) /= 10) stop 28
+ if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) stop 29
+ if (.not.allocated (c) .or. size (c) /= 24) stop 30
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 8) stop 31
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 32
+ if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) stop 33
+ if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) stop 34
!$omp end parallel
deallocate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 35
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 35
!$omp parallel num_threads (4) copyin (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 36
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 36
!$omp end parallel
end
integer, allocatable :: a, b(:), c(:,:)
logical :: l
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1
!$omp parallel private (a, b, c, l)
l = .false.
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2
!$omp single
allocate (a, b(6:9), c(3, 8:9))
c = 6
!$omp end single copyprivate (a, b, c)
- if (.not.allocated (a)) STOP 3
- if (.not.allocated (b) .or. size (b) /= 4) STOP 4
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 5
- if (.not.allocated (c) .or. size (c) /= 6) STOP 6
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 7
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 8
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 9
- if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) STOP 10
+ if (.not.allocated (a)) stop 3
+ if (.not.allocated (b) .or. size (b) /= 4) stop 4
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 5
+ if (.not.allocated (c) .or. size (c) /= 6) stop 6
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 7
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 8
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 9
+ if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) stop 10
!$omp single
deallocate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 11
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 11
allocate (a, b(0:4), c(3, 2:7))
a = 1
b = 2
c = 3
!$omp end single copyprivate (a, b, c)
- if (.not.allocated (a)) STOP 12
- if (.not.allocated (b) .or. size (b) /= 5) STOP 13
- if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) STOP 14
- if (.not.allocated (c) .or. size (c) /= 18) STOP 15
- if (size (c, 1) /= 3 .or. size (c, 2) /= 6) STOP 16
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 17
- if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) STOP 18
- if (a /= 1 .or. any (b /= 2) .or. any (c /= 3)) STOP 19
+ if (.not.allocated (a)) stop 12
+ if (.not.allocated (b) .or. size (b) /= 5) stop 13
+ if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) stop 14
+ if (.not.allocated (c) .or. size (c) /= 18) stop 15
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 6) stop 16
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 17
+ if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) stop 18
+ if (a /= 1 .or. any (b /= 2) .or. any (c /= 3)) stop 19
!$omp single
l = .true.
deallocate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 20
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 20
allocate (a, b(2:6), c(3:5, 3:8))
a = 7
b = 8
c = 9
!$omp end single copyprivate (a, b, c)
- if (.not.allocated (a)) STOP 21
- if (.not.allocated (b) .or. size (b) /= 5) STOP 22
+ if (.not.allocated (a)) stop 21
+ if (.not.allocated (b) .or. size (b) /= 5) stop 22
if (l) then
- if (lbound (b, 1) /= 2 .or. ubound (b, 1) /= 6) STOP 23
+ if (lbound (b, 1) /= 2 .or. ubound (b, 1) /= 6) stop 23
else
- if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) STOP 24
+ if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) stop 24
end if
- if (.not.allocated (c) .or. size (c) /= 18) STOP 25
- if (size (c, 1) /= 3 .or. size (c, 2) /= 6) STOP 26
+ if (.not.allocated (c) .or. size (c) /= 18) stop 25
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 6) stop 26
if (l) then
- if (lbound (c, 1) /= 3 .or. ubound (c, 1) /= 5) STOP 27
- if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 8) STOP 28
+ if (lbound (c, 1) /= 3 .or. ubound (c, 1) /= 5) stop 27
+ if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 8) stop 28
else
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 29
- if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) STOP 30
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 29
+ if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) stop 30
end if
- if (a /= 7 .or. any (b /= 8) .or. any (c /= 9)) STOP 31
+ if (a /= 7 .or. any (b /= 8) .or. any (c /= 9)) stop 31
!$omp end parallel
end
integer :: n
logical :: l
!$omp threadprivate (a)
- if (allocated (a)) STOP 1
+ if (allocated (a)) stop 1
call omp_set_dynamic (.false.)
l = .false.
!$omp parallel num_threads (4) reduction(.or.:l)
l = l.or..not.allocated (a)
l = l.or.size(a).ne.12.or.size(a,1).ne.3.or.size(a,2).ne.4
!$omp end parallel
- if (l.or.any(a.ne.6)) STOP 1
+ if (l.or.any(a.ne.6)) stop 1
!$omp parallel num_threads (4) copyin (a) reduction(.or.:l) private (b)
l = l.or.allocated (b)
l = l.or..not.allocated (a)
deallocate (b)
l = l.or.allocated (b)
!$omp end parallel
- if (n.lt.0 .or. n.ge.4) STOP 2
- if (l.or.any(a.ne.(n + 36))) STOP 3
+ if (n.lt.0 .or. n.ge.4) stop 2
+ if (l.or.any(a.ne.(n + 36))) stop 3
!$omp parallel num_threads (4) reduction(.or.:l)
deallocate (a)
l = l.or.allocated (a)
!$omp end parallel
- if (l.or.allocated (a)) STOP 4
+ if (l.or.allocated (a)) stop 4
end
integer :: i
logical :: l
l = .false.
- if (allocated (a)) STOP 1
+ if (allocated (a)) stop 1
!$omp parallel private (a) reduction (.or.:l)
allocate (a (-7:-5))
l = l.or..not.allocated (a)
l = l.or.any (a.ne.0)
deallocate (a)
!$omp end parallel
- if (l.or.allocated (a)) STOP 2
+ if (l.or.allocated (a)) stop 2
end
logical :: k, l
b(:, :) = 16
l = .false.
- if (allocated (a)) STOP 1
+ if (allocated (a)) stop 1
!$omp task private (a, b) shared (l)
l = l.or.allocated (a)
allocate (a(3, 6))
l = l.or.allocated (a)
!$omp end task
!$omp taskwait
- if (allocated (a).or.l) STOP 2
+ if (allocated (a).or.l) stop 2
allocate (a(6, 3))
a(:, :) = 3
- if (.not.allocated (a)) STOP 3
+ if (.not.allocated (a)) stop 3
l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3
- if (l) STOP 4
+ if (l) stop 4
!$omp task private (a, b) shared (l)
l = l.or..not.allocated (a)
a(3, 2) = 1
b(3, 2) = 1
!$omp end task
!$omp taskwait
- if (l.or..not.allocated (a)) STOP 5
+ if (l.or..not.allocated (a)) stop 5
!$omp task firstprivate (a, b) shared (l)
l = l.or..not.allocated (a)
l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3
b(:, :) = 8
!$omp end task
!$omp taskwait
- if (any (a.ne.3).or.any (b.ne.16).or.l) STOP 6
+ if (any (a.ne.3).or.any (b.ne.16).or.l) stop 6
end
a = a + 2
!$omp end sections
!$omp end parallel
- if (any (a.ne.3)) STOP 1
+ if (any (a.ne.3)) stop 1
deallocate (a)
end
else if (i .gt. 1 .and. i .lt. 9) then
j = 7
end if
- if (c(i) .ne. j) STOP 1
+ if (c(i) .ne. j) stop 1
j = 179 - modulo (i, 11)
if (i .gt. 1 .and. i .lt. 9) j = i
- if (d(i) .ne. j) STOP 2
+ if (d(i) .ne. j) stop 2
end do
deallocate (a, b, c, d)
end
deallocate (a)
l = l .or. allocated (a)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end
integer, save, allocatable :: a(:, :)
logical :: l
!$omp threadprivate (a)
- if (allocated (a)) STOP 1
+ if (allocated (a)) stop 1
l = .false.
!$omp parallel copyin (a) num_threads (4) reduction(.or.:l)
l = l.or.allocated (a)
!$omp end parallel
- if (l.or.allocated (a)) STOP 2
+ if (l.or.allocated (a)) stop 2
end
integer, allocatable :: a, b(:), c(:,:)
logical :: l
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1
!$omp parallel private (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2
allocate (a, b(-7:-1), c(2:3, 3:5))
- if (.not.allocated (a)) STOP 3
- if (.not.allocated (b) .or. size (b) /= 7) STOP 4
- if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) STOP 5
- if (.not.allocated (c) .or. size (c) /= 6) STOP 6
- if (size (c, 1) /= 2 .or. size (c, 2) /= 3) STOP 7
- if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) STOP 8
- if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) STOP 9
+ if (.not.allocated (a)) stop 3
+ if (.not.allocated (b) .or. size (b) /= 7) stop 4
+ if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) stop 5
+ if (.not.allocated (c) .or. size (c) /= 6) stop 6
+ if (size (c, 1) /= 2 .or. size (c, 2) /= 3) stop 7
+ if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) stop 8
+ if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) stop 9
a = 4
b = 3
c = 2
!$omp end parallel
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 10
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 10
!$omp parallel firstprivate (a, b, c)
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 11
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 11
allocate (a, b(-7:-1), c(2:3, 3:5))
- if (.not.allocated (a)) STOP 12
- if (.not.allocated (b) .or. size (b) /= 7) STOP 13
- if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) STOP 14
- if (.not.allocated (c) .or. size (c) /= 6) STOP 15
- if (size (c, 1) /= 2 .or. size (c, 2) /= 3) STOP 16
- if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) STOP 17
- if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) STOP 18
+ if (.not.allocated (a)) stop 12
+ if (.not.allocated (b) .or. size (b) /= 7) stop 13
+ if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) stop 14
+ if (.not.allocated (c) .or. size (c) /= 6) stop 15
+ if (size (c, 1) /= 2 .or. size (c, 2) /= 3) stop 16
+ if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) stop 17
+ if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) stop 18
a = 4
b = 3
c = 2
!$omp end parallel
- if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 19
+ if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 19
allocate (a, b(6:9), c(3, 8:9))
a = 2
b = 4
c = 5
- if (.not.allocated (a)) STOP 20
- if (.not.allocated (b) .or. size (b) /= 4) STOP 21
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 22
- if (.not.allocated (c) .or. size (c) /= 6) STOP 23
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 24
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 25
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 26
+ if (.not.allocated (a)) stop 20
+ if (.not.allocated (b) .or. size (b) /= 4) stop 21
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 22
+ if (.not.allocated (c) .or. size (c) /= 6) stop 23
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 24
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 25
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 26
!$omp parallel firstprivate (a, b, c)
- if (.not.allocated (a)) STOP 27
- if (.not.allocated (b) .or. size (b) /= 4) STOP 28
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 29
- if (.not.allocated (c) .or. size (c) /= 6) STOP 30
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 31
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 32
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 33
- if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) STOP 34
+ if (.not.allocated (a)) stop 27
+ if (.not.allocated (b) .or. size (b) /= 4) stop 28
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 29
+ if (.not.allocated (c) .or. size (c) /= 6) stop 30
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 31
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 32
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 33
+ if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) stop 34
deallocate (a)
- if (allocated (a)) STOP 35
+ if (allocated (a)) stop 35
allocate (a)
a = 8
b = (/ 1, 2, 3 /)
c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /))
- if (.not.allocated (a)) STOP 36
- if (.not.allocated (b) .or. size (b) /= 3) STOP 37
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 38
- if (.not.allocated (c) .or. size (c) /= 8) STOP 39
- if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 40
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 41
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 42
- if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 43
+ if (.not.allocated (a)) stop 36
+ if (.not.allocated (b) .or. size (b) /= 3) stop 37
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 38
+ if (.not.allocated (c) .or. size (c) /= 8) stop 39
+ if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 40
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 41
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 42
+ if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 43
!$omp end parallel
- if (.not.allocated (a)) STOP 44
- if (.not.allocated (b) .or. size (b) /= 4) STOP 45
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 46
- if (.not.allocated (c) .or. size (c) /= 6) STOP 47
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 48
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 49
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 50
- if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) STOP 51
+ if (.not.allocated (a)) stop 44
+ if (.not.allocated (b) .or. size (b) /= 4) stop 45
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 46
+ if (.not.allocated (c) .or. size (c) /= 6) stop 47
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 48
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 49
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 50
+ if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) stop 51
l = .false.
!$omp parallel sections lastprivate (a, b, c) firstprivate (l)
!$omp section
- if (.not.allocated (a)) STOP 52
+ if (.not.allocated (a)) stop 52
if (l) then
- if (.not.allocated (b) .or. size (b) /= 6) STOP 53
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 54
- if (.not.allocated (c) .or. size (c) /= 8) STOP 55
- if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 56
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 57
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 58
- if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 59
+ if (.not.allocated (b) .or. size (b) /= 6) stop 53
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 54
+ if (.not.allocated (c) .or. size (c) /= 8) stop 55
+ if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 56
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 57
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 58
+ if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 59
else
- if (.not.allocated (b) .or. size (b) /= 4) STOP 60
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 61
- if (.not.allocated (c) .or. size (c) /= 6) STOP 62
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 63
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 64
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 65
+ if (.not.allocated (b) .or. size (b) /= 4) stop 60
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 61
+ if (.not.allocated (c) .or. size (c) /= 6) stop 62
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 63
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 64
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 65
end if
l = .true.
deallocate (a)
- if (allocated (a)) STOP 66
+ if (allocated (a)) stop 66
allocate (a)
a = 8
b = (/ 1, 2, 3 /)
c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /))
- if (.not.allocated (a)) STOP 67
- if (.not.allocated (b) .or. size (b) /= 3) STOP 68
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 69
- if (.not.allocated (c) .or. size (c) /= 8) STOP 70
- if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 71
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 72
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 73
- if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 74
+ if (.not.allocated (a)) stop 67
+ if (.not.allocated (b) .or. size (b) /= 3) stop 68
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 69
+ if (.not.allocated (c) .or. size (c) /= 8) stop 70
+ if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 71
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 72
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 73
+ if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 74
!$omp section
- if (.not.allocated (a)) STOP 75
+ if (.not.allocated (a)) stop 75
if (l) then
- if (.not.allocated (b) .or. size (b) /= 3) STOP 76
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 77
- if (.not.allocated (c) .or. size (c) /= 8) STOP 78
- if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 79
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 80
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 81
- if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 82
+ if (.not.allocated (b) .or. size (b) /= 3) stop 76
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 77
+ if (.not.allocated (c) .or. size (c) /= 8) stop 78
+ if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 79
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 80
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 81
+ if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 82
else
- if (.not.allocated (b) .or. size (b) /= 4) STOP 83
- if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 84
- if (.not.allocated (c) .or. size (c) /= 6) STOP 85
- if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 86
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 87
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 88
+ if (.not.allocated (b) .or. size (b) /= 4) stop 83
+ if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 84
+ if (.not.allocated (c) .or. size (c) /= 6) stop 85
+ if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 86
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 87
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 88
end if
l = .true.
deallocate (a)
- if (allocated (a)) STOP 89
+ if (allocated (a)) stop 89
allocate (a)
a = 12
b = (/ 9, 8, 7, 6, 5, 4 /)
c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 4, 2 /))
- if (.not.allocated (a)) STOP 90
- if (.not.allocated (b) .or. size (b) /= 6) STOP 91
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 92
- if (.not.allocated (c) .or. size (c) /= 8) STOP 93
- if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 94
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 95
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 96
- if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 97
+ if (.not.allocated (a)) stop 90
+ if (.not.allocated (b) .or. size (b) /= 6) stop 91
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 92
+ if (.not.allocated (c) .or. size (c) /= 8) stop 93
+ if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 94
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 95
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 96
+ if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 97
!$omp end parallel sections
- if (.not.allocated (a)) STOP 98
- if (.not.allocated (b) .or. size (b) /= 6) STOP 99
- if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 100
- if (.not.allocated (c) .or. size (c) /= 8) STOP 101
- if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 102
- if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 103
- if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 104
- if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 105
+ if (.not.allocated (a)) stop 98
+ if (.not.allocated (b) .or. size (b) /= 6) stop 99
+ if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 100
+ if (.not.allocated (c) .or. size (c) /= 8) stop 101
+ if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 102
+ if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 103
+ if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 104
+ if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 105
end
!$omp parallel private(v, a) default(none)
v = -1
a = 2.5
- if (v /= -1 .or. u /= 15) STOP 1
- if (a(2,1) /= 2.5 .or. b /= 3.5) STOP 2
+ if (v /= -1 .or. u /= 15) stop 1
+ if (a(2,1) /= 2.5 .or. b /= 3.5) stop 2
associate(u => v, b => a(2, 1))
- if (u /= -1 .or. b /= 2.5) STOP 3
+ if (u /= -1 .or. b /= 2.5) stop 3
end associate
- if (u /= 15 .or. b /= 3.5) STOP 4
+ if (u /= 15 .or. b /= 3.5) stop 4
!$omp end parallel
end associate
end program
!$omp parallel private(v, a) default(none)
v = -1
forall (k = 1:3, l = 1:3) a(k, l)%a(:,:) = 2.5
- if (v(3) /= -1 .or. u(3) /= 15) STOP 1
- if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) STOP 2
+ if (v(3) /= -1 .or. u(3) /= 15) stop 1
+ if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) stop 2
associate(u => v, b => a(2, 1)%a)
- if (u(3) /= -1 .or. b(1,2) /= 2.5) STOP 3
+ if (u(3) /= -1 .or. b(1,2) /= 2.5) stop 3
end associate
- if (u(3) /= 15 .or. b(1,2) /= 3.5) STOP 4
+ if (u(3) /= 15 .or. b(1,2) /= 3.5) stop 4
!$omp end parallel
end associate
forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 7
associate(d => a(i, j)%c(2,:)%i)
!$omp parallel private(a) default(none)
forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 15
- if (a(1,2)%c(2,1)%i /= 15 .or. d(1) /= 9) STOP 5
- if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) STOP 6
+ if (a(1,2)%c(2,1)%i /= 15 .or. d(1) /= 9) stop 5
+ if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) stop 6
associate(d => a(2,1)%c(2,:)%i)
- if (d(1) /= 15 .or. d(2) /= 15) STOP 7
+ if (d(1) /= 15 .or. d(2) /= 15) stop 7
end associate
- if (d(1) /= 9 .or. d(2) /= 7) STOP 8
+ if (d(1) /= 9 .or. d(2) /= 7) stop 8
!$omp end parallel
end associate
end program
if (j.eq.1) k = 7
end do
end associate
- if (any (v%f(:).ne.21.) .or. i.ne.7) STOP 1
+ if (any (v%f(:).ne.21.) .or. i.ne.7) stop 1
end
i = 41
read (20,*, asynchronous="yes") i
wait (20)
- if (i .ne. 1) STOP 1
+ if (i .ne. 1) stop 1
write (*,*) ' '
backspace (20)
i = 42
read (20,*, asynchronous="yes") i
close (20)
- if (i .ne. 1) STOP 2
+ if (i .ne. 1) stop 2
! PR libfortran/20125
open (20, status='scratch', asynchronous="yes")
backspace (20)
read (20,*, asynchronous="yes") i
wait (20)
- if (i .ne. 7) STOP 3
+ if (i .ne. 7) stop 3
close (20)
open (20, status='scratch', form='unformatted')
write (20) 8
backspace (20)
read (20) i
- if (i .ne. 8) STOP 4
+ if (i .ne. 8) stop 4
close (20)
! PR libfortran/20471
read (3) (y(n),n=1,10)
do n = 1, 10
- if (abs(x(n)-y(n)) > 0.00001) STOP 5
+ if (abs(x(n)-y(n)) > 0.00001) stop 5
end do
close (3)
nr = nr + 1
goto 20
30 continue
- if (nr .ne. 5) STOP 6
+ if (nr .ne. 5) stop 6
do i = 1, nr+1
backspace (3)
do i = 1, nr
read(3,end=70,err=90) n, (x(n),n=1,10)
- if (abs(x(1) - i) .gt. 0.001) STOP 7
+ if (abs(x(1) - i) .gt. 0.001) stop 7
end do
close (3)
stop
70 continue
- STOP 8
+ stop 8
90 continue
- STOP 9
+ stop 9
end program
! Test character kind
open(99, file="test.dat")
read (99,*, iostat=stat) cvar
-if (stat /= 0 .or. cvar /= "1") STOP 1
+if (stat /= 0 .or. cvar /= "1") stop 1
read (99,*, iostat=stat) cvar
-if (stat /= 0 .or. cvar /= "2") STOP 2
+if (stat /= 0 .or. cvar /= "2") stop 2
read (99,*, iostat=stat) cvar ! << FAILS: stat /= 0
-if (stat /= 0 .or. cvar /= "3") STOP 3 ! << aborts here
+if (stat /= 0 .or. cvar /= "3") stop 3 ! << aborts here
! Test real kind
rewind(99)
read (99,*, iostat=stat) var
-if (stat /= 0 .or. var /= 1.0) STOP 4
+if (stat /= 0 .or. var /= 1.0) stop 4
read (99,*, iostat=stat) var
-if (stat /= 0 .or. var /= 2.0) STOP 5
+if (stat /= 0 .or. var /= 2.0) stop 5
read (99,*, iostat=stat) var ! << FAILS: stat /= 0
-if (stat /= 0 .or. var /= 3.0) STOP 6
+if (stat /= 0 .or. var /= 3.0) stop 6
close(99, status="delete")
! Test real kind with exponents
open(99, file="test.dat")
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 7
+if (stat /= 0) stop 7
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 8
+if (stat /= 0) stop 8
read (99,*) var ! << FAILS: stat /= 0
-if (stat /= 0) STOP 9
+if (stat /= 0) stop 9
close(99, status="delete")
! Test logical kind
open(99, file="test.dat")
read (99,*, iostat=stat) lvar
-if (stat /= 0 .or. (.not.lvar)) STOP 10
+if (stat /= 0 .or. (.not.lvar)) stop 10
read (99,*, iostat=stat) lvar
-if (stat /= 0 .or. lvar) STOP 11
+if (stat /= 0 .or. lvar) stop 11
read (99,*) lvar ! << FAILS: stat /= 0
-if (stat /= 0 .or. (.not.lvar)) STOP 12
+if (stat /= 0 .or. (.not.lvar)) stop 12
close(99, status="delete")
! Test combinations of Inf and Nan
open(99, file="test.dat")
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 13
+if (stat /= 0) stop 13
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 14
+if (stat /= 0) stop 14
read (99,*) var ! << FAILS: stat /= 0
-if (stat /= 0) STOP 1! << aborts here
+if (stat /= 0) stop 1! << aborts here
close(99, status="delete")
open(99, file="test.dat", access="stream", form="unformatted", status="new")
open(99, file="test.dat")
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 15
+if (stat /= 0) stop 15
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 16
+if (stat /= 0) stop 16
read (99,*) var ! << FAILS: stat /= 0
-if (stat /= 0) STOP 2! << aborts here
+if (stat /= 0) stop 2! << aborts here
close(99, status="delete")
open(99, file="test.dat", access="stream", form="unformatted", status="new")
open(99, file="test.dat")
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 17
+if (stat /= 0) stop 17
read (99,*, iostat=stat) var
-if (stat /= 0) STOP 18
+if (stat /= 0) stop 18
read (99,*) var ! << FAILS: stat /= 0
-if (stat /= 0) STOP 3! << aborts here
+if (stat /= 0) stop 3! << aborts here
close(99, status="delete")
! Test complex kind
open(99, file="test.dat")
read (99,*, iostat=stat) cval
-if (stat /= 0 .or. cval /= cmplx(1,2)) STOP 19
+if (stat /= 0 .or. cval /= cmplx(1,2)) stop 19
read (99,*, iostat=stat) cval
-if (stat /= 0 .or. cval /= cmplx(2,3)) STOP 20
+if (stat /= 0 .or. cval /= cmplx(2,3)) stop 20
read (99,*, iostat=stat) cval ! << FAILS: stat /= 0, value is okay
-if (stat /= 0 .or. cval /= cmplx(4,5)) STOP 21
+if (stat /= 0 .or. cval /= cmplx(4,5)) stop 21
close(99, status="delete")
end
write (10, *) 42
flush(unit=10, iostat=ios)
- if (ios /= 0) STOP 1
+ if (ios /= 0) stop 1
write (10, *) 42
flush (unit=10, err=20)
goto 30
-20 STOP 2
+20 stop 2
30 continue
call flush(10)
rewind(myunit)
rewind(myunit2)
read(myunit2,'(a)') str
- if (str.ne." abcdefghijklmnop") STOP 1
+ if (str.ne." abcdefghijklmnop") stop 1
close(myunit)
close(myunit2, status="delete")
end program newunit_1
!$omp do
do i = 0, 999
!$omp cancel do
- if (omp_get_cancellation ()) STOP 1
+ if (omp_get_cancellation ()) stop 1
enddo
!$omp endparallel
end
!$omp do
do i = 0, 999
!$omp cancel do if (x(1))
- STOP 1
+ stop 1
end do
!$omp do
do i = 0, 999
end do
!$omp end do
!$omp end parallel
- if (v.ne.3000.or.w.ne.0) STOP 2
+ if (v.ne.3000.or.w.ne.0) stop 2
!$omp parallel num_threads (32) shared (v, w)
! None of these cancel directives should actually cancel anything,
! but the compiler shouldn't know that and thus should use cancellable
!$omp do
do i = 0, 999
!$omp cancel do if (x(1))
- STOP 3
+ stop 3
end do
!$omp cancel parallel if (omp_get_thread_num ().eq.2.and.x(5))
!$omp do
!$omp end do
!$omp cancel parallel if (omp_get_thread_num ().eq.5.and.x(5))
!$omp end parallel
- if (v.ne.6000.or.w.ne.0) STOP 4
+ if (v.ne.6000.or.w.ne.0) stop 4
end subroutine
end
!$omp parallel num_threads(32)
!$omp cancel parallel
- if (omp_get_cancellation ()) STOP 1
+ if (omp_get_cancellation ()) stop 1
!$omp end parallel
end
!$omp parallel num_threads(32)
!$omp sections
!$omp cancel sections
- STOP 1
+ stop 1
!$omp section
!$omp cancel sections
- STOP 2
+ stop 2
!$omp section
!$omp cancel sections
- STOP 3
+ stop 3
!$omp section
!$omp cancel sections
- STOP 4
+ stop 4
!$omp end sections
!$omp end parallel
end if
!$omp taskgroup
!$omp task
!$omp cancel taskgroup
- STOP 1
+ stop 1
!$omp endtask
!$omp endtaskgroup
!$omp endparallel
l = l .or. f .ne. 'YY' .or. p .ne. 'm3' .or. r .ne. 'M3'
end if
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine test
end
l = l .or. t .ne. '456'
end if
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine test
end
end do
end do
!$omp end parallel do
- if (l) STOP 1
+ if (l) stop 1
end program collapse1
end do
end do firstdo
!$omp end parallel do
- if (l) STOP 1
+ if (l) stop 1
end subroutine test1
subroutine test2
enddo
enddo dokk
115 continue
- if (any(a(1:3,1:3,1:3).ne.1)) STOP 2
+ if (any(a(1:3,1:3,1:3).ne.1)) stop 2
!$omp do collapse(3)
dol: do 120 l=1,3
enddo
enddo doll
120 end do dol
- if (any(a(1:3,1:3,1:3).ne.2)) STOP 3
+ if (any(a(1:3,1:3,1:3).ne.2)) stop 3
end subroutine test2
end program collapse2
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 1
- if (m.ne.(600+40+18)) STOP 2
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 1
+ if (m.ne.(600+40+18)) stop 2
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 3
- if (m.ne.(600+40+18)) STOP 4
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 3
+ if (m.ne.(600+40+18)) stop 4
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 5
- if (m.ne.(600+40+18)) STOP 6
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 5
+ if (m.ne.(600+40+18)) stop 6
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 7
- if (m.ne.(600+40+18)) STOP 8
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 7
+ if (m.ne.(600+40+18)) stop 8
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 9
- if (m.ne.(600+40+18)) STOP 10
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 9
+ if (m.ne.(600+40+18)) stop 10
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 11
- if (m.ne.(600+40+18)) STOP 12
+ if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 11
+ if (m.ne.(600+40+18)) stop 12
do i = 1, 7
do j = -3, 5
do k = 12, 19
end do
end do
end do
- if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) STOP 1
+ if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) stop 1
end
l = l .or. p .ne. 3
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
l = .false.
!$omp parallel num_threads (2) reduction (.or.:l) default (private)
l = l .or. p .ne. 3 * omp_get_thread_num () + 5
!$omp end parallel
- if (l) STOP 2
+ if (l) stop 2
end
l = l .or. (p .ne. d + 1)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end
l = l .or. (p .ne. (2 + omp_get_thread_num ()))
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
l = .false.
ip = loc (a)
l = l .or. (p .ne. (2 + i))
end do
- if (l) STOP 2
- if (p .ne. 3) STOP 3
+ if (l) stop 2
+ if (p .ne. 3) stop 3
end
do i = 1, 128
b(i) = bar (a(i), 2 * i, b(i))
end do
- if (any (b.ne.d)) STOP 1
+ if (any (b.ne.d)) stop 1
!$omp simd
do i = 1, 128
b(i) = i * 2.0
b(i) = baz (7.0_8, 2, b(i))
end do
do i = 1, 128
- if (b(i).ne.(7.0 + 4.0 * i)) STOP 2
+ if (b(i).ne.(7.0 + 4.0 * i)) stop 2
end do
contains
function baz (x, y, z)
b(i) = foo (7.0_8, 5 * i, b(i))
end do
do i = 1, 128
- if (b(i).ne.(7.0 + 10.0 * i * i)) STOP 1
+ if (b(i).ne.(7.0 + 10.0 * i * i)) stop 1
end do
end subroutine bar
!$omp end target
!$omp target update from(var_x)
- if (var_x /= 20) STOP 1
+ if (var_x /= 20) stop 1
end subroutine foo
x = 2
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 1
+ if (x.ne.2) stop 1
!$omp end task
!$omp end single
!$omp end parallel
x = 2
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 2
+ if (x.ne.2) stop 2
!$omp end task
!$omp taskwait
!$omp end single
x = 2
!$omp endtask
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 3
+ if (x.ne.2) stop 3
!$omp endtask
!$omp endsingle
!$omp endparallel
x = 2
!$omp end task
!$omp task depend(in: x)
- if (x.ne.1) STOP 4
+ if (x.ne.1) stop 4
!$omp end task
!$omp end single
!$omp end parallel
!$omp parallel
!$omp single
!$omp task shared(x) depend(in: x)
- if (x.ne.1) STOP 5
+ if (x.ne.1) stop 5
!$omp end task
!$omp task shared(x) depend(out: x)
x = 2
x = 1
!$omp taskgroup
!$omp task shared(x) depend(in: x)
- if (x.ne.1) STOP 6
+ if (x.ne.1) stop 6
!$omp end task
!$omp task shared(x) depend(out: x)
x = 2
x = 1
!$omp single
!$omp task shared(x) depend(in: x)
- if (x.ne.1) STOP 7
+ if (x.ne.1) stop 7
!$omp end task
!$omp task shared(x) depend(out: x)
x = 2
x = 2
!$omp end task
!$omp taskwait
- if (x.ne.2) STOP 8
+ if (x.ne.2) stop 8
!$omp end single
!$omp end parallel
end subroutine outdep
x = 2
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 9
+ if (x.ne.2) stop 9
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 10
+ if (x.ne.2) stop 10
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 11
+ if (x.ne.2) stop 11
!$omp end task
!$omp end single
!$omp end parallel
x = 2;
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 12
+ if (x.ne.2) stop 12
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 13
+ if (x.ne.2) stop 13
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 14
+ if (x.ne.2) stop 14
!$omp end task
!$omp taskwait
!$omp end single
x = 2
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 15
+ if (x.ne.2) stop 15
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 16
+ if (x.ne.2) stop 16
!$omp end task
!$omp task shared (x) depend(in: x)
- if (x.ne.2) STOP 17
+ if (x.ne.2) stop 17
!$omp end task
!$omp end single
!$omp end parallel
!$omp single
!$omp taskgroup
!$omp task depend(in: x(:, :))
- if (y.ne.1) STOP 1
+ if (y.ne.1) stop 1
!$omp end task
!$omp task depend(out: x(:, :))
y = 2
!$omp end taskgroup
!$omp taskgroup
!$omp task depend(in: x(4, 7))
- if (y.ne.2) STOP 2
+ if (y.ne.2) stop 2
!$omp end task
!$omp task depend(out: x(4:4, 7:7))
y = 3
!$omp end taskgroup
!$omp taskgroup
!$omp task depend(in: x(4:, 8:))
- if (y.ne.3) STOP 3
+ if (y.ne.3) stop 3
!$omp end task
!$omp task depend(out: x(4:6, 8:12))
y = 4
!$omp end taskgroup
!$omp end single
!$omp end parallel
- if (y.ne.4) STOP 4
+ if (y.ne.4) stop 4
end
!$omp single
!$omp taskgroup
!$omp task depend(in: x)
- if (y.ne.1) STOP 1
+ if (y.ne.1) stop 1
!$omp end task
!$omp task depend(out: x(1:2, 1:3))
y = 2
!$omp end taskgroup
!$omp taskgroup
!$omp task depend(in: z)
- if (y.ne.2) STOP 2
+ if (y.ne.2) stop 2
!$omp end task
!$omp task depend(out: z(-2:3, 2:4))
y = 3
!$omp end taskgroup
!$omp taskgroup
!$omp task depend(in: x)
- if (y.ne.3) STOP 3
+ if (y.ne.3) stop 3
!$omp end task
!$omp task depend(out: x(1:, 1:))
y = 4
!$omp end taskgroup
!$omp end single
!$omp end parallel
- if (y.ne.4) STOP 4
+ if (y.ne.4) stop 4
end subroutine
end
!$omp end parallel
- if (any (a .ne. b)) STOP 1
+ if (any (a .ne. b)) stop 1
a = -1
!$omp parallel num_threads (4)
!$omp end parallel
- if (any (a .ne. b)) STOP 2
+ if (any (a .ne. b)) stop 2
a = -1
!$omp parallel num_threads (4)
!$omp end parallel
- if (any (a .ne. b)) STOP 3
+ if (any (a .ne. b)) stop 3
a = -1
!$omp parallel num_threads (4)
!$omp end parallel
- if (any (a .ne. b)) STOP 4
+ if (any (a .ne. b)) stop 4
a = -1
!$omp parallel num_threads (4)
!$omp end parallel
- if (any (a .ne. b)) STOP 5
+ if (any (a .ne. b)) stop 5
end
!$omp end parallel
- if (any (a .ne. b) .or. k) STOP 1
+ if (any (a .ne. b) .or. k) stop 1
a = -1
k = .false.
j = 8
!$omp end parallel
- if (any (a .ne. b) .or. k) STOP 2
+ if (any (a .ne. b) .or. k) stop 2
a = -1
k = .false.
j = 8
!$omp end parallel
- if (any (a .ne. b) .or. k) STOP 3
+ if (any (a .ne. b) .or. k) stop 3
a = -1
k = .false.
j = 8
!$omp end parallel
- if (any (a .ne. b) .or. k) STOP 4
+ if (any (a .ne. b) .or. k) stop 4
a = -1
k = .false.
j = 8
!$omp end parallel
- if (any (a .ne. b) .or. k) STOP 5
+ if (any (a .ne. b) .or. k) stop 5
end
do concurrent (i = 1:nsplit)
pi(i) = sum(compute( low(i), high(i) ))
end do
- if (abs (sum(pi) - atan(1.0d0)) > 1e-5) STOP 1
+ if (abs (sum(pi) - atan(1.0d0)) > 1e-5) stop 1
contains
if (i.gt.1) then
!$omp atomic read
l = a(i - 1)
- if (l.lt.2) STOP 1
+ if (l.lt.2) stop 1
end if
!$omp atomic write
a(i) = 2
if (i.lt.N) then
!$omp atomic read
l = a(i + 1)
- if (l.eq.3) STOP 2
+ if (l.eq.3) stop 2
end if
!$omp ordered depend(source)
!$omp atomic write
if (j.gt.2.and.k.gt.2) then
!$omp atomic read
l = b(i,j-2,k-1)
- if (l.lt.2) STOP 3
+ if (l.lt.2) stop 3
end if
!$omp atomic write
b(i,j,k) = 2
if (i.gt.4.and.j.gt.2.and.k.lt.4) then
!$omp atomic read
l = b(i-2,j-2, k+1)
- if (l.lt.2) STOP 4
+ if (l.lt.2) stop 4
end if
if (i.gt.5.and.j.le.N/16-3.and.k.eq.4) then
!$omp atomic read
l = b( i - 3, j+2, k-2)
- if (l.lt.2) STOP 5
+ if (l.lt.2) stop 5
end if
!$omp ordered depend(source)
!$omp atomic write
if (k.le.5) then
!$omp atomic read
l = c(i, j, k + 2)
- if (l.lt.2) STOP 6
+ if (l.lt.2) stop 6
end if
!$omp atomic write
c(i, j, k) = 2
if (i.ge.3.and.j.lt.8.and.k.ge.5) then
!$omp atomic read
l = c(i - 2, j + 1, k - 4)
- if (l.lt.2) STOP 7
+ if (l.lt.2) stop 7
end if
if (i.ge.2.and.j.ge.5.and.k.ge.3) then
!$omp atomic read
l = c(i - 1, j - 2, k - 2)
- if (l.lt.2) STOP 8
+ if (l.lt.2) stop 8
end if
!$omp ordered depend ( source )
!$omp atomic write
do l = 0, d + 1
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 9
+ if (e.eq.0) stop 9
end do
end do
end do
end do
!$omp single
- if (i.ne.1.or.j.ne.-1.or.k.ne.0) STOP 10
+ if (i.ne.1.or.j.ne.-1.or.k.ne.0) stop 10
i = 8; j = 9; k = 10
!$omp end single
!$omp do ordered(4) collapse(2) lastprivate (i, j, k, m)
do m = 0, d-1
!$omp ordered depend(source)
!$omp ordered depend(sink: i - 2, j + 2, k - 2, m)
- STOP 11
+ stop 11
end do
end do
end do
end do
!$omp single
- if (i.ne.1.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 12
+ if (i.ne.1.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 12
!$omp end single
!$omp do collapse(2) ordered(4) lastprivate (i,j,k)
do i = 0, d
do l = 0, d + 3
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 13
+ if (e.eq.0) stop 13
end do
end do
end do
!$omp end do nowait
!$omp do
do i = 1, N
- if (a(i) .ne. 3) STOP 14
+ if (a(i) .ne. 3) stop 14
end do
!$omp end do nowait
!$omp do collapse(2) private(k)
do j = 1, 8
do k = 1, 4
if (i.ge.3.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then
- if (b(i,j,k).ne.3) STOP 15
+ if (b(i,j,k).ne.3) stop 15
else
- if (b(i,j,k).ne.0) STOP 16
+ if (b(i,j,k).ne.0) stop 16
end if
end do
end do
do j = 1, 8
do k = 1, 4
if (j.ge.3.and.iand(k,1).ne.0) then
- if (c(i,j,k).ne.3) STOP 17
+ if (c(i,j,k).ne.3) stop 17
else
- if (c(i,j,k).ne.0) STOP 18
+ if (c(i,j,k).ne.0) stop 18
end if
end do
end do
if (i.gt.2) then
!$omp atomic read
l = a(i - 1)
- if (l.lt.2) STOP 1
+ if (l.lt.2) stop 1
end if
!$omp atomic write
a(i) = 2
if (i.lt.N) then
!$omp atomic read
l = a(i + 1)
- if (l.eq.3) STOP 2
+ if (l.eq.3) stop 2
end if
!$omp ordered depend(source)
!$omp atomic write
if (j.gt.2.and.k.gt.2) then
!$omp atomic read
l = b(i,j-2,k-1)
- if (l.lt.2) STOP 3
+ if (l.lt.2) stop 3
end if
!$omp atomic write
b(i,j,k) = 2
if (i.gt.5.and.j.gt.2.and.k.lt.4) then
!$omp atomic read
l = b(i-2,j-2, k+1)
- if (l.lt.2) STOP 4
+ if (l.lt.2) stop 4
end if
if (i.gt.6.and.j.le.N/16-3.and.k.eq.4) then
!$omp atomic read
l = b( i - 3, j+2, k-2)
- if (l.lt.2) STOP 5
+ if (l.lt.2) stop 5
end if
!$omp ordered depend(source)
!$omp atomic write
if (k.le.5) then
!$omp atomic read
l = c(i, j, k + 2)
- if (l.lt.2) STOP 6
+ if (l.lt.2) stop 6
end if
!$omp atomic write
c(i, j, k) = 2
if (i.ge.5.and.j.lt.8.and.k.ge.5) then
!$omp atomic read
l = c(i - 2, j + 1, k - 4)
- if (l.lt.2) STOP 7
+ if (l.lt.2) stop 7
end if
if (i.ge.4.and.j.ge.5.and.k.ge.3) then
!$omp atomic read
l = c(i - 1, j - 2, k - 2)
- if (l.lt.2) STOP 8
+ if (l.lt.2) stop 8
end if
!$omp ordered depend ( source )
!$omp atomic write
if (k.gt.2.and.i.gt.4) then
!$omp atomic read
l = g(j,k-2,i-1)
- if (l.lt.2) STOP 9
+ if (l.lt.2) stop 9
end if
!$omp atomic write
g(j,k,i) = 2
if (j.gt.2.and.k.gt.2.and.i.lt.6) then
!$omp atomic read
l = g(j-2,k-2, i+1)
- if (l.lt.2) STOP 10
+ if (l.lt.2) stop 10
end if
if (j.gt.3.and.k.le.N/16-3.and.i.eq.6) then
!$omp atomic read
l = g( j - 3, k+2, i-2)
- if (l.lt.2) STOP 11
+ if (l.lt.2) stop 11
end if
!$omp ordered depend(source)
!$omp atomic write
do l = 0, d + 1
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 12
+ if (e.eq.0) stop 12
end do
end do
end do
end do
!$omp single
- if (i.ne.3.or.j.ne.-1.or.k.ne.0) STOP 13
+ if (i.ne.3.or.j.ne.-1.or.k.ne.0) stop 13
i = 8; j = 9; k = 10
!$omp end single
!$omp do ordered(4) collapse(2) lastprivate (i, j, k, m)
do m = 0, d-1
!$omp ordered depend(source)
!$omp ordered depend(sink: i - 2, j + 2, k - 2, m)
- STOP 14
+ stop 14
end do
end do
end do
end do
!$omp single
- if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 15
+ if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 15
!$omp end single
!$omp do collapse(2) ordered(4) lastprivate (i,j,k)
do i = 2, f + 2
do l = 0, d + 3
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 16
+ if (e.eq.0) stop 16
end do
end do
end do
end do
!$omp end do nowait
!$omp single
- if (a(1) .ne. 0) STOP 17
+ if (a(1) .ne. 0) stop 17
!$omp end single nowait
!$omp do
do i = 2, N
- if (a(i) .ne. 3) STOP 18
+ if (a(i) .ne. 3) stop 18
end do
!$omp end do nowait
!$omp do collapse(2) private(k)
do j = 1, 8
do k = 1, 4
if (i.ge.4.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then
- if (b(i,j,k).ne.3) STOP 19
+ if (b(i,j,k).ne.3) stop 19
else
- if (b(i,j,k).ne.0) STOP 20
+ if (b(i,j,k).ne.0) stop 20
end if
end do
end do
do j = 1, 8
do k = 1, 4
if (i.ge.3.and.j.ge.3.and.iand(k,1).ne.0) then
- if (c(i,j,k).ne.3) STOP 21
+ if (c(i,j,k).ne.3) stop 21
else
- if (c(i,j,k).ne.0) STOP 22
+ if (c(i,j,k).ne.0) stop 22
end if
end do
end do
do j = 1, 8
do k = 1, 6
if (i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.4) then
- if (g(i,j,k).ne.3) STOP 23
+ if (g(i,j,k).ne.3) stop 23
else
- if (g(i,j,k).ne.0) STOP 24
+ if (g(i,j,k).ne.0) stop 24
end if
end do
end do
if (i.gt.2) then
!$omp atomic read
l = a(i - 1)
- if (l.lt.2) STOP 1
+ if (l.lt.2) stop 1
end if
!$omp atomic write
a(i) = 2
if (i.lt.N) then
!$omp atomic read
l = a(i + 1)
- if (l.eq.3) STOP 2
+ if (l.eq.3) stop 2
end if
!$omp ordered depend(source)
!$omp atomic write
if (j.gt.2.and.k.gt.2) then
!$omp atomic read
l = b(i,j-2,k-1)
- if (l.lt.2) STOP 3
+ if (l.lt.2) stop 3
end if
!$omp atomic write
b(i,j,k) = 2
if (i.gt.5.and.j.gt.2.and.k.lt.4) then
!$omp atomic read
l = b(i-2,j-2, k+1)
- if (l.lt.2) STOP 4
+ if (l.lt.2) stop 4
end if
if (i.gt.6.and.j.le.N/16-3.and.k.eq.4) then
!$omp atomic read
l = b( i - 3, j+2, k-2)
- if (l.lt.2) STOP 5
+ if (l.lt.2) stop 5
end if
!$omp ordered depend(source)
!$omp atomic write
if (k.le.5) then
!$omp atomic read
l = c(i, j, k + 2)
- if (l.lt.2) STOP 6
+ if (l.lt.2) stop 6
end if
!$omp atomic write
c(i, j, k) = 2
if (i.ge.5.and.j.lt.8.and.k.ge.5) then
!$omp atomic read
l = c(i - 2, j + 1, k - 4)
- if (l.lt.2) STOP 7
+ if (l.lt.2) stop 7
end if
if (i.ge.4.and.j.ge.5.and.k.ge.3) then
!$omp atomic read
l = c(i - 1, j - 2, k - 2)
- if (l.lt.2) STOP 8
+ if (l.lt.2) stop 8
end if
!$omp ordered depend ( source )
!$omp atomic write
if (k.gt.2.and.i.gt.4) then
!$omp atomic read
l = g(j,k-2,i-1)
- if (l.lt.2) STOP 9
+ if (l.lt.2) stop 9
end if
!$omp atomic write
g(j,k,i) = 2
if (j.gt.2.and.k.gt.2.and.i.lt.6) then
!$omp atomic read
l = g(j-2,k-2, i+1)
- if (l.lt.2) STOP 10
+ if (l.lt.2) stop 10
end if
if (j.gt.3.and.k.le.N/16-3.and.i.eq.6) then
!$omp atomic read
l = g( j - 3, k+2, i-2)
- if (l.lt.2) STOP 11
+ if (l.lt.2) stop 11
end if
!$omp ordered depend(source)
!$omp atomic write
do l = 0, d + 1, 1 + d
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 12
+ if (e.eq.0) stop 12
end do
end do
end do
end do
!$omp single
- if (i.ne.3.or.j.ne.-1.or.k.ne.0) STOP 13
+ if (i.ne.3.or.j.ne.-1.or.k.ne.0) stop 13
i = 8; j = 9; k = 10
!$omp end single
!$omp do ordered(4) collapse(2) lastprivate (i, j, k, m)
do m = 0, d-1, d+1
!$omp ordered depend(source)
!$omp ordered depend(sink: i - 2, j + 2, k - 2, m)
- STOP 14
+ stop 14
end do
end do
end do
end do
!$omp single
- if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 15
+ if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 15
!$omp end single
!$omp do collapse(2) ordered(4) lastprivate (i,j,k)
do i = 2, f + 2, 1 + f
do l = 0, d + 3, d + 1
!$omp ordered depend(source)
!$omp ordered depend(sink: i-2,j+2,k-2,l)
- if (e.eq.0) STOP 16
+ if (e.eq.0) stop 16
end do
end do
end do
end do
!$omp end do nowait
!$omp single
- if (a(1) .ne. 0) STOP 17
+ if (a(1) .ne. 0) stop 17
!$omp end single nowait
!$omp do
do i = 2, N
- if (a(i) .ne. 3) STOP 18
+ if (a(i) .ne. 3) stop 18
end do
!$omp end do nowait
!$omp do collapse(2) private(k)
do j = 1, 8
do k = 1, 4
if (i.ge.4.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then
- if (b(i,j,k).ne.3) STOP 19
+ if (b(i,j,k).ne.3) stop 19
else
- if (b(i,j,k).ne.0) STOP 20
+ if (b(i,j,k).ne.0) stop 20
end if
end do
end do
do j = 1, 8
do k = 1, 4
if (i.ge.3.and.j.ge.3.and.iand(k,1).ne.0) then
- if (c(i,j,k).ne.3) STOP 21
+ if (c(i,j,k).ne.3) stop 21
else
- if (c(i,j,k).ne.0) STOP 22
+ if (c(i,j,k).ne.0) stop 22
end if
end do
end do
do j = 1, 8
do k = 1, 6
if (i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.4) then
- if (g(i,j,k).ne.3) STOP 23
+ if (g(i,j,k).ne.3) stop 23
else
- if (g(i,j,k).ne.0) STOP 24
+ if (g(i,j,k).ne.0) stop 24
end if
end do
end do
p(9) = 777
!$omp end target
!$omp end target data
- if (A(3) /= 777 .or. A(9) /= 777) STOP 1
+ if (A(3) /= 777 .or. A(9) /= 777) stop 1
end subroutine
end
A(9) = 999
!$omp end target
!$omp end target data
- if (A(3) /= 777 .or. A(9) /= 999) STOP 1
+ if (A(3) /= 777 .or. A(9) /= 999) stop 1
end subroutine
end
else
err = (Y(i) - Z(i)) / Z(i)
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
!$omp target data map(to: v1, v2, N) map(from: p)
!$omp task shared(v1, v2, p) depend(out: v1, v2)
!$omp target map(to: v1, v2, N)
- if (omp_is_initial_device ()) STOP 2
+ if (omp_is_initial_device ()) stop 2
allocate (v1(N), v2(N))
call init (v1, v2, N)
!$omp end target
!$omp end task
!$omp task shared(v1, v2, p) depend(in: v1, v2)
!$omp target map(to: v1, v2, N) map(from: p)
- if (omp_is_initial_device ()) STOP 3
+ if (omp_is_initial_device ()) stop 3
!$omp parallel do
do i = 1, N
p(i) = v1(i) * v2(i)
program e_53_1
use e_53_1_mod, only : fib, fib_wrapper
- if (fib (15) /= fib_wrapper (15)) STOP 1
+ if (fib (15) /= fib_wrapper (15)) stop 1
! Reduced from 25 to 23, otherwise execution runs out of thread stack on
! Nvidia Titan V.
- if (fib (23) /= fib_wrapper (23)) STOP 2
+ if (fib (23) /= fib_wrapper (23)) stop 2
end program
! Nvidia Titan V.
x = fib (23)
!$omp end target
- if (x /= fib (23)) STOP 1
+ if (x /= fib (23)) stop 1
end program
integer recursive function fib (n) result (f)
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
else
err = (a - b) / b
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end subroutine
program e_53_4
else
err = (a - b) / b
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end subroutine
program e_53_5
!$omp end target
!$omp end target data
- if (b /= 100 .or. .not. c .or. d) STOP 1
+ if (b /= 100 .or. .not. c .or. d) stop 1
a = a + 200
b = 0
!$omp end target
!$omp end target data
- if (b /= 0 .or. c .or. d) STOP 2
+ if (b /= 0 .or. c .or. d) stop 2
a = a + 200
b = 0
!$omp end target
!$omp end target data
- if (b /= 100 .or. .not. c .or. d) STOP 3
+ if (b /= 100 .or. .not. c .or. d) stop 3
end program
end do
do i = 1, num
- if (offload(i)) STOP 1
+ if (offload(i)) stop 1
end do
do i = num+1, N
- if (.not. offload(i)) STOP 2
+ if (.not. offload(i)) stop 2
end do
end program
!$omp target map(from: res)
res = omp_is_initial_device ()
!$omp end target
- if (res) STOP 1
+ if (res) stop 1
call omp_set_default_device (omp_get_num_devices ())
!$omp target map(from: res)
res = omp_is_initial_device ()
!$omp end target
- if (.not. res) STOP 2
+ if (.not. res) stop 2
end program
double precision :: diff, a(*), b(*)
do i = 1, n
diff = a(i) - b(i)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
double precision :: diff, a(*), b(*)
do i = 1, n
diff = a(i) - b(i)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
end module
diff = sum - sum_ref
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end program
real :: diff, a(*), b(*)
do i = 1, n
diff = a(i) - b(i)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
do j = 1, n
do i = 1, n
diff = a(i,j) - b(i,j)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end do
end subroutine
real :: diff, a(*), b(*)
do i = 1, n
diff = a(i) - b(i)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
subroutine checkint (a, b, n)
integer :: i, n, a(*), b(*)
do i = 1, n
- if (a(i) .ne. b(i)) STOP 2
+ if (a(i) .ne. b(i)) stop 2
end do
end subroutine
call fib_ref (a_ref, N)
do i = 0, N-1
- if (a(i) .ne. a_ref(i)) STOP 1
+ if (a(i) .ne. a_ref(i)) stop 1
end do
end program
diff = pri - 8237.25
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end program
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real, pointer, dimension(:) :: p
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: p(N), v1(N), v2(N)
call init (v1, v2, N)
!$omp target if(N > THRESHOLD1) map(to: v1,v2) map(from: p)
- if (omp_is_initial_device ()) STOP 2
+ if (omp_is_initial_device ()) stop 2
!$omp parallel do if(N > THRESHOLD2)
do i = 1, N
p(i) = v1(i) * v2(i)
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - 2 * (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
do k = 1, cols
do i = 1, rows
diff = P(i,k) - Q(i,k)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - 2 * (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
call init (v1, v2, N)
!$omp target data if(N > THRESHOLD) map(from: p)
!$omp target if(N > THRESHOLD) map(to: v1, v2)
- if (omp_is_initial_device ()) STOP 2
+ if (omp_is_initial_device ()) stop 2
!$omp parallel do
do i = 1, N
p(i) = v1(i) * v2(i)
!$omp end target
call init_again (v1, v2, N)
!$omp target if(N > THRESHOLD) map(to: v1, v2)
- if (omp_is_initial_device ()) STOP 3
+ if (omp_is_initial_device ()) stop 3
!$omp parallel do
do i = 1, N
p(i) = p(i) + v1(i) * v2(i)
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
call init (v1, v2, N)
!$omp target data if(N > THRESHOLD) map(to: v1, v2) map(from: p)
!$omp target
- if (omp_is_initial_device ()) STOP 2
+ if (omp_is_initial_device ()) stop 2
!$omp parallel do
do i = 1, N
p(i) = v1(i) * v2(i)
real :: diff, p(N)
do i = 1, N
diff = p(i) - 2 * (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff, p(N)
do i = 1, N
diff = p(i) - (i * i + (i + 2.0) * (i - 3.0))
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
x = 2
!$omp end task
!$omp task shared(x) depend(in: x)
- if (x .ne. 2) STOP 1
+ if (x .ne. 2) stop 1
!$omp end task
!$omp end single
!$omp end parallel
!$omp parallel
!$omp single
!$omp task shared(x) depend(in: x)
- if (x .ne. 1) STOP 1
+ if (x .ne. 1) stop 1
!$omp end task
!$omp task shared(x) depend(out: x)
x = 2
x = 2
!$omp end task
!$omp taskwait
- if ((x .ne. 1) .and. (x .ne. 2)) STOP 1
+ if ((x .ne. 1) .and. (x .ne. 2)) stop 1
!$omp end single
!$omp end parallel
end program
x = 2
!$omp end task
!$omp task shared(x) depend(in: x)
- if (x .ne. 2) STOP 1
+ if (x .ne. 2) stop 1
!$omp end task
!$omp task shared(x) depend(in: x)
- if (x .ne. 2) STOP 2
+ if (x .ne. 2) stop 2
!$omp end task
!$omp end single
!$omp end parallel
do j = 1, N
diff = A(i, j) - B(i, j)
if (diff > EPS .or. -diff > EPS) then
- STOP 1
+ stop 1
end if
end do
end do
else
err = (a - b) / b
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end subroutine
program e_54_1
else
err = (a - b) / b
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end subroutine
program e_54_3
else
err = (a - b) / b
end if
- if (err > EPS .or. err < -EPS) STOP 1
+ if (err > EPS .or. err < -EPS) stop 1
end subroutine
program e_54_4
real :: diff
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
real :: diff
do i = 1, N
diff = p(i) - (i + 2.0) * (i - 3.0)
- if (diff > EPS .or. -diff > EPS) STOP 1
+ if (diff > EPS .or. -diff > EPS) stop 1
end do
end subroutine
!$omp parallel num_threads (4)
call test1
!$omp end parallel
- if (i .ne. 21) STOP 1
+ if (i .ne. 21) stop 1
!$omp parallel num_threads (4)
call test2
!$omp end parallel
- if (i .ne. 64) STOP 2
+ if (i .ne. 64) stop 2
!$omp parallel num_threads (4)
call test3
!$omp end parallel
- if (i .ne. 14) STOP 3
+ if (i .ne. 14) stop 3
call test4
call test5
call test6
!$omp parallel do lastprivate (j) num_threads (4) default (none)
do j = 1, 20
end do
- if (j .ne. 21) STOP 4
+ if (j .ne. 21) stop 4
end subroutine test4
subroutine test5
integer :: j
!$omp parallel do lastprivate (j) num_threads (4) default (none)
do j = 7, 61, 3
end do
- if (j .ne. 64) STOP 5
+ if (j .ne. 64) stop 5
end subroutine test5
subroutine test6
integer :: j
!$omp parallel do lastprivate (j) num_threads (4) default (none)
do j = -10, 11, ret3 ()
end do
- if (j .ne. 14) STOP 6
+ if (j .ne. 14) stop 6
end subroutine test6
subroutine test7
integer :: i
!$omp parallel do lastprivate (i) num_threads (4) default (none)
do i = 1, 20
end do
- if (i .ne. 21) STOP 7
+ if (i .ne. 21) stop 7
end subroutine test7
subroutine test8
integer :: i
!$omp parallel do lastprivate (i) num_threads (4) default (none)
do i = 7, 61, 3
end do
- if (i .ne. 64) STOP 8
+ if (i .ne. 64) stop 8
end subroutine test8
subroutine test9
integer :: i
!$omp parallel do lastprivate (i) num_threads (4) default (none)
do i = -10, 11, ret3 ()
end do
- if (i .ne. 14) STOP 9
+ if (i .ne. 14) stop 9
end subroutine test9
subroutine test10
integer :: i
do i = 1, 20
end do
!$omp end parallel
- if (i .ne. 21) STOP 10
+ if (i .ne. 21) stop 10
end subroutine test10
subroutine test11
integer :: i
do i = 7, 61, 3
end do
!$omp end parallel
- if (i .ne. 64) STOP 11
+ if (i .ne. 64) stop 11
end subroutine test11
subroutine test12
integer :: i
do i = -10, 11, ret3 ()
end do
!$omp end parallel
- if (i .ne. 14) STOP 12
+ if (i .ne. 14) stop 12
end subroutine test12
end program lastprivate
!$omp parallel num_threads (4)
call test1
!$omp end parallel
- if (i .ne. 21 .or. k .ne. 20) STOP 1
+ if (i .ne. 21 .or. k .ne. 20) stop 1
!$omp parallel num_threads (4)
call test2
!$omp end parallel
- if (i .ne. 64 .or. k .ne. 61) STOP 2
+ if (i .ne. 64 .or. k .ne. 61) stop 2
!$omp parallel num_threads (4)
call test3
!$omp end parallel
- if (i .ne. 14 .or. k .ne. 11) STOP 3
+ if (i .ne. 14 .or. k .ne. 11) stop 3
call test4
call test5
call test6
do j = 1, 20
l = j
end do
- if (j .ne. 21 .or. l .ne. 20) STOP 4
+ if (j .ne. 21 .or. l .ne. 20) stop 4
end subroutine test4
subroutine test5
integer :: j, l
do j = 7, 61, 3
l = j
end do
- if (j .ne. 64 .or. l .ne. 61) STOP 5
+ if (j .ne. 64 .or. l .ne. 61) stop 5
end subroutine test5
subroutine test6
integer :: j, l
do j = -10, 11, ret3 ()
l = j
end do
- if (j .ne. 14 .or. l .ne. 11) STOP 6
+ if (j .ne. 14 .or. l .ne. 11) stop 6
end subroutine test6
subroutine test7
integer :: i, k
do i = 1, 20
k = i
end do
- if (i .ne. 21 .or. k .ne. 20) STOP 7
+ if (i .ne. 21 .or. k .ne. 20) stop 7
end subroutine test7
subroutine test8
integer :: i, k
do i = 7, 61, 3
k = i
end do
- if (i .ne. 64 .or. k .ne. 61) STOP 8
+ if (i .ne. 64 .or. k .ne. 61) stop 8
end subroutine test8
subroutine test9
integer :: i, k
do i = -10, 11, ret3 ()
k = i
end do
- if (i .ne. 14 .or. k .ne. 11) STOP 9
+ if (i .ne. 14 .or. k .ne. 11) stop 9
end subroutine test9
subroutine test10
integer :: i, k
k = i
end do
!$omp end parallel
- if (i .ne. 21 .or. k .ne. 20) STOP 10
+ if (i .ne. 21 .or. k .ne. 20) stop 10
end subroutine test10
subroutine test11
integer :: i, k
k = i
end do
!$omp end parallel
- if (i .ne. 64 .or. k .ne. 61) STOP 11
+ if (i .ne. 64 .or. k .ne. 61) stop 11
end subroutine test11
subroutine test12
integer :: i, k
k = i
end do
!$omp end parallel
- if (i .ne. 14 .or. k .ne. 11) STOP 12
+ if (i .ne. 14 .or. k .ne. 11) stop 12
end subroutine test12
end program lastprivate
call omp_init_lock (lck)
call omp_set_lock (lck)
- if (omp_test_lock (lck)) STOP 1
+ if (omp_test_lock (lck)) stop 1
call omp_unset_lock (lck)
- if (.not. omp_test_lock (lck)) STOP 2
- if (omp_test_lock (lck)) STOP 3
+ if (.not. omp_test_lock (lck)) stop 2
+ if (omp_test_lock (lck)) stop 3
call omp_unset_lock (lck)
call omp_destroy_lock (lck)
call omp_init_nest_lock (nlck)
- if (omp_test_nest_lock (nlck) .ne. 1) STOP 4
+ if (omp_test_nest_lock (nlck) .ne. 1) stop 4
call omp_set_nest_lock (nlck)
- if (omp_test_nest_lock (nlck) .ne. 3) STOP 5
+ if (omp_test_nest_lock (nlck) .ne. 3) stop 5
call omp_unset_nest_lock (nlck)
call omp_unset_nest_lock (nlck)
- if (omp_test_nest_lock (nlck) .ne. 2) STOP 6
+ if (omp_test_nest_lock (nlck) .ne. 2) stop 6
call omp_unset_nest_lock (nlck)
call omp_unset_nest_lock (nlck)
call omp_destroy_nest_lock (nlck)
call omp_set_dynamic (.true.)
- if (.not. omp_get_dynamic ()) STOP 7
+ if (.not. omp_get_dynamic ()) stop 7
call omp_set_dynamic (.false.)
- if (omp_get_dynamic ()) STOP 8
+ if (omp_get_dynamic ()) stop 8
call omp_set_nested (.true.)
- if (.not. omp_get_nested ()) STOP 9
+ if (.not. omp_get_nested ()) stop 9
call omp_set_nested (.false.)
- if (omp_get_nested ()) STOP 10
+ if (omp_get_nested ()) stop 10
call omp_set_num_threads (5)
- if (omp_get_num_threads () .ne. 1) STOP 11
- if (omp_get_max_threads () .ne. 5) STOP 12
- if (omp_get_thread_num () .ne. 0) STOP 13
+ if (omp_get_num_threads () .ne. 1) stop 11
+ if (omp_get_max_threads () .ne. 5) stop 12
+ if (omp_get_thread_num () .ne. 0) stop 13
call omp_set_num_threads (3)
- if (omp_get_num_threads () .ne. 1) STOP 14
- if (omp_get_max_threads () .ne. 3) STOP 15
- if (omp_get_thread_num () .ne. 0) STOP 16
+ if (omp_get_num_threads () .ne. 1) stop 14
+ if (omp_get_max_threads () .ne. 3) stop 15
+ if (omp_get_thread_num () .ne. 0) stop 16
l = .false.
!$omp parallel reduction (.or.:l)
l = omp_get_num_threads () .ne. 3
l = l .or. (omp_get_thread_num () .ne. 0)
!$omp end master
!$omp end parallel
- if (l) STOP 17
+ if (l) stop 17
- if (omp_get_num_procs () .le. 0) STOP 18
- if (omp_in_parallel ()) STOP 19
+ if (omp_get_num_procs () .le. 0) stop 18
+ if (omp_in_parallel ()) stop 19
!$omp parallel reduction (.or.:l)
l = .not. omp_in_parallel ()
!$omp end parallel
!$omp parallel reduction (.or.:l) if (.true.)
l = .not. omp_in_parallel ()
!$omp end parallel
- if (l) STOP 20
+ if (l) stop 20
e = omp_get_wtime ()
- if (d .gt. e) STOP 21
+ if (d .gt. e) stop 21
d = omp_get_wtick ()
! Negative precision is definitely wrong,
! bigger than 1s clock resolution is also strange
- if (d .le. 0 .or. d .gt. 1.) STOP 22
+ if (d .le. 0 .or. d .gt. 1.) stop 22
end
integer :: modifier
call omp_set_schedule (omp_sched_static, 32)
call omp_get_schedule (kind, modifier)
- if (kind.ne.omp_sched_static.or.modifier.ne.32) STOP 1
+ if (kind.ne.omp_sched_static.or.modifier.ne.32) stop 1
call omp_set_schedule (omp_sched_dynamic, 4)
call omp_get_schedule (kind, modifier)
- if (kind.ne.omp_sched_dynamic.or.modifier.ne.4) STOP 2
- if (omp_get_thread_limit ().lt.0) STOP 3
+ if (kind.ne.omp_sched_dynamic.or.modifier.ne.4) stop 2
+ if (omp_get_thread_limit ().lt.0) stop 3
call omp_set_max_active_levels (6)
- if (omp_get_max_active_levels ().ne.6) STOP 4
+ if (omp_get_max_active_levels ().ne.6) stop 4
end program lib4
l = .false.
call omp_init_nest_lock (lock)
- if (omp_test_nest_lock (lock) .ne. 1) STOP 1
- if (omp_test_nest_lock (lock) .ne. 2) STOP 2
+ if (omp_test_nest_lock (lock) .ne. 1) stop 1
+ if (omp_test_nest_lock (lock) .ne. 2) stop 2
!$omp parallel if (.false.) reduction (.or.:l)
! In OpenMP 2.5 this was supposed to return 3,
! but in OpenMP 3.0 the parallel region has a different
! task and omp_*_lock_t are owned by tasks, not by threads.
if (omp_test_nest_lock (lock) .ne. 0) l = .true.
!$omp end parallel
- if (l) STOP 3
- if (omp_test_nest_lock (lock) .ne. 3) STOP 4
+ if (l) stop 3
+ if (omp_test_nest_lock (lock) .ne. 3) stop 4
call omp_unset_nest_lock (lock)
call omp_unset_nest_lock (lock)
call omp_unset_nest_lock (lock)
l = .false.
call omp_init_nest_lock (lock)
!$omp parallel num_threads (1) reduction (.or.:l)
- if (omp_test_nest_lock (lock) .ne. 1) STOP 1
- if (omp_test_nest_lock (lock) .ne. 2) STOP 2
+ if (omp_test_nest_lock (lock) .ne. 1) stop 1
+ if (omp_test_nest_lock (lock) .ne. 2) stop 2
!$omp task if (.false.) shared (lock, l)
if (omp_test_nest_lock (lock) .ne. 0) l = .true.
!$omp end task
call omp_unset_nest_lock (lock)
call omp_unset_nest_lock (lock)
!$omp end parallel
- if (l) STOP 3
+ if (l) stop 3
call omp_destroy_nest_lock (lock)
end
e3 = 0
call omp_set_nested (.true.)
call omp_set_dynamic (.false.)
- if (omp_in_parallel ()) STOP 1
- if (omp_get_num_threads ().ne.1) STOP 2
- if (omp_get_level ().ne.0) STOP 3
- if (omp_get_ancestor_thread_num (0).ne.0) STOP 4
- if (omp_get_ancestor_thread_num (-1).ne.-1) STOP 5
- if (omp_get_ancestor_thread_num (1).ne.-1) STOP 6
- if (omp_get_team_size (0).ne.1) STOP 7
- if (omp_get_team_size (-1).ne.-1) STOP 8
- if (omp_get_team_size (1).ne.-1) STOP 9
- if (omp_get_active_level ().ne.0) STOP 10
+ if (omp_in_parallel ()) stop 1
+ if (omp_get_num_threads ().ne.1) stop 2
+ if (omp_get_level ().ne.0) stop 3
+ if (omp_get_ancestor_thread_num (0).ne.0) stop 4
+ if (omp_get_ancestor_thread_num (-1).ne.-1) stop 5
+ if (omp_get_ancestor_thread_num (1).ne.-1) stop 6
+ if (omp_get_team_size (0).ne.1) stop 7
+ if (omp_get_team_size (-1).ne.-1) stop 8
+ if (omp_get_team_size (1).ne.-1) stop 9
+ if (omp_get_active_level ().ne.0) stop 10
!$omp parallel num_threads (4) private (e, tn1)
e = 0
tn1 = omp_get_thread_num ()
!$omp end parallel
!$omp end parallel
!$omp end parallel
- if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) STOP 11
+ if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) stop 11
end program nested1
b = 2
c = 3
call foo
- if (a .ne. 7) STOP 1
+ if (a .ne. 7) stop 1
contains
subroutine foo
use omp_lib
if (a .ne. 7 .or. b .ne. 8 .or. c .ne. 9) l = .true.
end if
!$omp end parallel
- if (l) STOP 2
+ if (l) stop 2
end subroutine foo
end
subroutine test3
integer :: i
common /c/ i
- if (i .lt. 0 .or. i .ge. 4) STOP 1
- if (i + 10 .ne. vari) STOP 2
+ if (i .lt. 0 .or. i .ge. 4) stop 1
+ if (i + 10 .ne. vari) stop 2
end subroutine test3
subroutine test4
use omp_lib
integer :: j
j = 8
call bar
- if (j.ne.10) STOP 1
+ if (j.ne.10) stop 1
contains
subroutine foo (i)
integer :: i
call test1
call test2
do i = 1, 10
- if (a(i) .ne. 10 * i) STOP 1
+ if (a(i) .ne. 10 * i) stop 1
end do
!$omp parallel do reduction (+:c)
do i = 1, 10
c = c + a
end do
do i = 1, 10
- if (c(i) .ne. 10 * a(i)) STOP 2
+ if (c(i) .ne. 10 * a(i)) stop 2
end do
!$omp parallel do lastprivate (j)
do j = 1, 10, k
end do
- if (j .ne. 11) STOP 3
+ if (j .ne. 11) stop 3
contains
subroutine test1
integer :: i
!$omp parallel do lastprivate (j)
do j = 1, 10, k
end do
- if (j .ne. 11) STOP 4
+ if (j .ne. 11) stop 4
end subroutine test2
end program foo
b = b + 1
end do
!$omp end simd
- if (a /= 21 .or. b /= 12) STOP 1
+ if (a /= 21 .or. b /= 12) stop 1
!$omp simd aligned(f : c_sizeof (e(1)))
do b = 1, 64
g(b) = f
d(2:2,4:5) = d(2:2,4:5) + 1
!$omp end task
!$omp task depend(in : a, d(2:2,4:5))
- if (a /= 22) STOP 2
- if (any (d(2:2,4:5) /= 5)) STOP 3
+ if (a /= 22) stop 2
+ if (any (d(2:2,4:5) /= 5)) stop 3
!$omp end task
!$omp end taskgroup
!$omp end single
d(2:3,4:4) = 9
!$omp end target
!$omp target update from (a, q, d(2:3,4:4), l)
- if (a /= 6 .or. l .or. b /= 11 .or. any (q /= 8)) STOP 4
- if (any (d(2:3,4:4) /= 9) .or. d(2,5) /= 5 .or. d(3,5) /= 4) STOP 5
+ if (a /= 6 .or. l .or. b /= 11 .or. any (q /= 8)) stop 4
+ if (any (d(2:3,4:4) /= 9) .or. d(2,5) /= 5 .or. d(3,5) /= 4) stop 5
a = 12
b = 13
q = 14
m = 0
n = 64
o = 16
- if (l) STOP 6
+ if (l) stop 6
!$omp target teams distribute parallel do simd if (.not.l) device(a) &
!$omp & num_teams(b) dist_schedule(static, c) num_threads (h) &
!$omp & reduction (+: m) safelen (n) schedule(static, o) &
m = m + 1
end do
!$omp end target teams distribute parallel do simd
- if (m /= 64) STOP 7
+ if (m /= 64) stop 7
!$omp end target data
end subroutine foo
end subroutine bar
c = c * 2
!$omp atomic
d = 2 / d
- if (a .ne. 5 .or. b .ne. 2 .or. c .ne. 6 .or. d .ne. 0.5) STOP 1
+ if (a .ne. 5 .or. b .ne. 2 .or. c .ne. 6 .or. d .ne. 0.5) stop 1
d = 1.2
!$omp atomic
a = a + c + d
!$omp atomic
b = b - (a + c + d)
- if (a .ne. 12 .or. b .ne. -17) STOP 2
+ if (a .ne. 12 .or. b .ne. -17) stop 2
!$omp atomic
a = c + d + a
!$omp atomic
b = a + c + d - b
- if (a .ne. 19 .or. b .ne. 43) STOP 3
+ if (a .ne. 19 .or. b .ne. 43) stop 3
!$omp atomic
b = (a + c + d) - b
a = 32
!$omp atomic
a = a / 3.4
- if (a .ne. 9 .or. b .ne. -16) STOP 4
+ if (a .ne. 9 .or. b .ne. -16) stop 4
end
n = 20
call foo (r, d, n)
- if (n .ne. 22) STOP 1
- if (any (r .ne. 33)) STOP 2
+ if (n .ne. 22) stop 1
+ if (any (r .ne. 33)) stop 2
i = 1
j = 18
k = 23
!$omp atomic
i = min (i, j, k, n)
- if (i .ne. 1) STOP 3
+ if (i .ne. 1) stop 3
!$omp atomic
i = max (j, n, k, i)
- if (i .ne. 23) STOP 4
+ if (i .ne. 23) stop 4
a = 1
b = 18
c = 23
!$omp atomic
a = min (a, b, c)
- if (a .ne. 1) STOP 5
+ if (a .ne. 1) stop 5
!$omp atomic
a = max (a, b, c)
- if (a .ne. 23) STOP 6
+ if (a .ne. 23) stop 6
contains
function bar (i)
c2 = c
!$omp atomic read
d2 = d
- if (a2 .ne. 5 .or. b2 .ne. 2 .or. c2 .ne. 6 .or. d2 .ne. 0.5) STOP 1
+ if (a2 .ne. 5 .or. b2 .ne. 2 .or. c2 .ne. 6 .or. d2 .ne. 0.5) stop 1
!$omp atomic write
d = 1.2
!$omp atomic
a = a + c + d
!$omp atomic
b = b - (a + c + d)
- if (a .ne. 12 .or. b .ne. -17) STOP 2
+ if (a .ne. 12 .or. b .ne. -17) stop 2
!$omp atomic
a = c + d + a
!$omp atomic
b = a + c + d - b
- if (a .ne. 19 .or. b .ne. 43) STOP 3
+ if (a .ne. 19 .or. b .ne. 43) stop 3
!$omp atomic
b = (a + c + d) - b
a = 32
!$omp atomic
a = a / 3.4
- if (a .ne. 9 .or. b .ne. -16) STOP 4
+ if (a .ne. 9 .or. b .ne. -16) stop 4
end
d = d / 2.0
d2 = d
!$omp end atomic
- if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) STOP 1
+ if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) stop 1
!$omp atomic read
a2 = a
!$omp atomic read
c2 = c
- if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2
+ if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) stop 2
end
d = d / 2.0
d2 = d
!$omp end atomic
- if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) STOP 1
+ if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) stop 1
!$omp atomic read seq_cst
a2 = a
!$omp atomic seq_cst, read
c2 = c
- if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2
+ if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) stop 2
a2 = 10
- if (a2 .ne. 10) STOP 3
+ if (a2 .ne. 10) stop 3
!$omp atomic capture
a2 = a
a = e(1) + e(6) + e(7) * 2
!$omp endatomic
- if (a2 .ne. 5) STOP 4
+ if (a2 .ne. 5) stop 4
!$omp atomic read
a2 = a
!$omp end atomic
- if (a2 .ne. 28) STOP 5
+ if (a2 .ne. 28) stop 5
!$omp atomic capture seq_cst
b2 = b
b = e(1) + e(7) + e(5) * 2
!$omp end atomic
- if (b2 .ne. -16) STOP 6
+ if (b2 .ne. -16) stop 6
!$omp atomic seq_cst, read
b2 = b
!$omp end atomic
- if (b2 .ne. 24) STOP 7
+ if (b2 .ne. 24) stop 7
end
C Test conditional compilation in fixed form if -fopenmp
10 foo = 2
&56
- if (foo.ne.256) STOP 1
+ if (foo.ne.256) stop 1
bar = 26
!$2 0 ba
c$ +r = 42
!$ bar = 62
!$ bar = bar + 1
- if (bar.ne.43) STOP 2
+ if (bar.ne.43) stop 2
baz = bar
*$ 0baz = 5
C$ +12! Comment
!$ X baz = 0 ! Not valid OpenMP conditional compilation lines
! $ baz = 1
c$ 10&baz = 2
- if (baz.ne.51242) STOP 3
+ if (baz.ne.51242) stop 3
end
! { dg-options "-fno-openmp" }
10 foo = 2
&56
- if (foo.ne.256) STOP 1
+ if (foo.ne.256) stop 1
bar = 26
!$2 0 ba
c$ +r = 42
!$ bar = 62
!$ bar = bar + 1
- if (bar.ne.26) STOP 2
+ if (bar.ne.26) stop 2
baz = bar
*$ 0baz = 5
C$ +12! Comment
!$ X baz = 0 ! Not valid OpenMP conditional compilation lines
! $ baz = 1
c$ 10&baz = 2
- if (baz.ne.26) STOP 3
+ if (baz.ne.26) stop 3
end
! Test conditional compilation in free form if -fopenmp
10 foo = 2&
&56
- if (foo.ne.256) STOP 1
+ if (foo.ne.256) stop 1
bar = 26
!$ 20 ba&
!$ &r = 4&
#ifdef _OPENMP
bar = bar - 1
#endif
- if (bar.ne.43) STOP 2
+ if (bar.ne.43) stop 2
baz = bar
!$ 30 baz = 5& ! Comment
!$12 &
!$X baz = 0 ! Not valid OpenMP conditional compilation lines
! $ baz = 1
baz = baz + 1 !$ baz = 2
- if (baz.ne.515) STOP 3
+ if (baz.ne.515) stop 3
end
! { dg-options "-fno-openmp" }
10 foo = 2&
&56
- if (foo.ne.256) STOP 1
+ if (foo.ne.256) stop 1
bar = 26
!$ 20 ba&
!$ &r = 4&
#ifdef _OPENMP
bar = bar - 1
#endif
- if (bar.ne.26) STOP 2
+ if (bar.ne.26) stop 2
baz = bar
!$ 30 baz = 5& ! Comment
!$12 &
!$X baz = 0 ! Not valid OpenMP conditional compilation lines
! $ baz = 1
baz = baz + 1 !$ baz = 2
- if (baz.ne.27) STOP 3
+ if (baz.ne.27) stop 3
end
d(b + 1) = c
if (f .ne. g .or. f .ne. b) h = .true.
!$omp endparallel
- if (h) STOP 1
- if (a .ne. 6) STOP 2
- if (j .ne. 24) STOP 3
- if (d(1) .eq. -1) STOP 4
+ if (h) stop 1
+ if (a .ne. 6) stop 2
+ if (j .ne. 24) stop 3
+ if (d(1) .eq. -1) stop 4
e = 1
do g = 1, d(1)
- if (d(g) .ne. d(1)) STOP 5
+ if (d(g) .ne. d(1)) stop 5
e = e * 2
end do
- if (e .ne. i) STOP 6
+ if (e .ne. i) stop 6
end subroutine test_parallel
subroutine test_do_orphan
call test_do_orphan
!$omp do schedule (static) firstprivate (n)
do 200 i = 1, j
- if (i .eq. 1 .and. n .ne. 24) STOP 7
+ if (i .eq. 1 .and. n .ne. 24) stop 7
n = i
200 d(n) = omp_get_thread_num ()
!$omp enddo nowait
end do
! Implied omp end do here
!$omp end parallel
- if (.not. m) STOP 8
+ if (.not. m) stop 8
j = 0
do i = 1, 64
- if (d(i) .lt. j .or. d(i) .ge. j + k) STOP 9
+ if (d(i) .lt. j .or. d(i) .ge. j + k) stop 9
if (i .eq. 16) j = 1024
if (i .eq. 32) j = 2048
if (i .eq. 48) j = 4096
n = 7
!$omp endsections
!$omp end parallel
- if (j .ne. 271 .or. l .ne. 0) STOP 10
- if (m .ne. 4 + 6 + 8 + 10) STOP 11
- if (n .ne. 7) STOP 12
+ if (j .ne. 271 .or. l .ne. 0) stop 10
+ if (m .ne. 4 + 6 + 8 + 10) stop 11
+ if (n .ne. 7) stop 12
end subroutine test_sections
subroutine test_single
!$omp end single copyprivate (j)
if (i .ne. omp_get_thread_num () .or. j .ne. -2) m = .true.
!$omp endparallel
- if (m) STOP 13
+ if (m) stop 13
end subroutine test_single
end
j = omp_get_thread_num () .eq. 0
!$omp endmaster
!$omp end parallel
- if (.not. (i .or. j)) STOP 1
+ if (.not. (i .or. j)) stop 1
end subroutine test_master
subroutine test_critical_1 (i, j)
i = i + 1
!$omp endcritical (critical_foo)
!$omp end parallel
- if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) STOP 2
+ if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) stop 2
end subroutine test_critical
subroutine test_barrier
j = j .or. .true.
end if
!$omp end parallel
- if (i .ne. 5 .or. j) STOP 3
+ if (i .ne. 5 .or. j) stop 3
end subroutine test_barrier
subroutine test_atomic
f = max (omp_get_thread_num (), f)
if (omp_get_thread_num () .eq. 0) g = omp_get_num_threads ()
!$omp end parallel
- if (g .le. 0 .or. g .gt. 8) STOP 4
- if (a .ne. 6 * g .or. b .ne. 3 ** g) STOP 5
+ if (g .le. 0 .or. g .gt. 8) stop 4
+ if (a .ne. 6 * g .or. b .ne. 3 ** g) stop 5
if (iand (g, 1) .eq. 1) then
- if (c .ne. 8) STOP 6
+ if (c .ne. 8) stop 6
else if (c .ne. 0) then
- STOP 7
+ stop 7
end if
- if (d .ne. 1024 / (2 ** g)) STOP 8
- if (e .ne. 0 .or. f .ne. g - 1) STOP 9
+ if (d .ne. 1024 / (2 ** g)) stop 8
+ if (e .ne. 0 .or. f .ne. g - 1) stop 9
end subroutine test_atomic
end
j = 1
do 100 i = 1, 100
if (i .eq. j) then
- if (d(i) .ne. i) STOP 1
+ if (d(i) .ne. i) stop 1
j = i + 5
else
- if (d(i) .ne. -1) STOP 2
+ if (d(i) .ne. -1) stop 2
end if
100 d(i) = -1
end subroutine test_ordered
!$omp parallel copyin (/tlsblock/, z) reduction (.or.:m) &
!$omp& num_threads (4)
if (omp_get_thread_num () .eq. 0) i = omp_get_num_threads ()
- if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) STOP 3
+ if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) stop 3
x = omp_get_thread_num ()
y = omp_get_thread_num () + 1024
z = omp_get_thread_num () + 4096
!$omp end parallel
- if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) STOP 4
+ if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) stop 4
!$omp parallel num_threads (4), private (j) reduction (.or.:n)
if (omp_get_num_threads () .eq. i) then
j = omp_get_thread_num ()
if (x .ne. j .or. y .ne. j + 1024 .or. z .ne. j + 4096) &
-& STOP 5
+& stop 5
end if
!$omp end parallel
m = m .or. n
if (z .ne. 4096) n = .true.
if (omp_get_num_threads () .eq. i) then
j = omp_get_thread_num ()
- if (x .ne. j .or. y .ne. j + 1024) STOP 6
+ if (x .ne. j .or. y .ne. j + 1024) stop 6
end if
!$omp end parallel
- if (m .or. n) STOP 7
+ if (m .or. n) stop 7
end subroutine test_threadprivate
end
!$omp end parallel
if (any (f .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) &
-& STOP 1
- if (any (g .ne. (/-1, -1, -1, 0, 0, 0, 0, 0, 0, 0/))) STOP 2
- if (i .ne. 20) STOP 3
-!$ if (l .ne. 128 + m) STOP 4
- if (any (d .ne. 1 .or. e .ne. 1)) STOP 5
- if (any (b .ne. transpose (a))) STOP 6
- if (any (c .ne. b)) STOP 7
+& stop 1
+ if (any (g .ne. (/-1, -1, -1, 0, 0, 0, 0, 0, 0, 0/))) stop 2
+ if (i .ne. 20) stop 3
+!$ if (l .ne. 128 + m) stop 4
+ if (any (d .ne. 1 .or. e .ne. 1)) stop 5
+ if (any (b .ne. transpose (a))) stop 6
+ if (any (c .ne. b)) stop 7
if (any (n .ne. (/1, 2, 6, 12, 5, 30, 42, 56, 9, 90, &
-& 110, 132, 13, 182, 210, 240/))) STOP 8
+& 110, 132, 13, 182, 210, 240/))) stop 8
end subroutine test_workshare
end
implicit none
include "omp_lib.h"
- if (openmp_version .ne. 201511) STOP 1;
+ if (openmp_version .ne. 201511) stop 1;
end program main
use omp_lib
implicit none
- if (openmp_version .ne. 201511) STOP 1;
+ if (openmp_version .ne. 201511) stop 1;
end program main
call foo ()
do i = 0, n - 1
- if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1
+ if (c(i) .ne. (i + MODULO ((i * 3), 7))) stop 1
end do
end program
call foo (n)
do i = 0, n - 1
- if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1
+ if (c(i) .ne. (i + MODULO ((i * 3), 7))) stop 1
end do
end program
c(1) = c(1) + 1
r = r + 1
!$omp end parallel
- if (a.ne.r.or.c(1).ne.r) STOP 1
+ if (a.ne.r.or.c(1).ne.r) stop 1
r2 = r
b => a
d => c
d(1) = d(1) + 1
r = r + 1
!$omp end parallel
- if (b.ne.r+r2.or.d(1).ne.r+r2) STOP 2
+ if (b.ne.r+r2.or.d(1).ne.r+r2) stop 2
end subroutine foo
subroutine bar (a, c)
integer, pointer :: a, c(:), b, d(:)
end if
end do
!$omp end parallel do
- if (b.ne.100.or.any(d.ne.10)) STOP 3
- if (a.ne.17.or.any(c.ne.21)) STOP 4
+ if (b.ne.100.or.any(d.ne.10)) stop 3
+ if (a.ne.17.or.any(c.ne.21)) stop 4
a => b
c => d
!$omp parallel do firstprivate (b, d) lastprivate (b, d)
end if
end do
!$omp end parallel do
- if (a.ne.200.or.any(c.ne.20)) STOP 5
- if (b.ne.17.or.any(d.ne.21)) STOP 6
+ if (a.ne.200.or.any(c.ne.20)) stop 5
+ if (b.ne.17.or.any(d.ne.21)) stop 6
end subroutine bar
end
thr(1) = thr(1) + 1
i = i + 1
!$omp end parallel
- if (l) STOP 1
- if (thr(1).ne.14) STOP 2
- if (s(1).ne.1+i) STOP 3
- if (u(1).ne.14) STOP 4
+ if (l) stop 1
+ if (thr(1).ne.14) stop 2
+ if (s(1).ne.1+i) stop 3
+ if (u(1).ne.14) stop 4
end
end do
!$omp end do
!$omp end parallel
- if (k .ne. 100) STOP 1
+ if (k .ne. 100) stop 1
end
integer, dimension(n) :: sumarray
call foo(n,m,sumarray)
do i=1,n
- if (sumarray(i).ne.m*i) STOP 1
+ if (sumarray(i).ne.m*i) stop 1
end do
end program pr27395_1
!$OMP END DO
!$OMP END PARALLEL
do i=1,n
- if (sumarray(i).ne.m*i) STOP 1
+ if (sumarray(i).ne.m*i) stop 1
end do
end subroutine foo
!$omp parallel num_threads (4)
call foo (j)
!$omp end parallel
- if (j.ne.6+16) STOP 1
+ if (j.ne.6+16) stop 1
end
subroutine foo (j)
r = r .or. allocated (a)
end do
!$omp end parallel do
- if (r) STOP 1
+ if (r) stop 1
end program pr27916
r = r .or. allocated (a)
end do
!$omp end parallel do
- if (r) STOP 1
+ if (r) stop 1
end program pr27916
!$omp parallel do lastprivate(i)
do i=1,100
end do
- if (i.ne.101) STOP 1
+ if (i.ne.101) stop 1
end
program pr29629
integer :: n
n = 10000
- if (any (func(n).ne.10000)) STOP 1
+ if (any (func(n).ne.10000)) stop 1
contains
function func(n)
integer, intent(in) :: n
e = e + 1
end if
!$omp end parallel
- if (e.ne.0) STOP 1
+ if (e.ne.0) stop 1
end
!$omp atomic
j = j + 1
end do
- if (j .ne. 1000) STOP 1
+ if (j .ne. 1000) stop 1
contains
subroutine something()
i = 0
do i = 1, 300000
call atomic_add(lhs, rhs)
enddo
- if (lhs .ne. 300000) STOP 1
+ if (lhs .ne. 300000) stop 1
end
call inner(k)
end do
!$omp end parallel do
- if (any (a.ne.42)) STOP 1
+ if (any (a.ne.42)) stop 1
contains
subroutine inner(i)
implicit none
!$omp parallel num_threads(3)
call sub3 (k, c)
!$omp end parallel
- if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) STOP 1
+ if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) stop 1
end
do i = 2147483636, 2147483646
j = j + 1
end do
- if (j.ne.11) STOP 1
+ if (j.ne.11) stop 1
j = 0
!$omp parallel do reduction(+:j)
do i = -2147483637, -2147483647, -1
j = j + 1
end do
- if (j.ne.11) STOP 2
+ if (j.ne.11) stop 2
end
endif
!$omp end parallel
!$omp end parallel
- if (err .ne. 0) STOP 1
+ if (err .ne. 0) stop 1
end
real(kind=8) :: b(16)
b(:) = a(16:1:-1)
call reverse (16,a)
- if (any (a.ne.b)) STOP 1
+ if (any (a.ne.b)) stop 1
end program pr49792
!$omp parallel workshare
a = b
!$omp end parallel workshare
- if (size(a).ne.size(b)) STOP 1
- if (any (a.ne.b)) STOP 2
+ if (size(a).ne.size(b)) stop 1
+ if (any (a.ne.b)) stop 2
end program pr49792
x(1) = x(1) + 1
end do
!$omp end parallel do
- if (x(1) .ne. 1000) STOP 1
+ if (x(1) .ne. 1000) stop 1
end program pr63938_1
x%x = x%x + 1
end do
!$omp end parallel do
- if (x%x .ne. 1000) STOP 1
+ if (x%x .ne. 1000) stop 1
end program pr63938_2
end do
do i = 1, 151
if (mod (i, 31) .eq. 1) then
- if (a(i) .ne. 2) STOP 1
+ if (a(i) .ne. 2) stop 1
else
- if (a(i) .ne. 0) STOP 2
+ if (a(i) .ne. 0) stop 2
end if
end do
end
do d = a, b
u(d) = v(d) + w(d)
end do
- if (d .ne. 1025) STOP 1
+ if (d .ne. 1025) stop 1
c = 17
d = 75
!$omp parallel do simd default(none) firstprivate (a, b) shared(u, v, w) &
c = c + 5
e = c
end do
- if (d .ne. 1025 .or. c .ne. (17 + 5 * 1024)) STOP 2
- if (e .ne. (17 + 5 * 1024)) STOP 3
+ if (d .ne. 1025 .or. c .ne. (17 + 5 * 1024)) stop 2
+ if (e .ne. (17 + 5 * 1024)) stop 3
a1 = 0
a2 = 0
b1 = 31
u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1)
end do
end do
- if (d1 .ne. 32 .or. d2 .ne. 32) STOP 4
+ if (d1 .ne. 32 .or. d2 .ne. 32) stop 4
d1 = 7
d2 = 9
!$omp parallel do simd default(none) firstprivate (a1, b1, a2, b2) &
u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1)
end do
end do
- if (d1 .ne. 32 .or. d2 .ne. 32) STOP 5
+ if (d1 .ne. 32 .or. d2 .ne. 32) stop 5
end
end do
end associate
end do
- if (any(s /= t)) STOP 1
+ if (any(s /= t)) stop 1
end program pr71014
a = min (a, c)
b = max (b, c)
end do
- if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) STOP 1
+ if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) stop 1
end
common /c/ e, f
!$omp threadprivate (/c/)
!$omp parallel num_threads(8)
- if ((e /= 32) .or. any(f /= 1.)) STOP 1
+ if ((e /= 32) .or. any(f /= 1.)) stop 1
e = omp_get_thread_num ()
f = e + 19.
!$omp barrier
- if ((e /= omp_get_thread_num ()) .or. any(f /= e + 19.)) STOP 2
+ if ((e /= omp_get_thread_num ()) .or. any(f /= e + 19.)) stop 2
!$omp end parallel
end
c(i) = foo (a(i), b(i))
end do
do i = 1, 1024
- if (c(i).ne.(2 * i)) STOP 1
+ if (c(i).ne.(2 * i)) stop 1
end do
contains
real function foo (x, y)
c(i) = foo (a(i), b(:,i))
end do
do i = 1, 1024
- if (c(i).ne.(6 * i)) STOP 1
+ if (c(i).ne.(6 * i)) stop 1
end do
contains
function foo (x, y)
integer :: i
ptr => foo
!$omp parallel shared (ptr)
- if (ptr () /= 1) STOP 1
+ if (ptr () /= 1) stop 1
!$omp end parallel
ptr => bar
!$omp parallel firstprivate (ptr)
- if (ptr () /= 2) STOP 2
+ if (ptr () /= 2) stop 2
!$omp end parallel
!$omp parallel sections lastprivate (ptr)
!$omp section
ptr => foo
- if (ptr () /= 1) STOP 3
+ if (ptr () /= 1) stop 3
!$omp section
ptr => bar
- if (ptr () /= 2) STOP 4
+ if (ptr () /= 2) stop 4
!$omp section
ptr => baz
- if (ptr () /= 3) STOP 5
+ if (ptr () /= 3) stop 5
!$omp end parallel sections
- if (ptr () /= 3) STOP 6
- if (.not.associated (ptr, baz)) STOP 7
+ if (ptr () /= 3) stop 6
+ if (.not.associated (ptr, baz)) stop 7
end
integer function foo ()
foo = 1
call sub(i)
end do
!$omp end parallel do
-if (s/=55) STOP 1
+if (s/=55) stop 1
contains
ca = cmplx (-1, 0)
end if
!$omp end parallel
- if (v) STOP 1
+ if (v) stop 1
if (cnt .eq. 3) then
- if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 2
- if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 3
- if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 4
- if (c .ne. cmplx (11.5, -5)) STOP 5
- if (ca(1) .ne. cmplx (12, 2)) STOP 6
- if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 7
+ if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) stop 2
+ if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) stop 3
+ if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) stop 4
+ if (c .ne. cmplx (11.5, -5)) stop 5
+ if (ca(1) .ne. cmplx (12, 2)) stop 6
+ if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) stop 7
end if
i = 1
ca = cmplx (-1, 0)
end if
!$omp end parallel
- if (v) STOP 8
+ if (v) stop 8
if (cnt .eq. 3) then
- if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 9
- if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 10
- if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 11
- if (c .ne. cmplx (11.5, -5)) STOP 12
- if (ca(1) .ne. cmplx (12, 2)) STOP 13
- if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 14
+ if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) stop 9
+ if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) stop 10
+ if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) stop 11
+ if (c .ne. cmplx (11.5, -5)) stop 12
+ if (ca(1) .ne. cmplx (12, 2)) stop 13
+ if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) stop 14
end if
i = 1
ca = cmplx (-1, 0)
end if
!$omp end parallel
- if (v) STOP 15
+ if (v) stop 15
if (cnt .eq. 3) then
- if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) STOP 16
- if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) STOP 17
- if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) STOP 18
- if (c .ne. cmplx (0, 15)) STOP 19
- if (ca(1) .ne. cmplx (0, 10)) STOP 20
- if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) STOP 21
+ if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) stop 16
+ if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) stop 17
+ if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) stop 18
+ if (c .ne. cmplx (0, 15)) stop 19
+ if (ca(1) .ne. cmplx (0, 10)) stop 20
+ if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) stop 21
end if
end
ma(1) = .true.
end if
!$omp end parallel
- if (v) STOP 1
+ if (v) stop 1
if (cnt .eq. 3) then
- if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) STOP 2
- if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) STOP 3
+ if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) stop 2
+ if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) stop 3
end if
l = .true.
ma(1) = .true.
end if
!$omp end parallel
- if (v) STOP 4
+ if (v) stop 4
if (cnt .eq. 3) then
- if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) STOP 5
- if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) STOP 6
+ if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) stop 5
+ if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) stop 6
end if
end
da = -1
end if
!$omp end parallel
- if (v) STOP 1
+ if (v) stop 1
if (cnt .eq. 3) then
- if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) STOP 2
- if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) STOP 3
- if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) STOP 4
+ if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) stop 2
+ if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) stop 3
+ if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) stop 4
end if
i = 1
da(1:4) = 6
end if
!$omp end parallel
- if (v) STOP 5
+ if (v) stop 5
if (cnt .eq. 3) then
- if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) STOP 6
- if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) STOP 7
- if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) STOP 8
+ if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) stop 6
+ if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) stop 7
+ if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) stop 8
end if
end
ka(6:6) = int(Z'777')
end if
!$omp end parallel
- if (v) STOP 1
+ if (v) stop 1
if (cnt .eq. 3) then
ta = (/int(Z'f0ff03'), int(Z'f0af03'), int(Z'f0af01'), int(Z'f0af01'), int(Z'f0af01'), int(Z'f0ff0f')/)
- if (i .ne. int(Z'777f07') .or. any (ia .ne. ta)) STOP 2
+ if (i .ne. int(Z'777f07') .or. any (ia .ne. ta)) stop 2
ta = (/int(Z'f5a01'), int(Z'f5a09'), int(Z'f5a09'), int(Z'f5a08'), int(Z'f5f08'), int(Z'f5f00')/)
- if (j .ne. int(Z'fff80') .or. any (ja .ne. ta)) STOP 3
+ if (j .ne. int(Z'fff80') .or. any (ja .ne. ta)) stop 3
ta = (/int(Z'5a5a5'), int(Z'5a5a5'), int(Z'aaba2'), int(Z'aaba2'), int(Z'5aaaa'), int(Z'5addd')/)
- if (k .ne. int(Z'54a8f') .or. any (ka .ne. ta)) STOP 4
+ if (k .ne. int(Z'54a8f') .or. any (ka .ne. ta)) stop 4
end if
end
!$omp section
n = bitwise_or (n, int(Z'2000'))
!$omp end parallel sections
- if (n .ne. int(Z'243f')) STOP 1
+ if (n .ne. int(Z'243f')) stop 1
end subroutine
subroutine test2
use reduction5, min => max, max => min
if (m .gt. 3) m = 3
if (n .lt. -1) n = -1
!$omp end parallel sections
- if (m .ne. 3 .or. n .ne. 15) STOP 2
+ if (m .ne. 3 .or. n .ne. 15) stop 2
end subroutine test2
end
call foo (a (2:4, 3:5), nthreads)
if (nthreads .eq. 3) then
write (c, '(36i1)') a
- if (c .ne. '999999999999966699966699966699999999') STOP 1
+ if (c .ne. '999999999999966699966699966699999999') stop 1
end if
contains
subroutine foo (b, nthreads)
!$omp end master
b = 2
!$omp end parallel
- if (err .gt. 0) STOP 2
+ if (err .gt. 0) stop 2
end subroutine foo
end
k = 0
d = 24.5
call test (i, j, k, d)
- if (i .ne. 38) STOP 1
- if (iand (k, 255) .ne. 0) STOP 2
+ if (i .ne. 38) stop 1
+ if (iand (k, 255) .ne. 0) stop 2
if (iand (k, 65280) .eq. 0) then
- if (k .ne. 65536 * 4) STOP 3
+ if (k .ne. 65536 * 4) stop 3
end if
contains
subroutine test (i, j, k, d)
a = 15
l = bar (a)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine
function bar (a)
real, dimension (5) :: a
l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5)
l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
f1 = -2.5
end function f1
function f2 ()
l = l .or. (omp_get_thread_num () .eq. 0 .and. e2 .ne. 8.5)
l = l .or. (omp_get_thread_num () .eq. 1 .and. e2 .ne. 14.5)
!$omp end parallel
- if (l) STOP 2
+ if (l) stop 2
e2 = 7.5
end function f2
function f3 ()
l = l .or. (omp_get_thread_num () .eq. 1 .and. e3 .ne. 14.5)
l = l .or. f3 .ne. e3 - 4.5
!$omp end parallel
- if (l) STOP 3
+ if (l) stop 3
e3 = 0.5
end function f3
function f4 () result (r4)
l = l .or. (omp_get_thread_num () .eq. 1 .and. s4 .ne. 14.5)
l = l .or. r4 .ne. s4 - 4.5
!$omp end parallel
- if (l) STOP 4
+ if (l) stop 4
s4 = -0.5
end function f4
function f5 (is_f5)
l = l .or. (omp_get_thread_num () .eq. 1 .and. e5 .ne. 14)
l = l .or. f5 .ne. e5 - 4.5
!$omp end parallel
- if (l) STOP 5
+ if (l) stop 5
if (is_f5) f5 = -2.5
if (.not. is_f5) e5 = 8
end function f5
real :: f1, f2, e2, f3, e3, f4, e4, f5
integer :: e5
- if (f1 () .ne. -2.5) STOP 6
- if (f2 () .ne. 7.5) STOP 7
- if (e2 () .ne. 7.5) STOP 8
- if (f3 () .ne. 0.5) STOP 9
- if (e3 () .ne. 0.5) STOP 10
- if (f4 () .ne. -0.5) STOP 11
- if (e4 () .ne. -0.5) STOP 12
- if (f5 (.true.) .ne. -2.5) STOP 13
- if (e5 (.false.) .ne. 8) STOP 14
+ if (f1 () .ne. -2.5) stop 6
+ if (f2 () .ne. 7.5) stop 7
+ if (e2 () .ne. 7.5) stop 8
+ if (f3 () .ne. 0.5) stop 9
+ if (e3 () .ne. 0.5) stop 10
+ if (f4 () .ne. -0.5) stop 11
+ if (e4 () .ne. -0.5) stop 12
+ if (f5 (.true.) .ne. -2.5) stop 13
+ if (e5 (.false.) .ne. 8) stop 14
end
l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5)
l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
f1 = -2.5
end subroutine sub1
end function f1
real :: f1
- if (f1 () .ne. -2.5) STOP 2
+ if (f1 () .ne. -2.5) stop 2
end
!$omp barrier
if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true.
!$omp end parallel
- if (l .or. j .ne. 25) STOP 1
+ if (l .or. j .ne. 25) stop 1
end
!$omp barrier
if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true.
!$omp end parallel
- if (l) STOP 1
- if (j .ne. 25) STOP 2
+ if (l) stop 1
+ if (j .ne. 25) stop 2
end
s = s + l
t%x = t%x + l
end do
- if (r.ne.2700.or.j.ne.70.or.k.ne.80.or.s.ne.2700) STOP 1
- if (t%x.ne.2700) STOP 2
+ if (r.ne.2700.or.j.ne.70.or.k.ne.80.or.s.ne.2700) stop 1
+ if (t%x.ne.2700) stop 2
end
end do
s = foo (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 1
+ if (a(i).ne.((i - 513) * b(i))) stop 1
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 3
+ if (b(i).ne.(modulo (i - 52, 39))) stop 3
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4
k = 4
m = 2
t = 1
s = bar (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 5
+ if (a(i).ne.((i - 513) * b(i))) stop 5
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 7
+ if (b(i).ne.(modulo (i - 52, 39))) stop 7
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8
k = 4
m = 2
t = 1
s = baz (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 9
+ if (a(i).ne.((i - 513) * b(i))) stop 9
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 11
+ if (b(i).ne.(modulo (i - 52, 39))) stop 11
end if
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12
contains
function foo (p)
integer :: p(1024), u, v, i, s, foo
s = s + p(i) + k
end do
!$omp end simd
- if (i.ne.1025) STOP 13
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14
+ if (i.ne.1025) stop 13
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14
foo = s
end function foo
function bar (p)
s = s + p(i) + k
end do
!$omp end simd
- if (i.ne.1025) STOP 15
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16
+ if (i.ne.1025) stop 15
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16
bar = s
end function bar
function baz (p)
v = p(i) + k
s = s + p(i) + k
end do
- if (i.ne.1025) STOP 17
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18
+ if (i.ne.1025) stop 17
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18
baz = s
end function baz
end
end do
s = foo (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 1
+ if (a(i).ne.((i - 513) * b(i))) stop 1
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 3
+ if (b(i).ne.(modulo (i - 52, 39))) stop 3
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4
k = 4
m = 2
t = 1
s = bar (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 5
+ if (a(i).ne.((i - 513) * b(i))) stop 5
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 7
+ if (b(i).ne.(modulo (i - 52, 39))) stop 7
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8
k = 4
m = 2
t = 1
s = baz (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 9
+ if (a(i).ne.((i - 513) * b(i))) stop 9
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 11
+ if (b(i).ne.(modulo (i - 52, 39))) stop 11
end if
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12
contains
function foo (p)
integer :: p(1024), u, v, i, s, foo
end do
!$omp end do simd
!$omp end parallel
- if (i.ne.1025) STOP 13
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14
+ if (i.ne.1025) stop 13
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14
foo = s
end function foo
function bar (p)
end do
!$omp end do simd
!$omp endparallel
- if (i.ne.1025) STOP 15
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16
+ if (i.ne.1025) stop 15
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16
bar = s
end function bar
function baz (p)
s = s + p(i) + k
end do
!$omp end parallel
- if (i.ne.1025) STOP 17
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18
+ if (i.ne.1025) stop 17
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18
baz = s
end function baz
end
end do
s = foo (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 1
+ if (a(i).ne.((i - 513) * b(i))) stop 1
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 3
+ if (b(i).ne.(modulo (i - 52, 39))) stop 3
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4
k = 4
m = 2
t = 1
s = bar (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 5
+ if (a(i).ne.((i - 513) * b(i))) stop 5
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 7
+ if (b(i).ne.(modulo (i - 52, 39))) stop 7
end if
a(i) = i - 513
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8
k = 4
m = 2
t = 1
s = baz (b)
do i = 1, 1024
- if (a(i).ne.((i - 513) * b(i))) STOP 9
+ if (a(i).ne.((i - 513) * b(i))) stop 9
if (i.lt.52.and.modulo (i - 52, 39).ne.0) then
- if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10
+ if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10
else
- if (b(i).ne.(modulo (i - 52, 39))) STOP 11
+ if (b(i).ne.(modulo (i - 52, 39))) stop 11
end if
end do
- if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12
+ if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12
contains
function foo (p)
integer :: p(1024), u, v, i, s, foo
s = s + p(i) + k
end do
!$omp end parallel do simd
- if (i.ne.1025) STOP 13
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14
+ if (i.ne.1025) stop 13
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14
foo = s
end function foo
function bar (p)
s = s + p(i) + k
end do
!$omp endparalleldosimd
- if (i.ne.1025) STOP 15
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16
+ if (i.ne.1025) stop 15
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16
bar = s
end function bar
function baz (p)
v = p(i) + k
s = s + p(i) + k
end do
- if (i.ne.1025) STOP 17
- if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18
+ if (i.ne.1025) stop 17
+ if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18
baz = s
end function baz
end
c = c + b - (7 + 2 * i)
b = b + 2
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 1
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
b = b + 3
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 2
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
b = b + 2
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 3
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
b = b + 3
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 4
i = 4
j = 4
b = 7
b = b + 2
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 5
i = 4
j = 4
b = 7
b = b + 2
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 6
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
b = b + 2
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 7
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
b = b + 3
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 8
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
b = b + 2
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 9
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
b = b + 3
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 10
i = 4
j = 4
b = 7
b = b + 2
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 11
i = 4
j = 4
b = 7
b = b + 2
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 12
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 12
end
c = c + b - (7 + 2 * i)
call foo (b, i, j, 2)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 1
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
call foo (b, i, j, 3)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 2
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
call foo (b, i, j, 2)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 3
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
call foo (b, i, j, 3)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 4
i = 4
j = 4
b = 7
call foo (b, i, j, 2)
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 5
i = 4
j = 4
b = 7
call foo (b, i, j, 2)
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 6
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
call foo (b, i, j, 2)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 7
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
call foo (b, i, j, 3)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 8
i = 4
j = 4
b = 7
c = c + b - (7 + 2 * i)
call foo (b, i, j, 2)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 9
i = 4
j = 4
b = 7
c = c + b - (7 + i / 4 * 3)
call foo (b, i, j, 3)
end do
- if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10
+ if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 10
i = 4
j = 4
b = 7
call foo (b, i, j, 2)
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 11
i = 4
j = 4
b = 7
call foo (b, i, j, 2)
end do
end do
- if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 12
+ if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 12
end
subroutine foo (b, i, j, x)
integer, intent (inout) :: b
b = b + 1; c = c + 2; d = d + 3; e = e + 4; f = f + 5; g = g + 6
h = h + 7; k = k + 8; m = m + 9
end do
- if (l .or. i /= 64) STOP 1
- if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 2
- if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 3
- if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 4
- if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 5
- if (m /= 15 + 9 * 64) STOP 6
- if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 7
- if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 8
- if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 9
- if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 10
- if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 11
- if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 12
- if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 13
- if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 14
+ if (l .or. i /= 64) stop 1
+ if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 2
+ if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 3
+ if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 4
+ if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 5
+ if (m /= 15 + 9 * 64) stop 6
+ if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 7
+ if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 8
+ if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 9
+ if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 10
+ if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 11
+ if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 12
+ if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 13
+ if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 14
i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15
!$omp simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5)linear(g:6) &
!$omp & linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l) collapse(2)
h = h + 7; k = k + 8; m = m + 9
end do
end do
- if (l .or. i /= 8 .or. j /= 8) STOP 15
- if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 16
- if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 17
- if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 18
- if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 19
- if (m /= 15 + 9 * 64) STOP 20
- if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 21
- if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 22
- if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 23
- if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 24
- if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 25
- if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 26
- if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 27
- if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 28
+ if (l .or. i /= 8 .or. j /= 8) stop 15
+ if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 16
+ if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 17
+ if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 18
+ if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 19
+ if (m /= 15 + 9 * 64) stop 20
+ if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 21
+ if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 22
+ if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 23
+ if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 24
+ if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 25
+ if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 26
+ if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 27
+ if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 28
i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15
!$omp parallel do simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5) &
!$omp & linear(g:6)linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l)
b = b + 1; c = c + 2; d = d + 3; e = e + 4; f = f + 5; g = g + 6
h = h + 7; k = k + 8; m = m + 9
end do
- if (l .or. i /= 64) STOP 29
- if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 30
- if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 31
- if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 32
- if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 33
- if (m /= 15 + 9 * 64) STOP 34
- if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 35
- if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 36
- if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 37
- if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 38
- if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 39
- if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 40
- if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 41
- if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 42
+ if (l .or. i /= 64) stop 29
+ if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 30
+ if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 31
+ if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 32
+ if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 33
+ if (m /= 15 + 9 * 64) stop 34
+ if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 35
+ if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 36
+ if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 37
+ if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 38
+ if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 39
+ if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 40
+ if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 41
+ if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 42
i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15
!$omp parallel do simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5) &
!$omp & linear(g:6)linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l) collapse(2)
h = h + 7; k = k + 8; m = m + 9
end do
end do
- if (l .or. i /= 8 .or. j /= 8) STOP 43
- if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 44
- if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 45
- if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 46
- if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 47
- if (m /= 15 + 9 * 64) STOP 48
- if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 49
- if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 50
- if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 51
- if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 52
- if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 53
- if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 54
- if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 55
- if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 56
+ if (l .or. i /= 8 .or. j /= 8) stop 43
+ if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 44
+ if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 45
+ if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 46
+ if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 47
+ if (m /= 15 + 9 * 64) stop 48
+ if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 49
+ if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 50
+ if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 51
+ if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 52
+ if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 53
+ if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 54
+ if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 55
+ if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 56
end subroutine
interface
!$omp end parallel
! Check that the two threads are not sharing a location for
! the array x in foo()
- if (ilocs(1) .eq. ilocs(2)) STOP 1
+ if (ilocs(1) .eq. ilocs(2)) stop 1
end program stack
integer function foo ()
call strassen (A, B, D, N)
end = omp_get_wtime ()
write(*,'(a, f10.6)') ' Time for Strassen = ', end - start
- if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 1
+ if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) stop 1
D = 0
start = omp_get_wtime ()
!$omp parallel
!$omp end parallel
end = omp_get_wtime ()
write(*,'(a, f10.6)') ' Time for Strassen MP = ', end - start
- if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 2
+ if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) stop 2
contains
- if (b().ne.2) STOP 1
+ if (b().ne.2) stop 1
contains
subroutine a
!$omp parallel
! { dg-options "-ffixed-form" }
- if (b().ne.2) STOP 1
+ if (b().ne.2) stop 1
contains
subroutine a
!$omp parallel
q(i) = p(i)
end do
!$omp end target
- if (any (p /= q)) STOP 1
+ if (any (p /= q)) stop 1
do i = 1, n
- if (p(i) /= i * iand (i, 63)) STOP 2
+ if (p(i) /= i * iand (i, 63)) stop 2
end do
!$omp target data if (n > 256) map (to: v(1:n), w) map (from: p, q)
!$omp target if (n > 256)
end do
!$omp end target
!$omp end target data
- if (any (p + 2.0 /= q)) STOP 3
+ if (any (p + 2.0 /= q)) stop 3
end subroutine
end module target1
use target1, only : foo
end do
call foo (p, v, w, n)
do i = 1, n
- if (p(i) /= i * iand (i, 63) + 3) STOP 4
+ if (p(i) /= i * iand (i, 63) + 3) stop 4
end do
deallocate (p, v, w)
end
r = r .or. (j /= 16)
r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n)
!$omp end target
- if (r) STOP 1
+ if (r) stop 1
!$omp target map (to: b(3:n), c(5:n+4), d(2:n+1), e(1:,:2), g(3:n), i(3:n), k(4:n), n) map (from: r)
r = (any (b /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n)
r = r .or. (any (c /= 9)) .or. (lbound (c, 1) /= 5) .or. (ubound (c, 1) /= n + 4)
r = r .or. (any (i /= 15)) .or. (lbound (i, 1) /= 3) .or. (ubound (i, 1) /= n)
r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n)
!$omp end target
- if (r) STOP 2
+ if (r) stop 2
!$omp target map (to: b(5:n-2), c(7:n), d(4:n-2), e(1:,2:), g(5:n-3), i(6:n-4), k(5:n-5), n) map (from: r)
r = (any (b(5:n-2) /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n)
r = r .or. (any (c(7:n) /= 9)) .or. (lbound (c, 1) /= 5) .or. (ubound (c, 1) /= n + 4)
r = r .or. (any (i(6:n-4) /= 15)) .or. (lbound (i, 1) /= 3) .or. (ubound (i, 1) /= n)
r = r .or. (any (k(5:n-5) /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n)
!$omp end target
- if (r) STOP 3
+ if (r) stop 3
!$omp target map (to: d(2:n+1), n)
r = a /= 7
r = r .or. (any (b /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n)
r = r .or. (j /= 16)
r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n)
!$omp end target
- if (r) STOP 4
+ if (r) stop 4
end subroutine foo
end module target2
use target2, only : foo
r = associated (f) .or. associated (g)
r = r .or. associated (j) .or. associated (k)
!$omp end target
- if (r) STOP 1
+ if (r) stop 1
!$omp target
r = associated (f) .or. associated (g)
r = r .or. associated (j) .or. associated (k)
!$omp end target
- if (r) STOP 2
+ if (r) stop 2
end subroutine foo
end module target3
use target3, only : foo
& 30800.0d0, 33000.0d0, 23256.0d0, 25840.0d0, 28424.0d0, 31008.0d0, 33592.0d0, 36176.0d0, &
& 38760.0d0, 41344.0d0, 30000.0d0, 33000.0d0, 36000.0d0, 39000.0d0, 42000.0d0, 45000.0d0, &
& 48000.0d0, 51000.0d0 /), (/ 8, 9 /))
- if (any (a /= res)) STOP 1
+ if (any (a /= res)) stop 1
end
integer :: r
r = 0
call foo (r)
- if (r /= 11) STOP 1
+ if (r /= 11) stop 1
contains
subroutine foo (r)
integer :: i, r
!$omp end target
!$omp target update if (n > 256) from (p)
do i = 1, n
- if (p(i) /= i * iand (i, 63)) STOP 1
+ if (p(i) /= i * iand (i, 63)) stop 1
v(i) = v(i) + 1
end do
!$omp target update if (n > 256) to (v(1:n))
!$omp end target
!$omp end target data
do i = 1, n
- if (q(i) /= (v(i) - 1) * w(i)) STOP 2
- if (p(i) /= q(i) + w(i)) STOP 3
+ if (q(i) /= (v(i) - 1) * w(i)) stop 2
+ if (p(i) /= q(i) + w(i)) stop 3
end do
end subroutine
end module target6
end do
call foo (p, v, w, n)
do i = 1, n
- if (p(i) /= (i + 1) * iand (i, 63)) STOP 4
+ if (p(i) /= (i + 1) * iand (i, 63)) stop 4
end do
deallocate (p, v, w)
end
!$omp end single
!$omp end parallel
do i = 1, n
- if (a(i) /= i + 1) STOP 1
+ if (a(i) /= i + 1) stop 1
end do
end
real function foo (x)
!$omp end single
!$omp end parallel
do i = 1, n
- if (a(i) /= i + 1) STOP 1
+ if (a(i) /= i + 1) stop 1
end do
contains
real function foo (x)
!$omp end task
end if
!$omp end parallel
- if (j.gt.0) STOP 1
+ if (j.gt.0) stop 1
contains
subroutine subr (i)
use omp_lib
call test
!$omp end single
!$omp end parallel
- if (err.ne.0) STOP 1
+ if (err.ne.0) stop 1
contains
subroutine check (x, y, l)
integer :: x, y
!$omp end parallel
if (sum /= NT) then
print *, "FAIL - sum == ", sum, " (expected ", NT, ")"
- STOP 1
+ stop 1
end if
end program F03_2_7_1d
!$omp end parallel
!$omp atomic read
e = err
- if (e .ne. 0) STOP 1
+ if (e .ne. 0) stop 1
end
end do
!$omp end taskgroup
do i = 1, 16
- if (v(i).ne.(i + 1)) STOP 1
+ if (v(i).ne.(i + 1)) stop 1
end do
!$omp taskgroup
do i = 1, 16, 2
end do
!$omp endtaskgroup
do i = 1, 16
- if (v(i).ne.(i + 2)) STOP 2
+ if (v(i).ne.(i + 2)) stop 2
end do
!$omp taskgroup
do i = 1, 16, 2
end do
!$omp end taskgroup
do i = 1, 16, 2
- if (v(i).ne.(i + 3)) STOP 3
- if (v(i + 1).ne.(i + 5)) STOP 4
+ if (v(i).ne.(i + 3)) stop 3
+ if (v(i + 1).ne.(i + 5)) stop 4
end do
!$omp taskgroup
do i = 1, 16, 2
v(i + 1) = v(i + 1) + 1
!$omp end task
!$omp end taskgroup
- if (v(i).ne.(i + 4).or.v(i + 1).ne.(i + 6)) STOP 5
+ if (v(i).ne.(i + 4).or.v(i + 1).ne.(i + 6)) stop 5
!$omp task
v(i) = v(i) + 1
!$omp end task
end do
!$omp end taskgroup
do i = 1, 16
- if (v(i).ne.(i + 5)) STOP 6
+ if (v(i).ne.(i + 5)) stop 6
end do
!$omp end single
!$omp end parallel
r = bar (12, 18)
!$omp end single
!$omp end parallel
- if (q .ne. 6 .or. r .ne. 17 .or. e) STOP 1
+ if (q .ne. 6 .or. r .ne. 17 .or. e) stop 1
contains
subroutine foo (a, b)
integer, intent (in) :: a, b
!$omp end single
!$omp end parallel
do i = 1, 1024
- if (u(i) .ne. 2 * i + 1) STOP 1
+ if (u(i) .ne. 2 * i + 1) stop 1
v(i) = 1024 - i
w(i) = 512 - i
end do
!$omp end parallel
do i = 1, 1024
if (i .lt. 2 .or. i .gt. 1022) then
- if (u(i) .ne. 2 * i + 1) STOP 2
+ if (u(i) .ne. 2 * i + 1) stop 2
else
- if (u(i) .ne. 1536 - 2 * i) STOP 3
+ if (u(i) .ne. 1536 - 2 * i) stop 3
end if
v(i) = i
w(i) = i + 1
end do
- if (m .ne. (1023 + 2 * (1021 * 5 + 17) + 9)) STOP 4
+ if (m .ne. (1023 + 2 * (1021 * 5 + 17) + 9)) stop 4
!$omp parallel
!$omp single
call f3 (1, 1024)
!$omp end single
!$omp end parallel
do i = 1, 1024
- if (u(i) .ne. 2 * i + 1) STOP 5
+ if (u(i) .ne. 2 * i + 1) stop 5
v(i) = 1024 - i
w(i) = 512 - i
end do
- if (m .ne. 1025) STOP 6
+ if (m .ne. 1025) stop 6
!$omp parallel
!$omp single
call f4 (0, 31, 1, 32)
!$omp end single
!$omp end parallel
do i = 1, 1024
- if (u(i) .ne. 1536 - 2 * i) STOP 7
+ if (u(i) .ne. 1536 - 2 * i) stop 7
v(i) = i
w(i) = i + 1
end do
- if (m .ne. 32 + 33 + 1024) STOP 8
+ if (m .ne. 32 + 33 + 1024) stop 8
!$omp parallel
!$omp single
call f5 (0, 31, 1, 32)
!$omp end single
!$omp end parallel
do i = 1, 1024
- if (u(i) .ne. 2 * i + 1) STOP 9
+ if (u(i) .ne. 2 * i + 1) stop 9
end do
- if (m .ne. 32 + 33) STOP 10
+ if (m .ne. 32 + 33) stop 10
contains
subroutine f1 (a, b)
integer, intent(in) :: a, b
integer :: i
!$omp parallel
!$omp single
- if (f1 (74) .ne. 63 + 4) STOP 1
+ if (f1 (74) .ne. 63 + 4) stop 1
g = 77
call f2
!$omp taskwait
- if (g .ne. 63 + 9) STOP 2
- if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) STOP 3
+ if (g .ne. 63 + 9) stop 2
+ if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) stop 3
if (f4 (0_8, 31_8, 16_8, 46_8, 1_8, 2_8, 73) .ne. 32 + 5 * 48 &
-& + 11 * 31 + 17 * 46) STOP 4
+& + 11 * 31 + 17 * 46) stop 4
!$omp end single
!$omp end parallel
contains
x = y
!$omp taskloop firstprivate(x)lastprivate(x)
do i = 0, 63
- if (x .ne. 74) STOP 5
+ if (x .ne. 74) stop 5
if (i .eq. 63) then
x = i + 4
end if
integer :: i
!$omp taskloop firstprivate(g)lastprivate(g)nogroup
do i = 0, 63
- if (g .ne. 77) STOP 6
+ if (g .ne. 77) stop 6
if (i .eq. 63) then
g = i + 9
end if
!$omp & lastprivate (i, j, k, l)
do i = a, b, e
do j = c, d, f
- if (k .ne. 73) STOP 7
+ if (k .ne. 73) stop 7
if (i .eq. 31 .and. j .eq. 46) then
k = i
end if
! >= grainsize && < 2 * grainsize,
! unless # of loop iterations is smaller than grainsize.
call test (0, 79, 1, 17, fn, ntasks, min_iters, max_iters, cnt)
- if (cnt .ne. 79) STOP 1
- if (min_iters .lt. 17 .or. max_iters .ge. 17 * 2) STOP 2
+ if (cnt .ne. 79) stop 1
+ if (min_iters .lt. 17 .or. max_iters .ge. 17 * 2) stop 2
call test (-49, 2541, 7, 28, fn, ntasks, min_iters, max_iters, cnt)
- if (cnt .ne. 370) STOP 3
- if (min_iters .lt. 28 .or. max_iters .ge. 28 * 2) STOP 4
+ if (cnt .ne. 370) stop 3
+ if (min_iters .lt. 28 .or. max_iters .ge. 28 * 2) stop 4
call test (7, 21, 2, 15, fn, ntasks, min_iters, max_iters, cnt)
- if (cnt .ne. 7) STOP 5
- if (min_iters .ne. 7 .or. max_iters .ne. 7) STOP 6
- if (ntasks .ne. 1) STOP 7
+ if (cnt .ne. 7) stop 5
+ if (min_iters .ne. 7 .or. max_iters .ne. 7) stop 6
+ if (ntasks .ne. 1) stop 7
fn => num_tasks
! If num_tasks is present, # of task loop iters is
! min (# of loop iters, num_tasks).
call test (-51, 2500, 48, 9, fn, ntasks, min_iters, max_iters, cnt)
- if (cnt .ne. 54 .or. ntasks .ne. 9) STOP 8
+ if (cnt .ne. 54 .or. ntasks .ne. 9) stop 8
call test (0, 25, 2, 17, fn, ntasks, min_iters, max_iters, cnt)
- if (cnt .ne. 13 .or. ntasks .ne. 13) STOP 9
+ if (cnt .ne. 13 .or. ntasks .ne. 13) stop 9
!$omp end single
!$omp end parallel
contains
k = v
v = v + 1
!$omp end atomic
- if (k .ge. 64) STOP 10
+ if (k .ge. 64) stop 10
end if
j = j + 1
u(k + 1) = j
k = v
v = v + 1
!$omp end atomic
- if (k .ge. 64) STOP 11
+ if (k .ge. 64) stop 11
end if
j = j + 1
u(k + 1) = j
!$omp barrier
if (d .ne. omp_get_thread_num () + 6.5) l = .true.
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end
! { dg-final { cleanup-modules "threadprivate1" } }
baz%b = omp_get_thread_num () * 2 + 1
!$omp end parallel
- if (l) STOP 1
- if (.not.allocated (foo)) STOP 2
- if (size (foo).ne.18) STOP 3
- if (any (foo.ne.1)) STOP 4
-
- if (associated (bar1)) STOP 5
- if (.not.associated (bar3)) STOP 6
- if (any (bar3 .ne. -2)) STOP 7
+ if (l) stop 1
+ if (.not.allocated (foo)) stop 2
+ if (size (foo).ne.18) stop 3
+ if (any (foo.ne.1)) stop 4
+
+ if (associated (bar1)) stop 5
+ if (.not.associated (bar3)) stop 6
+ if (any (bar3 .ne. -2)) stop 7
deallocate (bar3)
- if (associated (bar3)) STOP 8
+ if (associated (bar3)) stop 8
!$omp parallel num_threads (4) reduction (.or.:l)
l = l.or..not.allocated (foo)
l = l.or.(baz%b.ne.(omp_get_thread_num () * 2 + 1))
!$omp end parallel
- if (l) STOP 9
- if (.not.allocated (foo)) STOP 10
- if (size (foo).ne.18) STOP 11
- if (any (foo.ne.1)) STOP 12
+ if (l) stop 9
+ if (.not.allocated (foo)) stop 10
+ if (size (foo).ne.18) stop 11
+ if (any (foo.ne.1)) stop 12
deallocate (foo)
- if (allocated (foo)) STOP 13
+ if (allocated (foo)) stop 13
end
! { dg-final { cleanup-modules "threadprivate2" } }
bar3 = omp_get_thread_num () - 2
if (omp_get_thread_num () .ne. 0) then
deallocate (bar3)
- if (associated (bar3)) STOP 1
+ if (associated (bar3)) stop 1
else
bar1 => var
end if
baz%b = omp_get_thread_num () * 2 + 1
!$omp end parallel
- if (l) STOP 2
- if (.not.associated (bar1)) STOP 3
- if (any (bar1.ne.6)) STOP 4
- if (.not.associated (bar3)) STOP 5
- if (any (bar3 .ne. -2)) STOP 6
+ if (l) stop 2
+ if (.not.associated (bar1)) stop 3
+ if (any (bar1.ne.6)) stop 4
+ if (.not.associated (bar3)) stop 5
+ if (any (bar3 .ne. -2)) stop 6
deallocate (bar3)
- if (associated (bar3)) STOP 7
+ if (associated (bar3)) stop 7
allocate (bar3 (10))
bar3 = 17
l = l.or.(baz%b .ne. omp_get_thread_num () * 3 + 5)
!$omp end parallel
- if (l) STOP 8
+ if (l) stop 8
end
! { dg-final { cleanup-modules "threadprivate3" } }
vi = -1
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end
do i = 1, 100
j = j + i
end do
- if (j .ne. 5050) STOP 1
+ if (j .ne. 5050) stop 1
j = 3
!$omp parallel do reduction (bar : j)
do i = 1, 100
j = j + 4 * i
end do
- if (j .ne. (5050 * 4 + 3)) STOP 2
+ if (j .ne. (5050 * 4 + 3)) stop 2
!$omp parallel do reduction (+ : d)
do i = 1, 100
- if (d%y .ne. 9) STOP 3
+ if (d%y .ne. 9) stop 3
d%x = d%x + 8 * i
end do
- if (d%x .ne. (5050 * 8 + 7) .or. d%y .ne. 9) STOP 4
+ if (d%x .ne. (5050 * 8 + 7) .or. d%y .ne. 9) stop 4
d = dt (5, 21)
!$omp parallel do reduction (foo : d)
do i = 1, 100
- if (d%y .ne. 21) STOP 5
+ if (d%y .ne. 21) stop 5
d%x = d%x + 8 * i
end do
- if (d%x .ne. (5050 * 8 + 5) .or. d%y .ne. 21) STOP 6
+ if (d%x .ne. (5050 * 8 + 5) .or. d%y .ne. 21) stop 6
end
j = j .localadd. dl(i)
k = k + dl(i * 2)
end do
- if (j%x /= 5050 .or. k%x /= 10100) STOP 1
+ if (j%x /= 5050 .or. k%x /= 10100) stop 1
end
t%x = t%x + 2 * i
u%x = u%x + 3 * i
end do
- if (j%x /= 5050 .or. k%x /= 30300 .or. l%x /= 15150) STOP 1
- if (m%x /= 5050 .or. n%x /= 10100 .or. o%x /= 15150) STOP 2
- if (p%x /= 5050 .or. q%x /= 10100 .or. r%x /= 15150) STOP 3
- if (s%x /= 5050 .or. t%x /= 10100 .or. u%x /= 15150) STOP 4
+ if (j%x /= 5050 .or. k%x /= 30300 .or. l%x /= 15150) stop 1
+ if (m%x /= 5050 .or. n%x /= 10100 .or. o%x /= 15150) stop 2
+ if (p%x /= 5050 .or. q%x /= 10100 .or. r%x /= 15150) stop 3
+ if (s%x /= 5050 .or. t%x /= 10100 .or. u%x /= 15150) stop 4
end
b = b + 3
r = r + 1
!$omp end parallel
- if (any (a /= 2 * r) .or. b /= 3 * r) STOP 1
+ if (any (a /= 2 * r) .or. b /= 3 * r) stop 1
a(:) = 0
b = 0
r = 0
b = b + 3
r = r + 1
!$omp end parallel
- if (any (a /= 4 * r) .or. b /= 6 * r) STOP 2
+ if (any (a /= 4 * r) .or. b /= 6 * r) stop 2
a(:) = 0
b = 0
r = 0
b = b + 3
r = r + 1
!$omp end parallel
- if (any (a /= 2 * r) .or. b /= 3 * r) STOP 3
+ if (any (a /= 2 * r) .or. b /= 3 * r) stop 3
end
elemental function fn1 (x, y)
integer, intent(in) :: x, y
a(:) = 0
r = 0
!$omp parallel reduction (bar : a) reduction (+: r)
- if (lbound (a, 1) /= 1 .or. ubound (a, 1) /= 10) STOP 1
+ if (lbound (a, 1) /= 1 .or. ubound (a, 1) /= 10) stop 1
a = a + 2
r = r + 1
!$omp end parallel
- if (any (a /= 4 * r) ) STOP 2
+ if (any (a /= 4 * r) ) stop 2
b(:,:) = 0
allocate (c (4:6,8:10))
c(:,:) = 0
r = 0
!$omp parallel reduction (baz : b, c) reduction (+: r)
- if (lbound (b, 1) /= 3 .or. ubound (b, 1) /= 5) STOP 3
- if (lbound (b, 2) /= 7 .or. ubound (b, 2) /= 9) STOP 4
- if (.not. allocated (c)) STOP 5
- if (lbound (c, 1) /= 4 .or. ubound (c, 1) /= 6) STOP 6
- if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 10) STOP 7
+ if (lbound (b, 1) /= 3 .or. ubound (b, 1) /= 5) stop 3
+ if (lbound (b, 2) /= 7 .or. ubound (b, 2) /= 9) stop 4
+ if (.not. allocated (c)) stop 5
+ if (lbound (c, 1) /= 4 .or. ubound (c, 1) /= 6) stop 6
+ if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 10) stop 7
b = b + 3
c = c + 4
r = r + 1
!$omp end parallel
- if (any (b /= 3 * r) .or. any (c /= 4 * r)) STOP 8
+ if (any (b /= 3 * r) .or. any (c /= 4 * r)) stop 8
deallocate (c)
allocate (c (0:1,7:11))
c(:,:) = 0
r = 0
!$omp parallel reduction (foo : c) reduction (+: r)
- if (.not. allocated (c)) STOP 9
- if (lbound (c, 1) /= 0 .or. ubound (c, 1) /= 1) STOP 10
- if (lbound (c, 2) /= 7 .or. ubound (c, 2) /= 11) STOP 11
+ if (.not. allocated (c)) stop 9
+ if (lbound (c, 1) /= 0 .or. ubound (c, 1) /= 1) stop 10
+ if (lbound (c, 2) /= 7 .or. ubound (c, 2) /= 11) stop 11
c = c + 5
r = r + 1
!$omp end parallel
- if (any (c /= 10 * r)) STOP 12
+ if (any (c /= 10 * r)) stop 12
end
function fn1 (x, y, m1, m2)
integer, intent(in) :: x(:), y(:), m1, m2
a(7)%h = (/ 0, 0, 0 /)
r = 0
!$omp parallel reduction(+:r) reduction (baz:a)
- if (.not.allocated (a)) STOP 1
- if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) STOP 2
- if (.not.allocated (a(7)%h)) STOP 3
- if (allocated (a(8)%h)) STOP 4
- if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) STOP 5
+ if (.not.allocated (a)) stop 1
+ if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) stop 2
+ if (.not.allocated (a(7)%h)) stop 3
+ if (allocated (a(8)%h)) stop 4
+ if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) stop 5
a(:)%g = a(:)%g + 2
a(7)%h = a(7)%h + 3
r = r + 1
!$omp end parallel
- if (.not.allocated (a)) STOP 6
- if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) STOP 7
- if (.not.allocated (a(7)%h)) STOP 8
- if (allocated (a(8)%h)) STOP 9
- if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) STOP 10
- if (any (a(:)%g /= 2 * r) .or. any (a(7)%h(:) /= 3 * r)) STOP 11
+ if (.not.allocated (a)) stop 6
+ if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) stop 7
+ if (.not.allocated (a(7)%h)) stop 8
+ if (allocated (a(8)%h)) stop 9
+ if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) stop 10
+ if (any (a(:)%g /= 2 * r) .or. any (a(7)%h(:) /= 3 * r)) stop 11
contains
subroutine foo (x, y)
type (dt), allocatable :: x(:), y(:)
- if (allocated (x) .neqv. allocated (y)) STOP 12
- if (lbound (x, 1) /= lbound (y, 1)) STOP 13
- if (ubound (x, 1) /= ubound (y, 1)) STOP 14
- if (allocated (x(7)%h) .neqv. allocated (y(7)%h)) STOP 15
- if (allocated (x(8)%h) .neqv. allocated (y(8)%h)) STOP 16
- if (lbound (x(7)%h, 1) /= lbound (y(7)%h, 1)) STOP 17
- if (ubound (x(7)%h, 1) /= ubound (y(7)%h, 1)) STOP 18
+ if (allocated (x) .neqv. allocated (y)) stop 12
+ if (lbound (x, 1) /= lbound (y, 1)) stop 13
+ if (ubound (x, 1) /= ubound (y, 1)) stop 14
+ if (allocated (x(7)%h) .neqv. allocated (y(7)%h)) stop 15
+ if (allocated (x(8)%h) .neqv. allocated (y(8)%h)) stop 16
+ if (lbound (x(7)%h, 1) /= lbound (y(7)%h, 1)) stop 17
+ if (ubound (x(7)%h, 1) /= ubound (y(7)%h, 1)) stop 18
x(7)%g = 0
x(7)%h = 0
x(8)%g = 0
j = j.addthree.iand (i, -4)
d = d + dt(i)
end do
- if (d%x /= 5050 .or. j /= 4903) STOP 1
+ if (d%x /= 5050 .or. j /= 4903) stop 1
end
do i = 1, 100
j = j + i
end do
- if (any(j .ne. 5050)) STOP 1
+ if (any(j .ne. 5050)) stop 1
j = 3
!$omp parallel do reduction (bar : j)
do i = 1, 100
j = j + 4 * i
end do
- if (any(j .ne. (5050 * 4 + 3))) STOP 2
+ if (any(j .ne. (5050 * 4 + 3))) stop 2
!$omp parallel do reduction (+ : d)
do i = 1, 100
- if (any(d%y .ne. 9)) STOP 3
+ if (any(d%y .ne. 9)) stop 3
d%x = d%x + 8 * i
end do
- if (any(d%x .ne. (5050 * 8 + 7)) .or. any(d%y .ne. 9)) STOP 4
+ if (any(d%x .ne. (5050 * 8 + 7)) .or. any(d%y .ne. 9)) stop 4
d = dt (5, 21)
!$omp parallel do reduction (foo : d)
do i = 1, 100
- if (any(d%y .ne. 21)) STOP 5
+ if (any(d%y .ne. 21)) stop 5
d%x = d%x + 8 * i
end do
- if (any(d%x .ne. (5050 * 8 + 5)) .or. any(d%y .ne. 21)) STOP 6
+ if (any(d%x .ne. (5050 * 8 + 5)) .or. any(d%y .ne. 21)) stop 6
end
& // char (ichar (f(2:2)) + mod (i, 3))
end do
do i = 1, 64
- if (index (c, char (ichar ('0') + i)) .eq. 0) STOP 1
- if (index (d, char (ichar ('0') + i)) .eq. 0) STOP 2
+ if (index (c, char (ichar ('0') + i)) .eq. 0) stop 1
+ if (index (d, char (ichar ('0') + i)) .eq. 0) stop 2
end do
- if (e.ne.char (ichar ('0') + 64)) STOP 3
- if (f(1:1).ne.char (ichar ('0') + 32)) STOP 4
- if (f(2:2).ne.char (ichar ('0') + 64)) STOP 5
+ if (e.ne.char (ichar ('0') + 64)) stop 3
+ if (f(1:1).ne.char (ichar ('0') + 32)) stop 4
+ if (f(2:2).ne.char (ichar ('0') + 64)) stop 5
end
& // char (ichar (f(:,:)(2:2)) + mod (i, 3))
end do
do i = 1, 64
- if (any (index (c, char (ichar ('0') + i)) .eq. 0)) STOP 1
- if (any (index (d, char (ichar ('0') + i)) .eq. 0)) STOP 2
+ if (any (index (c, char (ichar ('0') + i)) .eq. 0)) stop 1
+ if (any (index (d, char (ichar ('0') + i)) .eq. 0)) stop 2
end do
- if (any (e.ne.char (ichar ('0') + 64))) STOP 3
- if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) STOP 4
- if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) STOP 5
+ if (any (e.ne.char (ichar ('0') + 64))) stop 3
+ if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) stop 4
+ if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) stop 5
end
elemental function fn (x, y)
character (len=64), intent (in) :: x, y
r4 = r4 + 1.0
call dp_add (dp, 1.0d0)
!$omp end parallel
- if (xdt%r .ne. r) STOP 1
- if (i4.ne.r.or.i8.ne.r.or.r4.ne.r.or.dp.ne.r) STOP 2
+ if (xdt%r .ne. r) stop 1
+ if (i4.ne.r.or.i8.ne.r.or.r4.ne.r.or.dp.ne.r) stop 2
end program udr5
call dp_add (dp(i), 1.0d0)
end do
!$omp end parallel
- if (any (xdt%r .ne. r)) STOP 1
- if (any (i4.ne.r).or.any(i8.ne.r)) STOP 2
- if (any(r4.ne.r).or.any(dp.ne.r)) STOP 3
+ if (any (xdt%r .ne. r)) stop 1
+ if (any (i4.ne.r).or.any(i8.ne.r)) stop 2
+ if (any(r4.ne.r).or.any(dp.ne.r)) stop 3
deallocate (xdt, i4, i8, r4, dp)
end program udr6
do i = 1, 64
x = x + i
end do
- if (any (x /= 2080.0)) STOP 1
+ if (any (x /= 2080.0)) stop 1
contains
elemental subroutine omp_out (x, y)
real, intent (out) :: x
j = j.add.iand (i, -4)
d = d + dt(i)
end do
- if (d%x /= 5050 .or. j /= 4903) STOP 1
+ if (d%x /= 5050 .or. j /= 4903) stop 1
end
end subroutine
subroutine initializer1 (x, y)
integer :: x, y
- if (y .ne. 3) STOP 1
+ if (y .ne. 3) stop 1
x = y
end subroutine
end module udr9m1
j = j.add.iand (i, -4)
d = d + dt(i)
end do
- if (d%x /= 5050 .or. j /= 4903) STOP 2
+ if (d%x /= 5050 .or. j /= 4903) stop 2
end
call check (size (k, 3), 3, l)
call check (size (k), 15, l)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine foo
subroutine test
call check (size (k, 3), 3, l)
call check (size (k), 15, l)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine foo
subroutine test
call check (size (k, 3), 3, l)
call check (size (k), 15, l)
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine foo
subroutine test
call check (size (k), 15, l)
110 continue
!$omp end parallel do
- if (l) STOP 1
+ if (l) stop 1
if (z2 == 6) then
x = 5
w = 'thread5thr_number_5THREAD5THR_NUMBER_5'
do 115, q = 4, 6
l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
115 continue
- if (l) STOP 2
+ if (l) stop 2
end if
end subroutine foo
call check (size (k), 15, l)
110 continue
!$omp end parallel do
- if (l) STOP 1
+ if (l) stop 1
if (z2 == 6) then
x = 5
w = 'thread5thr_number_5THREAD5THR_NUMBER_5'
do 115, q = 4, 6
l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
115 continue
- if (l) STOP 2
+ if (l) stop 2
end if
end subroutine foo
l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
115 continue
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine foo
subroutine test
character (6) :: c, f2
character (6) :: d(2)
c = f1 (6)
- if (c .ne. 'opqrst') STOP 1
+ if (c .ne. 'opqrst') stop 1
c = f2 (6)
- if (c .ne. '_/!!/_') STOP 2
+ if (c .ne. '_/!!/_') stop 2
d = f3 (6)
- if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') STOP 3
+ if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') stop 3
d = f4 (6)
- if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') STOP 4
+ if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') stop 4
contains
function f1 (n)
use omp_lib
!$omp barrier
l = l .or. f1 .ne. 'def'
!$omp end parallel
- if (l) STOP 5
+ if (l) stop 5
f1 = 'opqrst'
end function f1
function f3 (n)
!$omp barrier
l = l .or. any (f3 .ne. 'def')
!$omp end parallel
- if (l) STOP 6
+ if (l) stop 6
f3(1) = 'opqrst'
f3(2) = 'a'
end function f3
l = l .or. any (f4 .ne. 'def')
l = l .or. size (f4) .ne. 2
!$omp end parallel
- if (l) STOP 7
+ if (l) stop 7
f4(1) = 'Opqrst'
f4(2) = 'A'
end function f4
!$omp barrier
l = l .or. f2 .ne. 'def'
!$omp end parallel
- if (l) STOP 8
+ if (l) stop 8
f2 = '_/!!/_'
end function f2
l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
125 continue
!$omp end parallel
- if (l) STOP 1
+ if (l) stop 1
end subroutine foo
subroutine test
b = 20
a(1:5) = max (a(1:5), b(1:5))
!$omp end parallel workshare
- if (any (a(1:5) .ne. 20)) STOP 1
- if (any (a(6:10) .ne. 10)) STOP 2
- if (.not. foo_seen .or. .not. bar_seen) STOP 3
+ if (any (a(1:5) .ne. 20)) stop 1
+ if (any (a(6:10) .ne. 10)) stop 2
+ if (.not. foo_seen .or. .not. bar_seen) stop 3
end
!$omp parallel workshare
a(:,:) = 17
!$omp end parallel workshare
- if (any (a.ne.17)) STOP 1
+ if (any (a.ne.17)) stop 1
end subroutine f1
subroutine f2
integer a(20:50,70:90),d(15),e(15),f(15)
f = 7
where (e.ge.5) f = f + 1
!$omp end parallel workshare
- if (any (a.ne.17)) STOP 2
- if (c.ne.5.or.b.ne.4) STOP 3
- if (any(d.ne.0)) STOP 4
+ if (any (a.ne.17)) stop 2
+ if (c.ne.5.or.b.ne.4) stop 3
+ if (any(d.ne.0)) stop 4
do i = 1, 15
if (e(i).ge.5) then
- if (f(i).ne.8) STOP 5
+ if (f(i).ne.8) stop 5
else
- if (f(i).ne.7) STOP 6
+ if (f(i).ne.7) stop 6
end if
end do
end subroutine f2
projects / platform / upstream / gcc.git / commitdiff