From: Thomas Koenig Date: Sun, 25 Mar 2018 16:00:52 +0000 (+0000) Subject: re PR fortran/84381 (replace non-std 'call abort' by 'stop 1' in gfortran testsuite) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bfc24e32b92adf9d6959afd21431b1961f2f7f90;p=gcc.git re PR fortran/84381 (replace non-std 'call abort' by 'stop 1' in gfortran testsuite) 2018-03-25 Thomas Koenig PR fortran/84381 * testsuite/libgomp.fortran/aligned1.f03: Replace non-standard call abort by STOP n. * testsuite/libgomp.fortran/alloc-comp-1.f90: Likewise. * testsuite/libgomp.fortran/alloc-comp-2.f90: Likewise. * testsuite/libgomp.fortran/alloc-comp-3.f90: Likewise. * testsuite/libgomp.fortran/allocatable1.f90: Likewise. * testsuite/libgomp.fortran/allocatable10.f90: Likewise. * testsuite/libgomp.fortran/allocatable11.f90: Likewise. * testsuite/libgomp.fortran/allocatable12.f90: Likewise. * testsuite/libgomp.fortran/allocatable2.f90: Likewise. * testsuite/libgomp.fortran/allocatable3.f90: Likewise. * testsuite/libgomp.fortran/allocatable4.f90: Likewise. * testsuite/libgomp.fortran/allocatable5.f90: Likewise. * testsuite/libgomp.fortran/allocatable6.f90: Likewise. * testsuite/libgomp.fortran/allocatable7.f90: Likewise. * testsuite/libgomp.fortran/allocatable8.f90: Likewise. * testsuite/libgomp.fortran/allocatable9.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.18.1.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.19.1.f90: Likewise. * testsuite/libgomp.fortran/associate1.f90: Likewise. * testsuite/libgomp.fortran/associate2.f90: Likewise. * testsuite/libgomp.fortran/associate3.f90: Likewise. * testsuite/libgomp.fortran/cancel-do-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-do-2.f90: Likewise. * testsuite/libgomp.fortran/cancel-parallel-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-sections-1.f90: Likewise. * testsuite/libgomp.fortran/cancel-taskgroup-2.f90: Likewise. * testsuite/libgomp.fortran/character1.f90: Likewise. * testsuite/libgomp.fortran/character2.f90: Likewise. * testsuite/libgomp.fortran/collapse1.f90: Likewise. * testsuite/libgomp.fortran/collapse2.f90: Likewise. * testsuite/libgomp.fortran/collapse3.f90: Likewise. * testsuite/libgomp.fortran/collapse4.f90: Likewise. * testsuite/libgomp.fortran/crayptr1.f90: Likewise. * testsuite/libgomp.fortran/crayptr2.f90: Likewise. * testsuite/libgomp.fortran/crayptr3.f90: Likewise. * testsuite/libgomp.fortran/declare-simd-1.f90: Likewise. * testsuite/libgomp.fortran/declare-simd-3.f90: Likewise. * testsuite/libgomp.fortran/declare-target-2.f90: Likewise. * testsuite/libgomp.fortran/depend-1.f90: Likewise. * testsuite/libgomp.fortran/depend-2.f90: Likewise. * testsuite/libgomp.fortran/depend-3.f90: Likewise. * testsuite/libgomp.fortran/do1.f90: Likewise. * testsuite/libgomp.fortran/do2.f90: Likewise. * testsuite/libgomp.fortran/doacross1.f90: Likewise. * testsuite/libgomp.fortran/doacross2.f90: Likewise. * testsuite/libgomp.fortran/doacross3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/array_sections-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/array_sections-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/async_target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/async_target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/declare_target-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/device-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-6.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-7.f90: Likewise. * testsuite/libgomp.fortran/examples-4/simd-8.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-6.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_data-7.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_update-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/target_update-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-1.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/task_dep-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-2.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-3.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-4.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-5.f90: Likewise. * testsuite/libgomp.fortran/examples-4/teams-6.f90: Likewise. * testsuite/libgomp.fortran/lastprivate1.f90: Likewise. * testsuite/libgomp.fortran/lastprivate2.f90: Likewise. * testsuite/libgomp.fortran/lib1.f90: Likewise. * testsuite/libgomp.fortran/lib2.f: Likewise. * testsuite/libgomp.fortran/lib3.f: Likewise. * testsuite/libgomp.fortran/lib4.f90: Likewise. * testsuite/libgomp.fortran/lock-1.f90: Likewise. * testsuite/libgomp.fortran/lock-2.f90: Likewise. * testsuite/libgomp.fortran/nested1.f90: Likewise. * testsuite/libgomp.fortran/nestedfn1.f90: Likewise. * testsuite/libgomp.fortran/nestedfn2.f90: Likewise. * testsuite/libgomp.fortran/nestedfn3.f90: Likewise. * testsuite/libgomp.fortran/nestedfn4.f90: Likewise. * testsuite/libgomp.fortran/nestedfn5.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic1.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic2.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic3.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic4.f90: Likewise. * testsuite/libgomp.fortran/omp_atomic5.f90: Likewise. * testsuite/libgomp.fortran/omp_cond1.f: Likewise. * testsuite/libgomp.fortran/omp_cond2.f: Likewise. * testsuite/libgomp.fortran/omp_cond3.F90: Likewise. * testsuite/libgomp.fortran/omp_cond4.F90: Likewise. * testsuite/libgomp.fortran/omp_parse1.f90: Likewise. * testsuite/libgomp.fortran/omp_parse2.f90: Likewise. * testsuite/libgomp.fortran/omp_parse3.f90: Likewise. * testsuite/libgomp.fortran/omp_parse4.f90: Likewise. * testsuite/libgomp.fortran/openmp_version-1.f: Likewise. * testsuite/libgomp.fortran/openmp_version-2.f90: Likewise. * testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95: Likewise. * testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95: Likewise. * testsuite/libgomp.fortran/pointer1.f90: Likewise. * testsuite/libgomp.fortran/pointer2.f90: Likewise. * testsuite/libgomp.fortran/pr25162.f: Likewise. * testsuite/libgomp.fortran/pr25219.f90: Likewise. * testsuite/libgomp.fortran/pr27395-1.f90: Likewise. * testsuite/libgomp.fortran/pr27395-2.f90: Likewise. * testsuite/libgomp.fortran/pr27416-1.f90: Likewise. * testsuite/libgomp.fortran/pr27916-1.f90: Likewise. * testsuite/libgomp.fortran/pr27916-2.f90: Likewise. * testsuite/libgomp.fortran/pr28390.f: Likewise. * testsuite/libgomp.fortran/pr29629.f90: Likewise. * testsuite/libgomp.fortran/pr32550.f90: Likewise. * testsuite/libgomp.fortran/pr33880.f90: Likewise. * testsuite/libgomp.fortran/pr34020.f90: Likewise. * testsuite/libgomp.fortran/pr35130.f90: Likewise. * testsuite/libgomp.fortran/pr42162.f90: Likewise. * testsuite/libgomp.fortran/pr46753.f90: Likewise. * testsuite/libgomp.fortran/pr48894.f90: Likewise. * testsuite/libgomp.fortran/pr49792-1.f90: Likewise. * testsuite/libgomp.fortran/pr49792-2.f90: Likewise. * testsuite/libgomp.fortran/pr63938-1.f90: Likewise. * testsuite/libgomp.fortran/pr63938-2.f90: Likewise. * testsuite/libgomp.fortran/pr65597.f90: Likewise. * testsuite/libgomp.fortran/pr66199-1.f90: Likewise. * testsuite/libgomp.fortran/pr71014.f90: Likewise. * testsuite/libgomp.fortran/pr81304.f90: Likewise. * testsuite/libgomp.fortran/pr81841.f90: Likewise. * testsuite/libgomp.fortran/pr84418-1.f90: Likewise. * testsuite/libgomp.fortran/pr84418-2.f90: Likewise. * testsuite/libgomp.fortran/procptr1.f90: Likewise. * testsuite/libgomp.fortran/recursion1.f90: Likewise. * testsuite/libgomp.fortran/reduction1.f90: Likewise. * testsuite/libgomp.fortran/reduction2.f90: Likewise. * testsuite/libgomp.fortran/reduction3.f90: Likewise. * testsuite/libgomp.fortran/reduction4.f90: Likewise. * testsuite/libgomp.fortran/reduction5.f90: Likewise. * testsuite/libgomp.fortran/reduction6.f90: Likewise. * testsuite/libgomp.fortran/reference1.f90: Likewise. * testsuite/libgomp.fortran/reference2.f90: Likewise. * testsuite/libgomp.fortran/retval1.f90: Likewise. * testsuite/libgomp.fortran/retval2.f90: Likewise. * testsuite/libgomp.fortran/sharing1.f90: Likewise. * testsuite/libgomp.fortran/sharing2.f90: Likewise. * testsuite/libgomp.fortran/simd1.f90: Likewise. * testsuite/libgomp.fortran/simd2.f90: Likewise. * testsuite/libgomp.fortran/simd3.f90: Likewise. * testsuite/libgomp.fortran/simd4.f90: Likewise. * testsuite/libgomp.fortran/simd5.f90: Likewise. * testsuite/libgomp.fortran/simd6.f90: Likewise. * testsuite/libgomp.fortran/simd7.f90: Likewise. * testsuite/libgomp.fortran/stack.f90: Likewise. * testsuite/libgomp.fortran/strassen.f90: Likewise. * testsuite/libgomp.fortran/tabs1.f90: Likewise. * testsuite/libgomp.fortran/tabs2.f: Likewise. * testsuite/libgomp.fortran/target1.f90: Likewise. * testsuite/libgomp.fortran/target2.f90: Likewise. * testsuite/libgomp.fortran/target3.f90: Likewise. * testsuite/libgomp.fortran/target4.f90: Likewise. * testsuite/libgomp.fortran/target5.f90: Likewise. * testsuite/libgomp.fortran/target6.f90: Likewise. * testsuite/libgomp.fortran/target7.f90: Likewise. * testsuite/libgomp.fortran/target8.f90: Likewise. * testsuite/libgomp.fortran/task1.f90: Likewise. * testsuite/libgomp.fortran/task2.f90: Likewise. * testsuite/libgomp.fortran/task3.f90: Likewise. * testsuite/libgomp.fortran/task4.f90: Likewise. * testsuite/libgomp.fortran/taskgroup1.f90: Likewise. * testsuite/libgomp.fortran/taskloop1.f90: Likewise. * testsuite/libgomp.fortran/taskloop2.f90: Likewise. * testsuite/libgomp.fortran/taskloop3.f90: Likewise. * testsuite/libgomp.fortran/taskloop4.f90: Likewise. * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. * testsuite/libgomp.fortran/threadprivate4.f90: Likewise. * testsuite/libgomp.fortran/udr1.f90: Likewise. * testsuite/libgomp.fortran/udr10.f90: Likewise. * testsuite/libgomp.fortran/udr11.f90: Likewise. * testsuite/libgomp.fortran/udr12.f90: Likewise. * testsuite/libgomp.fortran/udr13.f90: Likewise. * testsuite/libgomp.fortran/udr14.f90: Likewise. * testsuite/libgomp.fortran/udr15.f90: Likewise. * testsuite/libgomp.fortran/udr2.f90: Likewise. * testsuite/libgomp.fortran/udr3.f90: Likewise. * testsuite/libgomp.fortran/udr4.f90: Likewise. * testsuite/libgomp.fortran/udr5.f90: Likewise. * testsuite/libgomp.fortran/udr6.f90: Likewise. * testsuite/libgomp.fortran/udr7.f90: Likewise. * testsuite/libgomp.fortran/udr8.f90: Likewise. * testsuite/libgomp.fortran/udr9.f90: Likewise. * testsuite/libgomp.fortran/vla1.f90: Likewise. * testsuite/libgomp.fortran/vla2.f90: Likewise. * testsuite/libgomp.fortran/vla3.f90: Likewise. * testsuite/libgomp.fortran/vla4.f90: Likewise. * testsuite/libgomp.fortran/vla5.f90: Likewise. * testsuite/libgomp.fortran/vla6.f90: Likewise. * testsuite/libgomp.fortran/vla7.f90: Likewise. * testsuite/libgomp.fortran/vla8.f90: Likewise. * testsuite/libgomp.fortran/workshare1.f90: Likewise. * testsuite/libgomp.fortran/workshare2.f90: Likewise. * testsuite/libgomp.oacc-fortran/abort-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/abort-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f: Likewise. * testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/asyncwait-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/atomic_rw-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/atomic_update-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/c2.pl: Likewise. * testsuite/libgomp.oacc-fortran/clauses-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/collapse-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/combined-directives-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/combined-reduction.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-4-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/data-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/default-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/firstprivate-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/gang-static-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/host_data-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/if-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop-data.f95: Likewise. * testsuite/libgomp.oacc-fortran/kernels-loop.f95: Likewise. * testsuite/libgomp.oacc-fortran/lib-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-10.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-2.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-3.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-32-1.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-32-2.f: Likewise. * testsuite/libgomp.oacc-fortran/lib-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/lib-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/map-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/nested-function-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/non-scalar-data.f90: Likewise. * testsuite/libgomp.oacc-fortran/openacc_version-1.f: Likewise. * testsuite/libgomp.oacc-fortran/openacc_version-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/par-reduction-2-1.f: Likewise. * testsuite/libgomp.oacc-fortran/par-reduction-2-2.f: Likewise. * testsuite/libgomp.oacc-fortran/parallel-reduction.f90: Likewise. * testsuite/libgomp.oacc-fortran/pointer-align-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr70643.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr81352.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr83920.f90: Likewise. * testsuite/libgomp.oacc-fortran/pr84028.f90: Likewise. * testsuite/libgomp.oacc-fortran/private-variables.f90: Likewise. * testsuite/libgomp.oacc-fortran/pset-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/reduction-8.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-5.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-7.f90: Likewise. * testsuite/libgomp.oacc-fortran/routine-9.f90: Likewise. * testsuite/libgomp.oacc-fortran/subarrays-1.f90: Likewise. * testsuite/libgomp.oacc-fortran/subarrays-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/update-1.f90: Likewise. From-SVN: r258846 --- diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 2952c7b0992..008b93535fb 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,321 @@ +2018-03-25 Thomas Koenig + + PR fortran/84381 + * testsuite/libgomp.fortran/aligned1.f03: Replace non-standard + call abort by STOP n. + * testsuite/libgomp.fortran/alloc-comp-1.f90: Likewise. + * testsuite/libgomp.fortran/alloc-comp-2.f90: Likewise. + * testsuite/libgomp.fortran/alloc-comp-3.f90: Likewise. + * testsuite/libgomp.fortran/allocatable1.f90: Likewise. + * testsuite/libgomp.fortran/allocatable10.f90: Likewise. + * testsuite/libgomp.fortran/allocatable11.f90: Likewise. + * testsuite/libgomp.fortran/allocatable12.f90: Likewise. + * testsuite/libgomp.fortran/allocatable2.f90: Likewise. + * testsuite/libgomp.fortran/allocatable3.f90: Likewise. + * testsuite/libgomp.fortran/allocatable4.f90: Likewise. + * testsuite/libgomp.fortran/allocatable5.f90: Likewise. + * testsuite/libgomp.fortran/allocatable6.f90: Likewise. + * testsuite/libgomp.fortran/allocatable7.f90: Likewise. + * testsuite/libgomp.fortran/allocatable8.f90: Likewise. + * testsuite/libgomp.fortran/allocatable9.f90: Likewise. + * testsuite/libgomp.fortran/appendix-a/a.18.1.f90: Likewise. + * testsuite/libgomp.fortran/appendix-a/a.19.1.f90: Likewise. + * testsuite/libgomp.fortran/associate1.f90: Likewise. + * testsuite/libgomp.fortran/associate2.f90: Likewise. + * testsuite/libgomp.fortran/associate3.f90: Likewise. + * testsuite/libgomp.fortran/cancel-do-1.f90: Likewise. + * testsuite/libgomp.fortran/cancel-do-2.f90: Likewise. + * testsuite/libgomp.fortran/cancel-parallel-1.f90: Likewise. + * testsuite/libgomp.fortran/cancel-sections-1.f90: Likewise. + * testsuite/libgomp.fortran/cancel-taskgroup-2.f90: Likewise. + * testsuite/libgomp.fortran/character1.f90: Likewise. + * testsuite/libgomp.fortran/character2.f90: Likewise. + * testsuite/libgomp.fortran/collapse1.f90: Likewise. + * testsuite/libgomp.fortran/collapse2.f90: Likewise. + * testsuite/libgomp.fortran/collapse3.f90: Likewise. + * testsuite/libgomp.fortran/collapse4.f90: Likewise. + * testsuite/libgomp.fortran/crayptr1.f90: Likewise. + * testsuite/libgomp.fortran/crayptr2.f90: Likewise. + * testsuite/libgomp.fortran/crayptr3.f90: Likewise. + * testsuite/libgomp.fortran/declare-simd-1.f90: Likewise. + * testsuite/libgomp.fortran/declare-simd-3.f90: Likewise. + * testsuite/libgomp.fortran/declare-target-2.f90: Likewise. + * testsuite/libgomp.fortran/depend-1.f90: Likewise. + * testsuite/libgomp.fortran/depend-2.f90: Likewise. + * testsuite/libgomp.fortran/depend-3.f90: Likewise. + * testsuite/libgomp.fortran/do1.f90: Likewise. + * testsuite/libgomp.fortran/do2.f90: Likewise. + * testsuite/libgomp.fortran/doacross1.f90: Likewise. + * testsuite/libgomp.fortran/doacross2.f90: Likewise. + * testsuite/libgomp.fortran/doacross3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/array_sections-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/array_sections-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/async_target-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/async_target-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/declare_target-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/declare_target-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/declare_target-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/device-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/device-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/device-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-6.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-7.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/simd-8.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-6.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_data-7.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_update-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/target_update-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/task_dep-1.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/task_dep-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/task_dep-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/task_dep-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/task_dep-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/teams-2.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/teams-3.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/teams-4.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/teams-5.f90: Likewise. + * testsuite/libgomp.fortran/examples-4/teams-6.f90: Likewise. + * testsuite/libgomp.fortran/lastprivate1.f90: Likewise. + * testsuite/libgomp.fortran/lastprivate2.f90: Likewise. + * testsuite/libgomp.fortran/lib1.f90: Likewise. + * testsuite/libgomp.fortran/lib2.f: Likewise. + * testsuite/libgomp.fortran/lib3.f: Likewise. + * testsuite/libgomp.fortran/lib4.f90: Likewise. + * testsuite/libgomp.fortran/lock-1.f90: Likewise. + * testsuite/libgomp.fortran/lock-2.f90: Likewise. + * testsuite/libgomp.fortran/nested1.f90: Likewise. + * testsuite/libgomp.fortran/nestedfn1.f90: Likewise. + * testsuite/libgomp.fortran/nestedfn2.f90: Likewise. + * testsuite/libgomp.fortran/nestedfn3.f90: Likewise. + * testsuite/libgomp.fortran/nestedfn4.f90: Likewise. + * testsuite/libgomp.fortran/nestedfn5.f90: Likewise. + * testsuite/libgomp.fortran/omp_atomic1.f90: Likewise. + * testsuite/libgomp.fortran/omp_atomic2.f90: Likewise. + * testsuite/libgomp.fortran/omp_atomic3.f90: Likewise. + * testsuite/libgomp.fortran/omp_atomic4.f90: Likewise. + * testsuite/libgomp.fortran/omp_atomic5.f90: Likewise. + * testsuite/libgomp.fortran/omp_cond1.f: Likewise. + * testsuite/libgomp.fortran/omp_cond2.f: Likewise. + * testsuite/libgomp.fortran/omp_cond3.F90: Likewise. + * testsuite/libgomp.fortran/omp_cond4.F90: Likewise. + * testsuite/libgomp.fortran/omp_parse1.f90: Likewise. + * testsuite/libgomp.fortran/omp_parse2.f90: Likewise. + * testsuite/libgomp.fortran/omp_parse3.f90: Likewise. + * testsuite/libgomp.fortran/omp_parse4.f90: Likewise. + * testsuite/libgomp.fortran/openmp_version-1.f: Likewise. + * testsuite/libgomp.fortran/openmp_version-2.f90: Likewise. + * testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95: Likewise. + * testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95: Likewise. + * testsuite/libgomp.fortran/pointer1.f90: Likewise. + * testsuite/libgomp.fortran/pointer2.f90: Likewise. + * testsuite/libgomp.fortran/pr25162.f: Likewise. + * testsuite/libgomp.fortran/pr25219.f90: Likewise. + * testsuite/libgomp.fortran/pr27395-1.f90: Likewise. + * testsuite/libgomp.fortran/pr27395-2.f90: Likewise. + * testsuite/libgomp.fortran/pr27416-1.f90: Likewise. + * testsuite/libgomp.fortran/pr27916-1.f90: Likewise. + * testsuite/libgomp.fortran/pr27916-2.f90: Likewise. + * testsuite/libgomp.fortran/pr28390.f: Likewise. + * testsuite/libgomp.fortran/pr29629.f90: Likewise. + * testsuite/libgomp.fortran/pr32550.f90: Likewise. + * testsuite/libgomp.fortran/pr33880.f90: Likewise. + * testsuite/libgomp.fortran/pr34020.f90: Likewise. + * testsuite/libgomp.fortran/pr35130.f90: Likewise. + * testsuite/libgomp.fortran/pr42162.f90: Likewise. + * testsuite/libgomp.fortran/pr46753.f90: Likewise. + * testsuite/libgomp.fortran/pr48894.f90: Likewise. + * testsuite/libgomp.fortran/pr49792-1.f90: Likewise. + * testsuite/libgomp.fortran/pr49792-2.f90: Likewise. + * testsuite/libgomp.fortran/pr63938-1.f90: Likewise. + * testsuite/libgomp.fortran/pr63938-2.f90: Likewise. + * testsuite/libgomp.fortran/pr65597.f90: Likewise. + * testsuite/libgomp.fortran/pr66199-1.f90: Likewise. + * testsuite/libgomp.fortran/pr71014.f90: Likewise. + * testsuite/libgomp.fortran/pr81304.f90: Likewise. + * testsuite/libgomp.fortran/pr81841.f90: Likewise. + * testsuite/libgomp.fortran/pr84418-1.f90: Likewise. + * testsuite/libgomp.fortran/pr84418-2.f90: Likewise. + * testsuite/libgomp.fortran/procptr1.f90: Likewise. + * testsuite/libgomp.fortran/recursion1.f90: Likewise. + * testsuite/libgomp.fortran/reduction1.f90: Likewise. + * testsuite/libgomp.fortran/reduction2.f90: Likewise. + * testsuite/libgomp.fortran/reduction3.f90: Likewise. + * testsuite/libgomp.fortran/reduction4.f90: Likewise. + * testsuite/libgomp.fortran/reduction5.f90: Likewise. + * testsuite/libgomp.fortran/reduction6.f90: Likewise. + * testsuite/libgomp.fortran/reference1.f90: Likewise. + * testsuite/libgomp.fortran/reference2.f90: Likewise. + * testsuite/libgomp.fortran/retval1.f90: Likewise. + * testsuite/libgomp.fortran/retval2.f90: Likewise. + * testsuite/libgomp.fortran/sharing1.f90: Likewise. + * testsuite/libgomp.fortran/sharing2.f90: Likewise. + * testsuite/libgomp.fortran/simd1.f90: Likewise. + * testsuite/libgomp.fortran/simd2.f90: Likewise. + * testsuite/libgomp.fortran/simd3.f90: Likewise. + * testsuite/libgomp.fortran/simd4.f90: Likewise. + * testsuite/libgomp.fortran/simd5.f90: Likewise. + * testsuite/libgomp.fortran/simd6.f90: Likewise. + * testsuite/libgomp.fortran/simd7.f90: Likewise. + * testsuite/libgomp.fortran/stack.f90: Likewise. + * testsuite/libgomp.fortran/strassen.f90: Likewise. + * testsuite/libgomp.fortran/tabs1.f90: Likewise. + * testsuite/libgomp.fortran/tabs2.f: Likewise. + * testsuite/libgomp.fortran/target1.f90: Likewise. + * testsuite/libgomp.fortran/target2.f90: Likewise. + * testsuite/libgomp.fortran/target3.f90: Likewise. + * testsuite/libgomp.fortran/target4.f90: Likewise. + * testsuite/libgomp.fortran/target5.f90: Likewise. + * testsuite/libgomp.fortran/target6.f90: Likewise. + * testsuite/libgomp.fortran/target7.f90: Likewise. + * testsuite/libgomp.fortran/target8.f90: Likewise. + * testsuite/libgomp.fortran/task1.f90: Likewise. + * testsuite/libgomp.fortran/task2.f90: Likewise. + * testsuite/libgomp.fortran/task3.f90: Likewise. + * testsuite/libgomp.fortran/task4.f90: Likewise. + * testsuite/libgomp.fortran/taskgroup1.f90: Likewise. + * testsuite/libgomp.fortran/taskloop1.f90: Likewise. + * testsuite/libgomp.fortran/taskloop2.f90: Likewise. + * testsuite/libgomp.fortran/taskloop3.f90: Likewise. + * testsuite/libgomp.fortran/taskloop4.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. + * testsuite/libgomp.fortran/threadprivate4.f90: Likewise. + * testsuite/libgomp.fortran/udr1.f90: Likewise. + * testsuite/libgomp.fortran/udr10.f90: Likewise. + * testsuite/libgomp.fortran/udr11.f90: Likewise. + * testsuite/libgomp.fortran/udr12.f90: Likewise. + * testsuite/libgomp.fortran/udr13.f90: Likewise. + * testsuite/libgomp.fortran/udr14.f90: Likewise. + * testsuite/libgomp.fortran/udr15.f90: Likewise. + * testsuite/libgomp.fortran/udr2.f90: Likewise. + * testsuite/libgomp.fortran/udr3.f90: Likewise. + * testsuite/libgomp.fortran/udr4.f90: Likewise. + * testsuite/libgomp.fortran/udr5.f90: Likewise. + * testsuite/libgomp.fortran/udr6.f90: Likewise. + * testsuite/libgomp.fortran/udr7.f90: Likewise. + * testsuite/libgomp.fortran/udr8.f90: Likewise. + * testsuite/libgomp.fortran/udr9.f90: Likewise. + * testsuite/libgomp.fortran/vla1.f90: Likewise. + * testsuite/libgomp.fortran/vla2.f90: Likewise. + * testsuite/libgomp.fortran/vla3.f90: Likewise. + * testsuite/libgomp.fortran/vla4.f90: Likewise. + * testsuite/libgomp.fortran/vla5.f90: Likewise. + * testsuite/libgomp.fortran/vla6.f90: Likewise. + * testsuite/libgomp.fortran/vla7.f90: Likewise. + * testsuite/libgomp.fortran/vla8.f90: Likewise. + * testsuite/libgomp.fortran/workshare1.f90: Likewise. + * testsuite/libgomp.fortran/workshare2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/abort-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/abort-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f: Likewise. + * testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f: Likewise. + * testsuite/libgomp.oacc-fortran/asyncwait-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/asyncwait-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/asyncwait-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/atomic_capture-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/atomic_rw-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/atomic_update-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/c2.pl: Likewise. + * testsuite/libgomp.oacc-fortran/clauses-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-5.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-6.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-7.f90: Likewise. + * testsuite/libgomp.oacc-fortran/collapse-8.f90: Likewise. + * testsuite/libgomp.oacc-fortran/combined-directives-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/combined-reduction.f90: Likewise. + * testsuite/libgomp.oacc-fortran/data-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/data-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/data-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/data-4-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/data-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/declare-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/declare-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/declare-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/declare-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/declare-5.f90: Likewise. + * testsuite/libgomp.oacc-fortran/default-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/firstprivate-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/gang-static-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/host_data-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/if-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-2.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop-data.f95: Likewise. + * testsuite/libgomp.oacc-fortran/kernels-loop.f95: Likewise. + * testsuite/libgomp.oacc-fortran/lib-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-10.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-2.f: Likewise. + * testsuite/libgomp.oacc-fortran/lib-3.f: Likewise. + * testsuite/libgomp.oacc-fortran/lib-32-1.f: Likewise. + * testsuite/libgomp.oacc-fortran/lib-32-2.f: Likewise. + * testsuite/libgomp.oacc-fortran/lib-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-5.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-6.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-7.f90: Likewise. + * testsuite/libgomp.oacc-fortran/lib-8.f90: Likewise. + * testsuite/libgomp.oacc-fortran/map-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/nested-function-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/nested-function-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/nested-function-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/non-scalar-data.f90: Likewise. + * testsuite/libgomp.oacc-fortran/openacc_version-1.f: Likewise. + * testsuite/libgomp.oacc-fortran/openacc_version-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/par-reduction-2-1.f: Likewise. + * testsuite/libgomp.oacc-fortran/par-reduction-2-2.f: Likewise. + * testsuite/libgomp.oacc-fortran/parallel-reduction.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pointer-align-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pr70643.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pr81352.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pr83920.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pr84028.f90: Likewise. + * testsuite/libgomp.oacc-fortran/private-variables.f90: Likewise. + * testsuite/libgomp.oacc-fortran/pset-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-5.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-6.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-7.f90: Likewise. + * testsuite/libgomp.oacc-fortran/reduction-8.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-3.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-4.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-5.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-7.f90: Likewise. + * testsuite/libgomp.oacc-fortran/routine-9.f90: Likewise. + * testsuite/libgomp.oacc-fortran/subarrays-1.f90: Likewise. + * testsuite/libgomp.oacc-fortran/subarrays-2.f90: Likewise. + * testsuite/libgomp.oacc-fortran/update-1.f90: Likewise. + 2018-03-20 Richard Biener * testsuite/libgomp.graphite/force-parallel-4.c: XFAIL one diff --git a/libgomp/Makefile.in b/libgomp/Makefile.in index 6aff7fc0d96..3970adf8555 100644 --- a/libgomp/Makefile.in +++ b/libgomp/Makefile.in @@ -17,7 +17,7 @@ # Plugins for offload execution, Makefile.am fragment. # -# Copyright (C) 2014-2017 Free Software Foundation, Inc. +# Copyright (C) 2014-2018 Free Software Foundation, Inc. # # Contributed by Mentor Embedded. # diff --git a/libgomp/testsuite/libgomp.fortran/aligned1.f03 b/libgomp/testsuite/libgomp.fortran/aligned1.f03 index 2db03e13058..582ea03c029 100644 --- a/libgomp/testsuite/libgomp.fortran/aligned1.f03 +++ b/libgomp/testsuite/libgomp.fortran/aligned1.f03 @@ -42,12 +42,12 @@ end do call foo (p, q, c_loc (r(1)), s) do i = 1, 1024 - if (p(i) /= i * i + 3 * i + 2) call abort + 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) call abort + if (p(i) /= i * i + 3 * i + 2) STOP 2 end do ! Attempt to create 64-byte aligned allocatable do i = 1, 64 @@ -65,7 +65,7 @@ end do call baz (p, c) do i = 1, 1024 - if (p(i) /= i * i + 5 * i + 2) call abort + if (p(i) /= i * i + 5 * i + 2) STOP 3 end do end if end diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 index 2a2a12ec817..fac03653da0 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 @@ -22,19 +22,19 @@ contains 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))) call abort + 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) call abort - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) call abort + 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) call abort - if (obj%d /= val .or. obj%e /= val) call abort + 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)) call abort + if (any (obj%c /= val)) STOP 6 end if if (f) then - if (obj%f /= val) call abort + if (obj%f /= val) STOP 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains 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))) call abort + 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) call abort + 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 @@ -57,7 +57,7 @@ contains 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) call abort + 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) diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 index 490ed24cf4f..7d035387a3e 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 @@ -22,19 +22,19 @@ contains 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))) call abort + 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) call abort - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) call abort + 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) call abort - if (obj%d /= val .or. obj%e /= val) call abort + 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)) call abort + if (any (obj%c /= val)) STOP 6 end if if (f) then - if (obj%f /= val) call abort + if (obj%f /= val) STOP 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains 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))) call abort + 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) call abort + 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 @@ -57,7 +57,7 @@ contains 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) call abort + 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) @@ -122,20 +122,20 @@ contains logical, parameter :: T = .true. logical :: l !$omp parallel private (x, y, z) - if (allocated (x) .or. allocated (y) .or. allocated (z)) call abort + 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)) call abort + 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)) call abort + 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)) call abort + 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) @@ -148,10 +148,10 @@ contains 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)) call abort - if (.not.allocated (z)) call abort - if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) call abort - if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) call abort + 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) diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 index 20f13144a62..42ba7b4b7e2 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 @@ -22,19 +22,19 @@ contains 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))) call abort + 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) call abort - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) call abort + 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) call abort - if (obj%d /= val .or. obj%e /= val) call abort + 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)) call abort + if (any (obj%c /= val)) STOP 6 end if if (f) then - if (obj%f /= val) call abort + if (obj%f /= val) STOP 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains 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))) call abort + 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) call abort + 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 @@ -57,7 +57,7 @@ contains 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) call abort + 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) @@ -124,27 +124,27 @@ contains logical, parameter :: F = .false. logical, parameter :: T = .true. logical :: l - if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) call abort - if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) call abort + 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)) call abort + if (allocated (z)) STOP 13 !$omp end parallel !$omp parallel firstprivate (z) - if (allocated (z)) call abort + 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)) call abort + if (allocated (z)) STOP 15 end if !$omp section if (.not. l) then - if (allocated (z)) call abort + 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) @@ -153,9 +153,9 @@ contains 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)) call abort - if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) call abort - if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) call abort + 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) @@ -203,8 +203,8 @@ contains 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) call abort - if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) call abort + 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) diff --git a/libgomp/testsuite/libgomp.fortran/allocatable1.f90 b/libgomp/testsuite/libgomp.fortran/allocatable1.f90 index 1efe2abe959..b9fd2ee6dbc 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable1.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable1.f90 @@ -7,7 +7,7 @@ logical :: k, l b(:, :) = 16 l = .false. - if (allocated (a)) call abort + if (allocated (a)) STOP 1 !$omp parallel private (a, b) reduction (.or.:l) l = l.or.allocated (a) allocate (a(3, 6)) @@ -18,18 +18,18 @@ deallocate (a) l = l.or.allocated (a) !$omp end parallel - if (allocated (a).or.l) call abort + if (allocated (a).or.l) STOP 2 allocate (a(6, 3)) a(:, :) = 3 - if (.not.allocated (a)) call abort + 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) call abort + 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)) call abort + 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 @@ -41,7 +41,7 @@ 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) call abort + 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) @@ -59,9 +59,9 @@ a(:, :) = i + 2 b(:, :) = i end do - if (any (a.ne.38).or.any (b.ne.36).or.l) call abort + if (any (a.ne.38).or.any (b.ne.36).or.l) STOP 7 deallocate (a) - if (allocated (a)) call abort + if (allocated (a)) STOP 8 allocate (a (0:1, 0:3)) a(:, :) = 0 !$omp parallel do reduction (+:a) reduction (.or.:l) & @@ -72,10 +72,10 @@ 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) call abort + if (l) STOP 9 do i = 0, 1 do j = 0, 3 - if (a(i, j) .ne. (5*i + 3*j)) call abort + if (a(i, j) .ne. (5*i + 3*j)) STOP 10 end do end do end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable10.f90 b/libgomp/testsuite/libgomp.fortran/allocatable10.f90 index 54eed617b45..9b05dc74143 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable10.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable10.f90 @@ -4,109 +4,109 @@ 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/allocatable11.f90 b/libgomp/testsuite/libgomp.fortran/allocatable11.f90 index 479f6041b7d..916dc6e596e 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable11.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable11.f90 @@ -5,68 +5,68 @@ integer, allocatable, save :: a, b(:), c(:,:) integer :: p !$omp threadprivate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= (10 - p)) call abort - if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) call abort - if (a /= p .or. any (b /= p) .or. any (c /= p)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 10) call abort - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 24) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 8) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) call abort - if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) call abort + 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)) call abort + 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)) call abort + if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 36 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable12.f90 b/libgomp/testsuite/libgomp.fortran/allocatable12.f90 index 533ab7cd85d..6ccf1c0323c 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable12.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable12.f90 @@ -2,11 +2,11 @@ integer, allocatable :: a, b(:), c(:,:) logical :: l - if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort + 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)) call abort + if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2 !$omp single allocate (a, b(6:9), c(3, 8:9)) @@ -15,60 +15,60 @@ c = 6 !$omp end single copyprivate (a, b, c) - if (.not.allocated (a)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 5) call abort - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) call abort - if (.not.allocated (c) .or. size (c) /= 18) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 6) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) call abort - if (a /= 1 .or. any (b /= 2) .or. any (c /= 3)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 5) call abort + 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) call abort + if (lbound (b, 1) /= 2 .or. ubound (b, 1) /= 6) STOP 23 else - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) call abort + if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) STOP 24 end if - if (.not.allocated (c) .or. size (c) /= 18) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 6) call abort + 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) call abort - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 8) call abort + 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) call abort - if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) call abort + 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)) call abort + if (a /= 7 .or. any (b /= 8) .or. any (c /= 9)) STOP 31 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable2.f90 b/libgomp/testsuite/libgomp.fortran/allocatable2.f90 index a37616b04b1..1361e6d1a91 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable2.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable2.f90 @@ -7,7 +7,7 @@ integer :: n logical :: l !$omp threadprivate (a) - if (allocated (a)) call abort + if (allocated (a)) STOP 1 call omp_set_dynamic (.false.) l = .false. !$omp parallel num_threads (4) reduction(.or.:l) @@ -16,7 +16,7 @@ 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)) call abort () + 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) @@ -37,11 +37,11 @@ deallocate (b) l = l.or.allocated (b) !$omp end parallel - if (n.lt.0 .or. n.ge.4) call abort - if (l.or.any(a.ne.(n + 36))) call abort + 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)) call abort + if (l.or.allocated (a)) STOP 4 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable3.f90 b/libgomp/testsuite/libgomp.fortran/allocatable3.f90 index fe3714a2b1f..03ed1ac3f1a 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable3.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable3.f90 @@ -4,7 +4,7 @@ integer :: i logical :: l l = .false. - if (allocated (a)) call abort + if (allocated (a)) STOP 1 !$omp parallel private (a) reduction (.or.:l) allocate (a (-7:-5)) l = l.or..not.allocated (a) diff --git a/libgomp/testsuite/libgomp.fortran/allocatable4.f90 b/libgomp/testsuite/libgomp.fortran/allocatable4.f90 index 996578c94fa..0b0ac174fad 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable4.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable4.f90 @@ -6,7 +6,7 @@ logical :: k, l b(:, :) = 16 l = .false. - if (allocated (a)) call abort + if (allocated (a)) STOP 1 !$omp task private (a, b) shared (l) l = l.or.allocated (a) allocate (a(3, 6)) @@ -18,19 +18,19 @@ l = l.or.allocated (a) !$omp end task !$omp taskwait - if (allocated (a).or.l) call abort + if (allocated (a).or.l) STOP 2 allocate (a(6, 3)) a(:, :) = 3 - if (.not.allocated (a)) call abort + 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) call abort + 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)) call abort + 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 @@ -43,5 +43,5 @@ b(:, :) = 8 !$omp end task !$omp taskwait - if (any (a.ne.3).or.any (b.ne.16).or.l) call abort + if (any (a.ne.3).or.any (b.ne.16).or.l) STOP 6 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable5.f90 b/libgomp/testsuite/libgomp.fortran/allocatable5.f90 index 41809302413..20ac6012ebd 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable5.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable5.f90 @@ -12,6 +12,6 @@ program pr42866 a = a + 2 !$omp end sections !$omp end parallel - if (any (a.ne.3)) call abort + if (any (a.ne.3)) STOP 1 deallocate (a) end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable6.f90 b/libgomp/testsuite/libgomp.fortran/allocatable6.f90 index 47b67aa56d0..444af1dd713 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable6.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable6.f90 @@ -25,10 +25,10 @@ else if (i .gt. 1 .and. i .lt. 9) then j = 7 end if - if (c(i) .ne. j) call abort + 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) call abort + if (d(i) .ne. j) STOP 2 end do deallocate (a, b, c, d) end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable7.f90 b/libgomp/testsuite/libgomp.fortran/allocatable7.f90 index dc68baa7542..787b03559e2 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable7.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable7.f90 @@ -12,5 +12,5 @@ deallocate (a) l = l .or. allocated (a) !$omp end parallel - if (l) call abort + if (l) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable8.f90 b/libgomp/testsuite/libgomp.fortran/allocatable8.f90 index 209378259e3..84b18f34940 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable8.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable8.f90 @@ -5,10 +5,10 @@ integer, save, allocatable :: a(:, :) logical :: l !$omp threadprivate (a) - if (allocated (a)) call abort + 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)) call abort + if (l.or.allocated (a)) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable9.f90 b/libgomp/testsuite/libgomp.fortran/allocatable9.f90 index 80bf5d389f3..c7decfb4b33 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable9.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable9.f90 @@ -2,155 +2,155 @@ integer, allocatable :: a, b(:), c(:,:) logical :: l - if (allocated (a) .or. allocated (b) .or. allocated (c)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 7) call abort - if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 2 .or. size (c, 2) /= 3) call abort - if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) call abort + 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)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 7) call abort - if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 2 .or. size (c, 2) /= 3) call abort - if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 3) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 4) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort - if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) call abort + 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)) call abort + if (.not.allocated (a)) STOP 52 if (l) then - if (.not.allocated (b) .or. size (b) /= 6) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort + 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) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 3) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort + 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)) call abort + if (.not.allocated (a)) STOP 75 if (l) then - if (.not.allocated (b) .or. size (b) /= 3) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) call abort - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) call abort + 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) call abort - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) call abort - if (.not.allocated (c) .or. size (c) /= 6) call abort - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) call abort + 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)) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 6) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort + 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)) call abort - if (.not.allocated (b) .or. size (b) /= 6) call abort - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) call abort - if (.not.allocated (c) .or. size (c) /= 8) call abort - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) call abort - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) call abort - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) call abort - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.18.1.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.18.1.f90 index 3321485efc3..ad9b763425f 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.18.1.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.18.1.f90 @@ -53,7 +53,7 @@ NEIGHBOR = I - 1 ENDIF IF (RESULT(I) .NE. I * 2 + NEIGHBOR * 2) THEN - CALL ABORT + STOP 1 ENDIF ENDDO END PROGRAM A18 diff --git a/libgomp/testsuite/libgomp.fortran/appendix-a/a.19.1.f90 b/libgomp/testsuite/libgomp.fortran/appendix-a/a.19.1.f90 index 1fe1c424726..8b09e6e9324 100644 --- a/libgomp/testsuite/libgomp.fortran/appendix-a/a.19.1.f90 +++ b/libgomp/testsuite/libgomp.fortran/appendix-a/a.19.1.f90 @@ -55,6 +55,6 @@ RESULT = G(10) PRINT *, RESULT IF (RESULT .NE. 30) THEN - CALL ABORT + STOP 1 ENDIF END PROGRAM A19 diff --git a/libgomp/testsuite/libgomp.fortran/associate1.f90 b/libgomp/testsuite/libgomp.fortran/associate1.f90 index e40995515d8..c7930c7644a 100644 --- a/libgomp/testsuite/libgomp.fortran/associate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate1.f90 @@ -12,12 +12,12 @@ program associate1 !$omp parallel private(v, a) default(none) v = -1 a = 2.5 - if (v /= -1 .or. u /= 15) call abort - if (a(2,1) /= 2.5 .or. b /= 3.5) call abort + 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) call abort + if (u /= -1 .or. b /= 2.5) STOP 3 end associate - if (u /= 15 .or. b /= 3.5) call abort + if (u /= 15 .or. b /= 3.5) STOP 4 !$omp end parallel end associate end program diff --git a/libgomp/testsuite/libgomp.fortran/associate2.f90 b/libgomp/testsuite/libgomp.fortran/associate2.f90 index dee8496e1d7..fbeae95b18f 100644 --- a/libgomp/testsuite/libgomp.fortran/associate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate2.f90 @@ -20,12 +20,12 @@ program associate2 !$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) call abort - if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) call abort + 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) call abort + if (u(3) /= -1 .or. b(1,2) /= 2.5) STOP 3 end associate - if (u(3) /= 15 .or. b(1,2) /= 3.5) call abort + 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 @@ -35,12 +35,12 @@ program associate2 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) call abort - if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) call abort + 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) call abort + if (d(1) /= 15 .or. d(2) /= 15) STOP 7 end associate - if (d(1) /= 9 .or. d(2) /= 7) call abort + if (d(1) /= 9 .or. d(2) /= 7) STOP 8 !$omp end parallel end associate end program diff --git a/libgomp/testsuite/libgomp.fortran/associate3.f90 b/libgomp/testsuite/libgomp.fortran/associate3.f90 index ec3d8dc33b9..da788a467ea 100644 --- a/libgomp/testsuite/libgomp.fortran/associate3.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate3.f90 @@ -16,5 +16,5 @@ if (j.eq.1) k = 7 end do end associate - if (any (v%f(:).ne.21.) .or. i.ne.7) call abort + if (any (v%f(:).ne.21.) .or. i.ne.7) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 index 61713c4dd94..84009ec2ac9 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 @@ -8,7 +8,7 @@ !$omp do do i = 0, 999 !$omp cancel do - if (omp_get_cancellation ()) call abort + if (omp_get_cancellation ()) STOP 1 enddo !$omp endparallel end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 b/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 index c748800cad5..9d8e91cec98 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 @@ -22,7 +22,7 @@ contains !$omp do do i = 0, 999 !$omp cancel do if (x(1)) - call abort + STOP 1 end do !$omp do do i = 0, 999 @@ -47,7 +47,7 @@ contains end do !$omp end do !$omp end parallel - if (v.ne.3000.or.w.ne.0) call abort + 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 @@ -56,7 +56,7 @@ contains !$omp do do i = 0, 999 !$omp cancel do if (x(1)) - call abort + STOP 3 end do !$omp cancel parallel if (omp_get_thread_num ().eq.2.and.x(5)) !$omp do @@ -85,6 +85,6 @@ contains !$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) call abort + if (v.ne.6000.or.w.ne.0) STOP 4 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 index 7d91ff5c169..dc0f69b13ed 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 @@ -5,6 +5,6 @@ !$omp parallel num_threads(32) !$omp cancel parallel - if (omp_get_cancellation ()) call abort + if (omp_get_cancellation ()) STOP 1 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 index 9ba8af84679..7e1d4b37534 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 @@ -7,16 +7,16 @@ !$omp parallel num_threads(32) !$omp sections !$omp cancel sections - call abort + STOP 1 !$omp section !$omp cancel sections - call abort + STOP 2 !$omp section !$omp cancel sections - call abort + STOP 3 !$omp section !$omp cancel sections - call abort + STOP 4 !$omp end sections !$omp end parallel end if diff --git a/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 b/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 index c727a20ae41..54c52208b97 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 @@ -8,7 +8,7 @@ !$omp taskgroup !$omp task !$omp cancel taskgroup - call abort + STOP 1 !$omp endtask !$omp endtaskgroup !$omp endparallel diff --git a/libgomp/testsuite/libgomp.fortran/character1.f90 b/libgomp/testsuite/libgomp.fortran/character1.f90 index f75ae27e8f9..a672b7d2fdc 100644 --- a/libgomp/testsuite/libgomp.fortran/character1.f90 +++ b/libgomp/testsuite/libgomp.fortran/character1.f90 @@ -67,6 +67,6 @@ contains l = l .or. f .ne. 'YY' .or. p .ne. 'm3' .or. r .ne. 'M3' end if !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine test end diff --git a/libgomp/testsuite/libgomp.fortran/character2.f90 b/libgomp/testsuite/libgomp.fortran/character2.f90 index d59032b57a0..20a3f07c4b3 100644 --- a/libgomp/testsuite/libgomp.fortran/character2.f90 +++ b/libgomp/testsuite/libgomp.fortran/character2.f90 @@ -56,6 +56,6 @@ contains l = l .or. t .ne. '456' end if !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine test end diff --git a/libgomp/testsuite/libgomp.fortran/collapse1.f90 b/libgomp/testsuite/libgomp.fortran/collapse1.f90 index 1ecfa0c9365..3777b520245 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse1.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse1.f90 @@ -22,5 +22,5 @@ program collapse1 end do end do !$omp end parallel do - if (l) call abort + if (l) STOP 1 end program collapse1 diff --git a/libgomp/testsuite/libgomp.fortran/collapse2.f90 b/libgomp/testsuite/libgomp.fortran/collapse2.f90 index 77e0dee8260..41126372673 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse2.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse2.f90 @@ -24,7 +24,7 @@ firstdo: do i = 1, 3 end do end do firstdo !$omp end parallel do - if (l) call abort + if (l) STOP 1 end subroutine test1 subroutine test2 @@ -37,7 +37,7 @@ firstdo: do i = 1, 3 enddo enddo dokk 115 continue - if (any(a(1:3,1:3,1:3).ne.1)) call abort + if (any(a(1:3,1:3,1:3).ne.1)) STOP 2 !$omp do collapse(3) dol: do 120 l=1,3 @@ -47,7 +47,7 @@ firstdo: do i = 1, 3 enddo enddo doll 120 end do dol - if (any(a(1:3,1:3,1:3).ne.2)) call abort + if (any(a(1:3,1:3,1:3).ne.2)) STOP 3 end subroutine test2 end program collapse2 diff --git a/libgomp/testsuite/libgomp.fortran/collapse3.f90 b/libgomp/testsuite/libgomp.fortran/collapse3.f90 index eac9eac651b..001dc2ac630 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse3.f90 @@ -24,8 +24,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 @@ -56,8 +56,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 @@ -88,8 +88,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 @@ -120,8 +120,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 @@ -153,8 +153,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 @@ -186,8 +186,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) call abort - if (m.ne.(600+40+18)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/collapse4.f90 b/libgomp/testsuite/libgomp.fortran/collapse4.f90 index f19b0f6c695..2019d8dcccd 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse4.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse4.f90 @@ -8,5 +8,5 @@ end do end do end do - if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) call abort + if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr1.f90 b/libgomp/testsuite/libgomp.fortran/crayptr1.f90 index fb9495e7d7a..28e2aa62d80 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr1.f90 @@ -26,7 +26,7 @@ l = l .or. p .ne. 3 !$omp end parallel - if (l) call abort + if (l) STOP 1 l = .false. !$omp parallel num_threads (2) reduction (.or.:l) default (private) @@ -41,6 +41,6 @@ l = l .or. p .ne. 3 * omp_get_thread_num () + 5 !$omp end parallel - if (l) call abort + if (l) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 index 7e69b87dfa5..2847de92e37 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 @@ -27,5 +27,5 @@ l = l .or. (p .ne. d + 1) !$omp end parallel - if (l) call abort + if (l) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr3.f90 b/libgomp/testsuite/libgomp.fortran/crayptr3.f90 index 5b3de656c4a..bb48f9e7371 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr3.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr3.f90 @@ -18,7 +18,7 @@ l = l .or. (p .ne. (2 + omp_get_thread_num ())) !$omp end parallel - if (l) call abort + if (l) STOP 1 l = .false. ip = loc (a) @@ -31,6 +31,6 @@ l = l .or. (p .ne. (2 + i)) end do - if (l) call abort - if (p .ne. 3) call abort + if (l) STOP 2 + if (p .ne. 3) STOP 3 end diff --git a/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 b/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 index 5cd592c09db..c5b021dd951 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 @@ -61,7 +61,7 @@ end module declare_simd_1_mod do i = 1, 128 b(i) = bar (a(i), 2 * i, b(i)) end do - if (any (b.ne.d)) call abort + if (any (b.ne.d)) STOP 1 !$omp simd do i = 1, 128 b(i) = i * 2.0 @@ -71,7 +71,7 @@ end module declare_simd_1_mod b(i) = baz (7.0_8, 2, b(i)) end do do i = 1, 128 - if (b(i).ne.(7.0 + 4.0 * i)) call abort + if (b(i).ne.(7.0 + 4.0 * i)) STOP 2 end do contains function baz (x, y, z) diff --git a/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 b/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 index 031625ec435..85cea9cab0a 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 @@ -17,6 +17,6 @@ subroutine bar 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)) call abort + if (b(i).ne.(7.0 + 10.0 * i * i)) STOP 1 end do end subroutine bar diff --git a/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 b/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 index f8d3ab2b606..1fbc0dc0cb7 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 @@ -14,5 +14,5 @@ subroutine foo !$omp end target !$omp target update from(var_x) - if (var_x /= 20) call abort + if (var_x /= 20) STOP 1 end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/depend-1.f90 b/libgomp/testsuite/libgomp.fortran/depend-1.f90 index 030d3fb6a55..5f7bb5faf21 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-1.f90 @@ -21,7 +21,7 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 1 !$omp end task !$omp end single !$omp end parallel @@ -36,7 +36,7 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 2 !$omp end task !$omp taskwait !$omp end single @@ -52,7 +52,7 @@ contains x = 2 !$omp endtask !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 3 !$omp endtask !$omp endsingle !$omp endparallel @@ -67,7 +67,7 @@ contains x = 2 !$omp end task !$omp task depend(in: x) - if (x.ne.1) call abort + if (x.ne.1) STOP 4 !$omp end task !$omp end single !$omp end parallel @@ -79,7 +79,7 @@ contains !$omp parallel !$omp single !$omp task shared(x) depend(in: x) - if (x.ne.1) call abort + if (x.ne.1) STOP 5 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -95,7 +95,7 @@ contains x = 1 !$omp taskgroup !$omp task shared(x) depend(in: x) - if (x.ne.1) call abort + if (x.ne.1) STOP 6 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -111,7 +111,7 @@ contains x = 1 !$omp single !$omp task shared(x) depend(in: x) - if (x.ne.1) call abort + if (x.ne.1) STOP 7 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -132,7 +132,7 @@ contains x = 2 !$omp end task !$omp taskwait - if (x.ne.2) call abort + if (x.ne.2) STOP 8 !$omp end single !$omp end parallel end subroutine outdep @@ -146,13 +146,13 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 9 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 10 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 11 !$omp end task !$omp end single !$omp end parallel @@ -167,13 +167,13 @@ contains x = 2; !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 12 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 13 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 14 !$omp end task !$omp taskwait !$omp end single @@ -189,13 +189,13 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 15 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 16 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) call abort + if (x.ne.2) STOP 17 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/depend-2.f90 b/libgomp/testsuite/libgomp.fortran/depend-2.f90 index 0694ce74206..b53ba0795e6 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-2.f90 @@ -6,7 +6,7 @@ !$omp single !$omp taskgroup !$omp task depend(in: x(:, :)) - if (y.ne.1) call abort + if (y.ne.1) STOP 1 !$omp end task !$omp task depend(out: x(:, :)) y = 2 @@ -14,7 +14,7 @@ !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x(4, 7)) - if (y.ne.2) call abort + if (y.ne.2) STOP 2 !$omp end task !$omp task depend(out: x(4:4, 7:7)) y = 3 @@ -22,7 +22,7 @@ !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x(4:, 8:)) - if (y.ne.3) call abort + if (y.ne.3) STOP 3 !$omp end task !$omp task depend(out: x(4:6, 8:12)) y = 4 @@ -30,5 +30,5 @@ !$omp end taskgroup !$omp end single !$omp end parallel - if (y.ne.4) call abort + if (y.ne.4) STOP 4 end diff --git a/libgomp/testsuite/libgomp.fortran/depend-3.f90 b/libgomp/testsuite/libgomp.fortran/depend-3.f90 index 11be6410692..09478da4134 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-3.f90 @@ -13,7 +13,7 @@ contains !$omp single !$omp taskgroup !$omp task depend(in: x) - if (y.ne.1) call abort + if (y.ne.1) STOP 1 !$omp end task !$omp task depend(out: x(1:2, 1:3)) y = 2 @@ -21,7 +21,7 @@ contains !$omp end taskgroup !$omp taskgroup !$omp task depend(in: z) - if (y.ne.2) call abort + if (y.ne.2) STOP 2 !$omp end task !$omp task depend(out: z(-2:3, 2:4)) y = 3 @@ -29,7 +29,7 @@ contains !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x) - if (y.ne.3) call abort + if (y.ne.3) STOP 3 !$omp end task !$omp task depend(out: x(1:, 1:)) y = 4 @@ -37,6 +37,6 @@ contains !$omp end taskgroup !$omp end single !$omp end parallel - if (y.ne.4) call abort + if (y.ne.4) STOP 4 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/do1.f90 b/libgomp/testsuite/libgomp.fortran/do1.f90 index 2a48c7345fc..bb7b6d83e14 100644 --- a/libgomp/testsuite/libgomp.fortran/do1.f90 +++ b/libgomp/testsuite/libgomp.fortran/do1.f90 @@ -47,7 +47,7 @@ !$omp end parallel - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 1 a = -1 !$omp parallel num_threads (4) @@ -79,7 +79,7 @@ !$omp end parallel - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 2 a = -1 !$omp parallel num_threads (4) @@ -111,7 +111,7 @@ !$omp end parallel - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 3 a = -1 !$omp parallel num_threads (4) @@ -143,7 +143,7 @@ !$omp end parallel - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 4 a = -1 !$omp parallel num_threads (4) @@ -175,5 +175,5 @@ !$omp end parallel - if (any (a .ne. b)) call abort + if (any (a .ne. b)) STOP 5 end diff --git a/libgomp/testsuite/libgomp.fortran/do2.f90 b/libgomp/testsuite/libgomp.fortran/do2.f90 index b90ccddd80b..11e3b8cec11 100644 --- a/libgomp/testsuite/libgomp.fortran/do2.f90 +++ b/libgomp/testsuite/libgomp.fortran/do2.f90 @@ -86,7 +86,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 1 a = -1 k = .false. j = 8 @@ -155,7 +155,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 2 a = -1 k = .false. j = 8 @@ -224,7 +224,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 3 a = -1 k = .false. j = 8 @@ -293,7 +293,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 4 a = -1 k = .false. j = 8 @@ -362,5 +362,5 @@ !$omp end parallel - if (any (a .ne. b) .or. k) call abort + if (any (a .ne. b) .or. k) STOP 5 end diff --git a/libgomp/testsuite/libgomp.fortran/doacross1.f90 b/libgomp/testsuite/libgomp.fortran/doacross1.f90 index b4eda8fef64..e3beda05e89 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross1.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross1.f90 @@ -17,14 +17,14 @@ if (i.gt.1) then !$omp atomic read l = a(i - 1) - if (l.lt.2) call abort + 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) call abort + if (l.eq.3) STOP 2 end if !$omp ordered depend(source) !$omp atomic write @@ -43,19 +43,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 5 end if !$omp ordered depend(source) !$omp atomic write @@ -94,19 +94,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -137,13 +137,13 @@ do l = 0, d + 1 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) call abort + 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) call abort + 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) @@ -153,13 +153,13 @@ do m = 0, d-1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - call abort + 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) call abort + 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 @@ -168,7 +168,7 @@ do l = 0, d + 3 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) call abort + if (e.eq.0) STOP 13 end do end do end do @@ -176,7 +176,7 @@ !$omp end do nowait !$omp do do i = 1, N - if (a(i) .ne. 3) call abort + if (a(i) .ne. 3) STOP 14 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -184,9 +184,9 @@ 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) call abort + if (b(i,j,k).ne.3) STOP 15 else - if (b(i,j,k).ne.0) call abort + if (b(i,j,k).ne.0) STOP 16 end if end do end do @@ -197,9 +197,9 @@ 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) call abort + if (c(i,j,k).ne.3) STOP 17 else - if (c(i,j,k).ne.0) call abort + if (c(i,j,k).ne.0) STOP 18 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/doacross2.f90 b/libgomp/testsuite/libgomp.fortran/doacross2.f90 index ddc0c99fd17..226dbe2c14e 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross2.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross2.f90 @@ -20,14 +20,14 @@ if (i.gt.2) then !$omp atomic read l = a(i - 1) - if (l.lt.2) call abort + 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) call abort + if (l.eq.3) STOP 2 end if !$omp ordered depend(source) !$omp atomic write @@ -46,19 +46,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 5 end if !$omp ordered depend(source) !$omp atomic write @@ -97,19 +97,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -145,19 +145,19 @@ if (k.gt.2.and.i.gt.4) then !$omp atomic read l = g(j,k-2,i-1) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 11 end if !$omp ordered depend(source) !$omp atomic write @@ -173,13 +173,13 @@ do l = 0, d + 1 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) call abort + 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) call abort + 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) @@ -189,13 +189,13 @@ do m = 0, d-1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - call abort + 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) call abort + 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 @@ -204,18 +204,18 @@ do l = 0, d + 3 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) call abort + 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) call abort + if (a(1) .ne. 0) STOP 17 !$omp end single nowait !$omp do do i = 2, N - if (a(i) .ne. 3) call abort + if (a(i) .ne. 3) STOP 18 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -223,9 +223,9 @@ 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) call abort + if (b(i,j,k).ne.3) STOP 19 else - if (b(i,j,k).ne.0) call abort + if (b(i,j,k).ne.0) STOP 20 end if end do end do @@ -236,9 +236,9 @@ 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) call abort + if (c(i,j,k).ne.3) STOP 21 else - if (c(i,j,k).ne.0) call abort + if (c(i,j,k).ne.0) STOP 22 end if end do end do @@ -249,9 +249,9 @@ 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) call abort + if (g(i,j,k).ne.3) STOP 23 else - if (g(i,j,k).ne.0) call abort + if (g(i,j,k).ne.0) STOP 24 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/doacross3.f90 b/libgomp/testsuite/libgomp.fortran/doacross3.f90 index 66cfb06284b..6649894a8fe 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross3.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross3.f90 @@ -20,14 +20,14 @@ if (i.gt.2) then !$omp atomic read l = a(i - 1) - if (l.lt.2) call abort + 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) call abort + if (l.eq.3) STOP 2 end if !$omp ordered depend(source) !$omp atomic write @@ -46,19 +46,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 5 end if !$omp ordered depend(source) !$omp atomic write @@ -97,19 +97,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -145,19 +145,19 @@ if (k.gt.2.and.i.gt.4) then !$omp atomic read l = g(j,k-2,i-1) - if (l.lt.2) call abort + 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) call abort + 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) call abort + if (l.lt.2) STOP 11 end if !$omp ordered depend(source) !$omp atomic write @@ -173,13 +173,13 @@ 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) call abort + 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) call abort + 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) @@ -189,13 +189,13 @@ do m = 0, d-1, d+1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - call abort + 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) call abort + 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 @@ -204,18 +204,18 @@ 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) call abort + 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) call abort + if (a(1) .ne. 0) STOP 17 !$omp end single nowait !$omp do do i = 2, N - if (a(i) .ne. 3) call abort + if (a(i) .ne. 3) STOP 18 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -223,9 +223,9 @@ 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) call abort + if (b(i,j,k).ne.3) STOP 19 else - if (b(i,j,k).ne.0) call abort + if (b(i,j,k).ne.0) STOP 20 end if end do end do @@ -236,9 +236,9 @@ 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) call abort + if (c(i,j,k).ne.3) STOP 21 else - if (c(i,j,k).ne.0) call abort + if (c(i,j,k).ne.0) STOP 22 end if end do end do @@ -249,9 +249,9 @@ 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) call abort + if (g(i,j,k).ne.3) STOP 23 else - if (g(i,j,k).ne.0) call abort + if (g(i,j,k).ne.0) STOP 24 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 index 94da51e4fc3..08091b83fcb 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 @@ -12,6 +12,6 @@ contains p(9) = 777 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 777) call abort + if (A(3) /= 777 .or. A(9) /= 777) STOP 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 index 6eb9bc1e5c3..f730894bd95 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 @@ -13,6 +13,6 @@ contains A(9) = 999 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 999) call abort + if (A(3) /= 777 .or. A(9) /= 999) STOP 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 index c3849de335a..dd6f7f5a791 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 @@ -27,7 +27,7 @@ subroutine check () else err = (Y(i) - Z(i)) / Z(i) end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 index a94db899cc8..2380f3a01f0 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 @@ -17,7 +17,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -30,14 +30,14 @@ subroutine vec_mult (p, N) !$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 ()) call abort + 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 ()) call abort + if (omp_is_initial_device ()) STOP 3 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 index dcd2c4a0c25..df941eeaa2e 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 @@ -26,6 +26,6 @@ end module program e_53_1 use e_53_1_mod, only : fib, fib_wrapper - if (fib (15) /= fib_wrapper (15)) call abort - if (fib (25) /= fib_wrapper (25)) call abort + if (fib (15) /= fib_wrapper (15)) STOP 1 + if (fib (25) /= fib_wrapper (25)) STOP 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 index 0fb64af7e6d..9c315697275 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 @@ -6,7 +6,7 @@ program e_53_2 !$omp target map(from: x) x = fib (25) !$omp end target - if (x /= fib (25)) call abort + if (x /= fib (25)) STOP 1 end program integer recursive function fib (n) result (f) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 index fffbb7ff17b..1405ea71793 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 @@ -21,7 +21,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 index 7b4d7e37eb2..47d6cd87d5f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 @@ -53,7 +53,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_53_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 index 94bd6c1a21a..8fd6af7d738 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 @@ -68,7 +68,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_53_5 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 index 30148f1b200..a141e058e52 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 @@ -20,7 +20,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) call abort + if (b /= 100 .or. .not. c .or. d) STOP 1 a = a + 200 b = 0 @@ -36,7 +36,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 0 .or. c .or. d) call abort + if (b /= 0 .or. c .or. d) STOP 2 a = a + 200 b = 0 @@ -52,5 +52,5 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) call abort + if (b /= 100 .or. .not. c .or. d) STOP 3 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 index 4a304b5c799..a7d4f24611f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 @@ -15,10 +15,10 @@ program e_57_2 end do do i = 1, num - if (offload(i)) call abort + if (offload(i)) STOP 1 end do do i = num+1, N - if (.not. offload(i)) call abort + if (.not. offload(i)) STOP 2 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 index d770b910e1a..d6bc042d6c2 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 @@ -11,11 +11,11 @@ program e_57_3 !$omp target map(from: res) res = omp_is_initial_device () !$omp end target - if (res) call abort + 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) call abort + if (.not. res) STOP 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 index b1af859dee4..1d705535cfd 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 @@ -28,7 +28,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 index 74a0303fd79..c9c162fef0d 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 @@ -49,7 +49,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine end module diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 index 2c02945de87..eb8497053bf 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 @@ -57,6 +57,6 @@ program SIMD3 diff = sum - sum_ref - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 index 414f8bc70a8..cb78e2c7765 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 @@ -47,7 +47,7 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 index e64e1d53e21..561deb786c4 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 @@ -56,7 +56,7 @@ contains do j = 1, n do i = 1, n diff = a(i,j) - b(i,j) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 index 5cb1e047cbd..7f7c5101475 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 @@ -109,14 +109,14 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) call abort + 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)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 index 75606570503..e6af9c8224b 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 @@ -23,7 +23,7 @@ program fibonacci call fib_ref (a_ref, N) do i = 0, N-1 - if (a(i) .ne. a_ref(i)) call abort () + if (a(i) .ne. a_ref(i)) STOP 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 index 3c7869d602e..722d9824c5f 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 @@ -47,6 +47,6 @@ program simd_8f diff = pri - 8237.25 - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 index 76e9068e30f..2ec4f68f309 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 index af469f4d687..e995ef5a3ac 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 index 975470411cb..338189f6952 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 index f94794e16aa..856ccdb536a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 @@ -17,7 +17,7 @@ contains real, pointer, dimension(:) :: p do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 index 813a273f958..bae30414234 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -29,7 +29,7 @@ contains 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 ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do if(N > THRESHOLD2) do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 index 98e5c0b8f77..f9cceb94050 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 index 360cdeda7e1..219b450c005 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 index a05c54fb20f..b48dbe29836 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 @@ -19,7 +19,7 @@ contains do k = 1, cols do i = 1, rows diff = P(i,k) - Q(i,k) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 index e9de6ae0015..7499e3b70a5 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 index 01a41adb0f4..8057d058a21 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 index 9b79104feb8..ba6d879ca8b 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 @@ -28,7 +28,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -39,7 +39,7 @@ contains 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 ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) @@ -47,7 +47,7 @@ contains !$omp end target call init_again (v1, v2, N) !$omp target if(N > THRESHOLD) map(to: v1, v2) - if (omp_is_initial_device ()) call abort + if (omp_is_initial_device ()) STOP 3 !$omp parallel do do i = 1, N p(i) = p(i) + v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 index 8fc5832ee86..629ef2c6c4d 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine @@ -30,7 +30,7 @@ contains 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 ()) call abort + if (omp_is_initial_device ()) STOP 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 index e23c0bb7bca..1861d4405a5 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 index 3735e5342e4..7734a6adb96 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 @@ -26,7 +26,7 @@ contains 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) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 index 78201ea860e..f40e36f3bca 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 @@ -9,7 +9,7 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 1 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 index 5afd76dbf43..7debb607ff4 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 @@ -6,7 +6,7 @@ program example !$omp parallel !$omp single !$omp task shared(x) depend(in: x) - if (x .ne. 1) call abort () + if (x .ne. 1) STOP 1 !$omp end task !$omp task shared(x) depend(out: x) x = 2 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 index c8d58205858..34cd2c74970 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 @@ -12,7 +12,7 @@ program example x = 2 !$omp end task !$omp taskwait - if ((x .ne. 1) .and. (x .ne. 2)) call abort() + if ((x .ne. 1) .and. (x .ne. 2)) STOP 1 !$omp end single !$omp end parallel end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 index 7fe24c347df..47e93f9213b 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 @@ -9,10 +9,10 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 1 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) call abort () + if (x .ne. 2) STOP 2 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 index 0746531728e..9e12db3386c 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 @@ -51,7 +51,7 @@ contains do j = 1, N diff = A(i, j) - B(i, j) if (diff > EPS .or. -diff > EPS) then - call abort () + STOP 1 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 index da5816adb4a..794c907e975 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 @@ -49,7 +49,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_1 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 index 9de77afd7d2..1c8f7d8a43d 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 @@ -42,7 +42,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_3 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 index 8d4eb5530e8..94de777c71c 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 @@ -44,7 +44,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) call abort + if (err > EPS .or. err < -EPS) STOP 1 end subroutine program e_54_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 index 9608d9a2c4e..7e380ad2658 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 index f79118816f2..8121fba67d7 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) call abort + if (diff > EPS .or. -diff > EPS) STOP 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 index 91bb96ca75a..132617b5c27 100644 --- a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 @@ -4,15 +4,15 @@ program lastprivate !$omp parallel num_threads (4) call test1 !$omp end parallel - if (i .ne. 21) call abort + if (i .ne. 21) STOP 1 !$omp parallel num_threads (4) call test2 !$omp end parallel - if (i .ne. 64) call abort + if (i .ne. 64) STOP 2 !$omp parallel num_threads (4) call test3 !$omp end parallel - if (i .ne. 14) call abort + if (i .ne. 14) STOP 3 call test4 call test5 call test6 @@ -53,21 +53,21 @@ contains !$omp parallel do lastprivate (j) num_threads (4) default (none) do j = 1, 20 end do - if (j .ne. 21) call abort + 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) call abort + 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) call abort + if (j .ne. 14) STOP 6 end subroutine test6 subroutine test7 integer :: i @@ -75,7 +75,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = 1, 20 end do - if (i .ne. 21) call abort + if (i .ne. 21) STOP 7 end subroutine test7 subroutine test8 integer :: i @@ -83,7 +83,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = 7, 61, 3 end do - if (i .ne. 64) call abort + if (i .ne. 64) STOP 8 end subroutine test8 subroutine test9 integer :: i @@ -91,7 +91,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = -10, 11, ret3 () end do - if (i .ne. 14) call abort + if (i .ne. 14) STOP 9 end subroutine test9 subroutine test10 integer :: i @@ -101,7 +101,7 @@ contains do i = 1, 20 end do !$omp end parallel - if (i .ne. 21) call abort + if (i .ne. 21) STOP 10 end subroutine test10 subroutine test11 integer :: i @@ -111,7 +111,7 @@ contains do i = 7, 61, 3 end do !$omp end parallel - if (i .ne. 64) call abort + if (i .ne. 64) STOP 11 end subroutine test11 subroutine test12 integer :: i @@ -121,6 +121,6 @@ contains do i = -10, 11, ret3 () end do !$omp end parallel - if (i .ne. 14) call abort + if (i .ne. 14) STOP 12 end subroutine test12 end program lastprivate diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 index 6d7e11eab00..6cd5760206c 100644 --- a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 @@ -4,15 +4,15 @@ program lastprivate !$omp parallel num_threads (4) call test1 !$omp end parallel - if (i .ne. 21 .or. k .ne. 20) call abort + 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) call abort + 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) call abort + if (i .ne. 14 .or. k .ne. 11) STOP 3 call test4 call test5 call test6 @@ -57,7 +57,7 @@ contains do j = 1, 20 l = j end do - if (j .ne. 21 .or. l .ne. 20) call abort + if (j .ne. 21 .or. l .ne. 20) STOP 4 end subroutine test4 subroutine test5 integer :: j, l @@ -66,7 +66,7 @@ contains do j = 7, 61, 3 l = j end do - if (j .ne. 64 .or. l .ne. 61) call abort + if (j .ne. 64 .or. l .ne. 61) STOP 5 end subroutine test5 subroutine test6 integer :: j, l @@ -74,7 +74,7 @@ contains do j = -10, 11, ret3 () l = j end do - if (j .ne. 14 .or. l .ne. 11) call abort + if (j .ne. 14 .or. l .ne. 11) STOP 6 end subroutine test6 subroutine test7 integer :: i, k @@ -83,7 +83,7 @@ contains do i = 1, 20 k = i end do - if (i .ne. 21 .or. k .ne. 20) call abort + if (i .ne. 21 .or. k .ne. 20) STOP 7 end subroutine test7 subroutine test8 integer :: i, k @@ -92,7 +92,7 @@ contains do i = 7, 61, 3 k = i end do - if (i .ne. 64 .or. k .ne. 61) call abort + if (i .ne. 64 .or. k .ne. 61) STOP 8 end subroutine test8 subroutine test9 integer :: i, k @@ -102,7 +102,7 @@ contains do i = -10, 11, ret3 () k = i end do - if (i .ne. 14 .or. k .ne. 11) call abort + if (i .ne. 14 .or. k .ne. 11) STOP 9 end subroutine test9 subroutine test10 integer :: i, k @@ -113,7 +113,7 @@ contains k = i end do !$omp end parallel - if (i .ne. 21 .or. k .ne. 20) call abort + if (i .ne. 21 .or. k .ne. 20) STOP 10 end subroutine test10 subroutine test11 integer :: i, k @@ -124,7 +124,7 @@ contains k = i end do !$omp end parallel - if (i .ne. 64 .or. k .ne. 61) call abort + if (i .ne. 64 .or. k .ne. 61) STOP 11 end subroutine test11 subroutine test12 integer :: i, k @@ -136,6 +136,6 @@ contains k = i end do !$omp end parallel - if (i .ne. 14 .or. k .ne. 11) call abort + if (i .ne. 14 .or. k .ne. 11) STOP 12 end subroutine test12 end program lastprivate diff --git a/libgomp/testsuite/libgomp.fortran/lib1.f90 b/libgomp/testsuite/libgomp.fortran/lib1.f90 index e7e1c748a31..92c32508491 100644 --- a/libgomp/testsuite/libgomp.fortran/lib1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lib1.f90 @@ -11,42 +11,42 @@ call omp_init_lock (lck) call omp_set_lock (lck) - if (omp_test_lock (lck)) call abort + if (omp_test_lock (lck)) STOP 1 call omp_unset_lock (lck) - if (.not. omp_test_lock (lck)) call abort - if (omp_test_lock (lck)) call abort + 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) call abort + if (omp_test_nest_lock (nlck) .ne. 1) STOP 4 call omp_set_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 3) call abort + 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) call abort + 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 ()) call abort + if (.not. omp_get_dynamic ()) STOP 7 call omp_set_dynamic (.false.) - if (omp_get_dynamic ()) call abort + if (omp_get_dynamic ()) STOP 8 call omp_set_nested (.true.) - if (.not. omp_get_nested ()) call abort + if (.not. omp_get_nested ()) STOP 9 call omp_set_nested (.false.) - if (omp_get_nested ()) call abort + if (omp_get_nested ()) STOP 10 call omp_set_num_threads (5) - if (omp_get_num_threads () .ne. 1) call abort - if (omp_get_max_threads () .ne. 5) call abort - if (omp_get_thread_num () .ne. 0) call abort + 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) call abort - if (omp_get_max_threads () .ne. 3) call abort - if (omp_get_thread_num () .ne. 0) call abort + 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 @@ -56,22 +56,22 @@ l = l .or. (omp_get_thread_num () .ne. 0) !$omp end master !$omp end parallel - if (l) call abort + if (l) STOP 17 - if (omp_get_num_procs () .le. 0) call abort - if (omp_in_parallel ()) call abort + 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) call abort + if (l) STOP 20 e = omp_get_wtime () - if (d .gt. e) call abort + 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.) call abort + if (d .le. 0 .or. d .gt. 1.) STOP 22 end diff --git a/libgomp/testsuite/libgomp.fortran/lib2.f b/libgomp/testsuite/libgomp.fortran/lib2.f index 20db04a1c5f..91b56c06081 100644 --- a/libgomp/testsuite/libgomp.fortran/lib2.f +++ b/libgomp/testsuite/libgomp.fortran/lib2.f @@ -11,42 +11,42 @@ C { dg-do run } CALL OMP_INIT_LOCK (LCK) CALL OMP_SET_LOCK (LCK) - IF (OMP_TEST_LOCK (LCK)) CALL ABORT + IF (OMP_TEST_LOCK (LCK)) STOP 1 CALL OMP_UNSET_LOCK (LCK) - IF (.NOT. OMP_TEST_LOCK (LCK)) CALL ABORT - IF (OMP_TEST_LOCK (LCK)) CALL ABORT + 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) CALL ABORT + IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 1) STOP 4 CALL OMP_SET_NEST_LOCK (NLCK) - IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 3) CALL ABORT + 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) CALL ABORT + 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 ()) CALL ABORT + IF (.NOT. OMP_GET_DYNAMIC ()) STOP 7 CALL OMP_SET_DYNAMIC (.FALSE.) - IF (OMP_GET_DYNAMIC ()) CALL ABORT + IF (OMP_GET_DYNAMIC ()) STOP 8 CALL OMP_SET_NESTED (.TRUE.) - IF (.NOT. OMP_GET_NESTED ()) CALL ABORT + IF (.NOT. OMP_GET_NESTED ()) STOP 9 CALL OMP_SET_NESTED (.FALSE.) - IF (OMP_GET_NESTED ()) CALL ABORT + IF (OMP_GET_NESTED ()) STOP 10 CALL OMP_SET_NUM_THREADS (5) - IF (OMP_GET_NUM_THREADS () .NE. 1) CALL ABORT - IF (OMP_GET_MAX_THREADS () .NE. 5) CALL ABORT - IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT + 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) CALL ABORT - IF (OMP_GET_MAX_THREADS () .NE. 3) CALL ABORT - IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT + 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. C$OMP PARALLEL REDUCTION (.OR.:L) L = OMP_GET_NUM_THREADS () .NE. 3 @@ -56,22 +56,22 @@ C$OMP MASTER L = L .OR. (OMP_GET_THREAD_NUM () .NE. 0) C$OMP END MASTER C$OMP END PARALLEL - IF (L) CALL ABORT + IF (L) STOP 17 - IF (OMP_GET_NUM_PROCS () .LE. 0) CALL ABORT - IF (OMP_IN_PARALLEL ()) CALL ABORT + IF (OMP_GET_NUM_PROCS () .LE. 0) STOP 18 + IF (OMP_IN_PARALLEL ()) STOP 19 C$OMP PARALLEL REDUCTION (.OR.:L) L = .NOT. OMP_IN_PARALLEL () C$OMP END PARALLEL C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.) L = .NOT. OMP_IN_PARALLEL () C$OMP END PARALLEL - IF (L) CALL ABORT + IF (L) STOP 20 E = OMP_GET_WTIME () - IF (D .GT. E) CALL ABORT + IF (D .GT. E) STOP 21 D = OMP_GET_WTICK () C Negative precision is definitely wrong, C bigger than 1s clock resolution is also strange - IF (D .LE. 0 .OR. D .GT. 1.) CALL ABORT + IF (D .LE. 0 .OR. D .GT. 1.) STOP 22 END diff --git a/libgomp/testsuite/libgomp.fortran/lib3.f b/libgomp/testsuite/libgomp.fortran/lib3.f index 264a377e5dd..34d9b64d9a3 100644 --- a/libgomp/testsuite/libgomp.fortran/lib3.f +++ b/libgomp/testsuite/libgomp.fortran/lib3.f @@ -11,42 +11,42 @@ C { dg-do run } CALL OMP_INIT_LOCK (LCK) CALL OMP_SET_LOCK (LCK) - IF (OMP_TEST_LOCK (LCK)) CALL ABORT + IF (OMP_TEST_LOCK (LCK)) STOP 1 CALL OMP_UNSET_LOCK (LCK) - IF (.NOT. OMP_TEST_LOCK (LCK)) CALL ABORT - IF (OMP_TEST_LOCK (LCK)) CALL ABORT + 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) CALL ABORT + IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 1) STOP 4 CALL OMP_SET_NEST_LOCK (NLCK) - IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 3) CALL ABORT + 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) CALL ABORT + 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 ()) CALL ABORT + IF (.NOT. OMP_GET_DYNAMIC ()) STOP 7 CALL OMP_SET_DYNAMIC (.FALSE.) - IF (OMP_GET_DYNAMIC ()) CALL ABORT + IF (OMP_GET_DYNAMIC ()) STOP 8 CALL OMP_SET_NESTED (.TRUE.) - IF (.NOT. OMP_GET_NESTED ()) CALL ABORT + IF (.NOT. OMP_GET_NESTED ()) STOP 9 CALL OMP_SET_NESTED (.FALSE.) - IF (OMP_GET_NESTED ()) CALL ABORT + IF (OMP_GET_NESTED ()) STOP 10 CALL OMP_SET_NUM_THREADS (5) - IF (OMP_GET_NUM_THREADS () .NE. 1) CALL ABORT - IF (OMP_GET_MAX_THREADS () .NE. 5) CALL ABORT - IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT + 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) CALL ABORT - IF (OMP_GET_MAX_THREADS () .NE. 3) CALL ABORT - IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT + 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. C$OMP PARALLEL REDUCTION (.OR.:L) L = OMP_GET_NUM_THREADS () .NE. 3 @@ -56,22 +56,22 @@ C$OMP MASTER L = L .OR. (OMP_GET_THREAD_NUM () .NE. 0) C$OMP END MASTER C$OMP END PARALLEL - IF (L) CALL ABORT + IF (L) STOP 17 - IF (OMP_GET_NUM_PROCS () .LE. 0) CALL ABORT - IF (OMP_IN_PARALLEL ()) CALL ABORT + IF (OMP_GET_NUM_PROCS () .LE. 0) STOP 18 + IF (OMP_IN_PARALLEL ()) STOP 19 C$OMP PARALLEL REDUCTION (.OR.:L) L = .NOT. OMP_IN_PARALLEL () C$OMP END PARALLEL C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.) L = .NOT. OMP_IN_PARALLEL () C$OMP END PARALLEL - IF (L) CALL ABORT + IF (L) STOP 20 E = OMP_GET_WTIME () - IF (D .GT. E) CALL ABORT + IF (D .GT. E) STOP 21 D = OMP_GET_WTICK () C Negative precision is definitely wrong, C bigger than 1s clock resolution is also strange - IF (D .LE. 0 .OR. D .GT. 1.) CALL ABORT + IF (D .LE. 0 .OR. D .GT. 1.) STOP 22 END diff --git a/libgomp/testsuite/libgomp.fortran/lib4.f90 b/libgomp/testsuite/libgomp.fortran/lib4.f90 index cbb984574ff..ce6aa00e521 100644 --- a/libgomp/testsuite/libgomp.fortran/lib4.f90 +++ b/libgomp/testsuite/libgomp.fortran/lib4.f90 @@ -6,11 +6,11 @@ program lib4 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) call abort + 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) call abort - if (omp_get_thread_limit ().lt.0) call abort + 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) call abort + if (omp_get_max_active_levels ().ne.6) STOP 4 end program lib4 diff --git a/libgomp/testsuite/libgomp.fortran/lock-1.f90 b/libgomp/testsuite/libgomp.fortran/lock-1.f90 index d7d3e3fd6cc..b3408388c5d 100644 --- a/libgomp/testsuite/libgomp.fortran/lock-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lock-1.f90 @@ -7,16 +7,16 @@ l = .false. call omp_init_nest_lock (lock) - if (omp_test_nest_lock (lock) .ne. 1) call abort - if (omp_test_nest_lock (lock) .ne. 2) call abort + 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) call abort - if (omp_test_nest_lock (lock) .ne. 3) call abort + 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) diff --git a/libgomp/testsuite/libgomp.fortran/lock-2.f90 b/libgomp/testsuite/libgomp.fortran/lock-2.f90 index 9965139b9ba..8608027ef54 100644 --- a/libgomp/testsuite/libgomp.fortran/lock-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/lock-2.f90 @@ -8,8 +8,8 @@ l = .false. call omp_init_nest_lock (lock) !$omp parallel num_threads (1) reduction (.or.:l) - if (omp_test_nest_lock (lock) .ne. 1) call abort - if (omp_test_nest_lock (lock) .ne. 2) call abort + 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 @@ -19,6 +19,6 @@ call omp_unset_nest_lock (lock) call omp_unset_nest_lock (lock) !$omp end parallel - if (l) call abort + if (l) STOP 3 call omp_destroy_nest_lock (lock) end diff --git a/libgomp/testsuite/libgomp.fortran/nested1.f90 b/libgomp/testsuite/libgomp.fortran/nested1.f90 index 98c4322d0bf..ed1e832ee6e 100644 --- a/libgomp/testsuite/libgomp.fortran/nested1.f90 +++ b/libgomp/testsuite/libgomp.fortran/nested1.f90 @@ -8,16 +8,16 @@ program nested1 e3 = 0 call omp_set_nested (.true.) call omp_set_dynamic (.false.) - if (omp_in_parallel ()) call abort - if (omp_get_num_threads ().ne.1) call abort - if (omp_get_level ().ne.0) call abort - if (omp_get_ancestor_thread_num (0).ne.0) call abort - if (omp_get_ancestor_thread_num (-1).ne.-1) call abort - if (omp_get_ancestor_thread_num (1).ne.-1) call abort - if (omp_get_team_size (0).ne.1) call abort - if (omp_get_team_size (-1).ne.-1) call abort - if (omp_get_team_size (1).ne.-1) call abort - if (omp_get_active_level ().ne.0) call abort + 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 () @@ -83,5 +83,5 @@ program nested1 !$omp end parallel !$omp end parallel !$omp end parallel - if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) call abort + if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) STOP 11 end program nested1 diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 index 67dadd6dfc1..833cb9a0884 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 @@ -5,7 +5,7 @@ b = 2 c = 3 call foo - if (a .ne. 7) call abort + if (a .ne. 7) STOP 1 contains subroutine foo use omp_lib @@ -38,6 +38,6 @@ contains if (a .ne. 7 .or. b .ne. 8 .or. c .ne. 9) l = .true. end if !$omp end parallel - if (l) call abort + if (l) STOP 2 end subroutine foo end diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 index dfb12ae6622..34054ad4937 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 @@ -24,8 +24,8 @@ contains subroutine test3 integer :: i common /c/ i - if (i .lt. 0 .or. i .ge. 4) call abort - if (i + 10 .ne. vari) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 index 454749c5485..4e8a18a63ac 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 @@ -5,7 +5,7 @@ program nestomp integer :: j j = 8 call bar - if (j.ne.10) call abort + if (j.ne.10) STOP 1 contains subroutine foo (i) integer :: i diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 index c987bf440b0..bc8614a340a 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 @@ -6,19 +6,19 @@ program foo call test1 call test2 do i = 1, 10 - if (a(i) .ne. 10 * i) call abort + 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)) call abort + 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) call abort + if (j .ne. 11) STOP 3 contains subroutine test1 integer :: i @@ -36,6 +36,6 @@ contains !$omp parallel do lastprivate (j) do j = 1, 10, k end do - if (j .ne. 11) call abort + if (j .ne. 11) STOP 4 end subroutine test2 end program foo diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 index 6f306f01d6d..e65019e2666 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 @@ -30,7 +30,7 @@ contains b = b + 1 end do !$omp end simd - if (a /= 21 .or. b /= 12) call abort + if (a /= 21 .or. b /= 12) STOP 1 !$omp simd aligned(f : c_sizeof (e(1))) do b = 1, 64 g(b) = f @@ -44,8 +44,8 @@ contains 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) call abort - if (any (d(2:2,4:5) /= 5)) call abort + if (a /= 22) STOP 2 + if (any (d(2:2,4:5) /= 5)) STOP 3 !$omp end task !$omp end taskgroup !$omp end single @@ -64,8 +64,8 @@ contains 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)) call abort - if (any (d(2:3,4:4) /= 9) .or. d(2,5) /= 5 .or. d(3,5) /= 4) call abort + 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 @@ -82,7 +82,7 @@ contains m = 0 n = 64 o = 16 - if (l) call abort + 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) & @@ -91,7 +91,7 @@ contains m = m + 1 end do !$omp end target teams distribute parallel do simd - if (m /= 64) call abort + if (m /= 64) STOP 7 !$omp end target data end subroutine foo end subroutine bar diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 index f9ce94b9ad7..cec05287fc2 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 @@ -18,22 +18,22 @@ 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) call abort + 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) call abort + 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) call abort + 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) call abort + if (a .ne. 9 .or. b .ne. -16) STOP 4 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 index 1dea2c8ebd8..06f6241f01f 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 @@ -11,28 +11,28 @@ n = 20 call foo (r, d, n) - if (n .ne. 22) call abort - if (any (r .ne. 33)) call abort + 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) call abort + if (i .ne. 1) STOP 3 !$omp atomic i = max (j, n, k, i) - if (i .ne. 23) call abort + if (i .ne. 23) STOP 4 a = 1 b = 18 c = 23 !$omp atomic a = min (a, b, c) - if (a .ne. 1) call abort + if (a .ne. 1) STOP 5 !$omp atomic a = max (a, b, c) - if (a .ne. 23) call abort + if (a .ne. 23) STOP 6 contains function bar (i) diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 index e8923d1f214..e4a1a6e460d 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 @@ -36,23 +36,23 @@ c2 = c !$omp atomic read d2 = d - if (a2 .ne. 5 .or. b2 .ne. 2 .or. c2 .ne. 6 .or. d2 .ne. 0.5) call abort + 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) call abort + 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) call abort + 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) call abort + if (a .ne. 9 .or. b .ne. -16) STOP 4 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 index 725a3bc24ee..c4cb5cf9de9 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 @@ -28,10 +28,10 @@ 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) call abort + 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) call abort + if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 index 8e0641592fd..1303ba4b51c 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 @@ -30,30 +30,30 @@ 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) call abort + 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) call abort + if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2 a2 = 10 - if (a2 .ne. 10) call abort + 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) call abort + if (a2 .ne. 5) STOP 4 !$omp atomic read a2 = a !$omp end atomic - if (a2 .ne. 28) call abort + 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) call abort + if (b2 .ne. -16) STOP 6 !$omp atomic seq_cst, read b2 = b !$omp end atomic - if (b2 .ne. 24) call abort + if (b2 .ne. 24) STOP 7 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond1.f b/libgomp/testsuite/libgomp.fortran/omp_cond1.f index f51e868aa38..f050f5101be 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond1.f +++ b/libgomp/testsuite/libgomp.fortran/omp_cond1.f @@ -1,13 +1,13 @@ C Test conditional compilation in fixed form if -fopenmp 10 foo = 2 &56 - if (foo.ne.256) call abort + if (foo.ne.256) STOP 1 bar = 26 !$2 0 ba c$ +r = 42 !$ bar = 62 !$ bar = bar + 1 - if (bar.ne.43) call abort + if (bar.ne.43) STOP 2 baz = bar *$ 0baz = 5 C$ +12! Comment @@ -17,5 +17,5 @@ c$ !4 !$ X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 c$ 10&baz = 2 - if (baz.ne.51242) call abort + if (baz.ne.51242) STOP 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond2.f b/libgomp/testsuite/libgomp.fortran/omp_cond2.f index 6df891c6c67..83e79dc36eb 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond2.f +++ b/libgomp/testsuite/libgomp.fortran/omp_cond2.f @@ -2,13 +2,13 @@ c Test conditional compilation in fixed form if -fno-openmp ! { dg-options "-fno-openmp" } 10 foo = 2 &56 - if (foo.ne.256) call abort + if (foo.ne.256) STOP 1 bar = 26 !$2 0 ba c$ +r = 42 !$ bar = 62 !$ bar = bar + 1 - if (bar.ne.26) call abort + if (bar.ne.26) STOP 2 baz = bar *$ 0baz = 5 C$ +12! Comment @@ -18,5 +18,5 @@ c$ !4 !$ X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 c$ 10&baz = 2 - if (baz.ne.26) call abort + if (baz.ne.26) STOP 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 b/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 index fe8c783c6ab..3db2fd1163e 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 +++ b/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @@ -1,7 +1,7 @@ ! Test conditional compilation in free form if -fopenmp 10 foo = 2& &56 - if (foo.ne.256) call abort + if (foo.ne.256) STOP 1 bar = 26 !$ 20 ba& !$ &r = 4& @@ -11,7 +11,7 @@ #ifdef _OPENMP bar = bar - 1 #endif - if (bar.ne.43) call abort + if (bar.ne.43) STOP 2 baz = bar !$ 30 baz = 5& ! Comment !$12 & @@ -19,5 +19,5 @@ bar = bar - 1 !$X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 baz = baz + 1 !$ baz = 2 - if (baz.ne.515) call abort + if (baz.ne.515) STOP 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 b/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 index aa4c5cb76d6..ae2e93253aa 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 +++ b/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 @@ -2,7 +2,7 @@ ! { dg-options "-fno-openmp" } 10 foo = 2& &56 - if (foo.ne.256) call abort + if (foo.ne.256) STOP 1 bar = 26 !$ 20 ba& !$ &r = 4& @@ -12,7 +12,7 @@ #ifdef _OPENMP bar = bar - 1 #endif - if (bar.ne.26) call abort + if (bar.ne.26) STOP 2 baz = bar !$ 30 baz = 5& ! Comment !$12 & @@ -20,5 +20,5 @@ bar = bar - 1 !$X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 baz = baz + 1 !$ baz = 2 - if (baz.ne.27) call abort + if (baz.ne.27) STOP 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 index 9cd8cc2ba13..59fe372fe00 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 @@ -41,16 +41,16 @@ contains d(b + 1) = c if (f .ne. g .or. f .ne. b) h = .true. !$omp endparallel - if (h) call abort - if (a .ne. 6) call abort - if (j .ne. 24) call abort - if (d(1) .eq. -1) call abort + 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)) call abort + if (d(g) .ne. d(1)) STOP 5 e = e * 2 end do - if (e .ne. i) call abort + if (e .ne. i) STOP 6 end subroutine test_parallel subroutine test_do_orphan @@ -77,7 +77,7 @@ contains call test_do_orphan !$omp do schedule (static) firstprivate (n) do 200 i = 1, j - if (i .eq. 1 .and. n .ne. 24) call abort + if (i .eq. 1 .and. n .ne. 24) STOP 7 n = i 200 d(n) = omp_get_thread_num () !$omp enddo nowait @@ -101,11 +101,11 @@ contains end do ! Implied omp end do here !$omp end parallel - if (.not. m) call abort + if (.not. m) STOP 8 j = 0 do i = 1, 64 - if (d(i) .lt. j .or. d(i) .ge. j + k) call abort + 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 @@ -150,9 +150,9 @@ contains n = 7 !$omp endsections !$omp end parallel - if (j .ne. 271 .or. l .ne. 0) call abort - if (m .ne. 4 + 6 + 8 + 10) call abort - if (n .ne. 7) call abort + 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 @@ -180,6 +180,6 @@ contains !$omp end single copyprivate (j) if (i .ne. omp_get_thread_num () .or. j .ne. -2) m = .true. !$omp endparallel - if (m) call abort + if (m) STOP 13 end subroutine test_single end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 index da54a987275..e63f55f7c31 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 @@ -16,7 +16,7 @@ contains j = omp_get_thread_num () .eq. 0 !$omp endmaster !$omp end parallel - if (.not. (i .or. j)) call abort + if (.not. (i .or. j)) STOP 1 end subroutine test_master subroutine test_critical_1 (i, j) @@ -45,7 +45,7 @@ contains i = i + 1 !$omp endcritical (critical_foo) !$omp end parallel - if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) call abort + if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) STOP 2 end subroutine test_critical subroutine test_barrier @@ -62,7 +62,7 @@ contains j = j .or. .true. end if !$omp end parallel - if (i .ne. 5 .or. j) call abort + if (i .ne. 5 .or. j) STOP 3 end subroutine test_barrier subroutine test_atomic @@ -89,14 +89,14 @@ contains 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) call abort - if (a .ne. 6 * g .or. b .ne. 3 ** g) call abort + 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) call abort + if (c .ne. 8) STOP 6 else if (c .ne. 0) then - call abort + STOP 7 end if - if (d .ne. 1024 / (2 ** g)) call abort - if (e .ne. 0 .or. f .ne. g - 1) call abort + if (d .ne. 1024 / (2 ** g)) STOP 8 + if (e .ne. 0 .or. f .ne. g - 1) STOP 9 end subroutine test_atomic end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 index a39ff103ecd..d8e86d924a5 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 @@ -44,10 +44,10 @@ contains j = 1 do 100 i = 1, 100 if (i .eq. j) then - if (d(i) .ne. i) call abort + if (d(i) .ne. i) STOP 1 j = i + 5 else - if (d(i) .ne. -1) call abort + if (d(i) .ne. -1) STOP 2 end if 100 d(i) = -1 end subroutine test_ordered @@ -68,17 +68,17 @@ contains !$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) call abort + 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) call abort + 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) & -& call abort +& STOP 5 end if !$omp end parallel m = m .or. n @@ -88,9 +88,9 @@ contains 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) call abort + if (x .ne. j .or. y .ne. j + 1024) STOP 6 end if !$omp end parallel - if (m .or. n) call abort + if (m .or. n) STOP 7 end subroutine test_threadprivate end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 index ba35bcb2ad4..273ce53075b 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 @@ -59,14 +59,14 @@ contains !$omp end parallel if (any (f .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) & -& call abort - if (any (g .ne. (/-1, -1, -1, 0, 0, 0, 0, 0, 0, 0/))) call abort - if (i .ne. 20) call abort -!$ if (l .ne. 128 + m) call abort - if (any (d .ne. 1 .or. e .ne. 1)) call abort - if (any (b .ne. transpose (a))) call abort - if (any (c .ne. b)) call abort +& 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/))) call abort +& 110, 132, 13, 182, 210, 240/))) STOP 8 end subroutine test_workshare end diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-1.f b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f index 20ca78a9fed..de16933f9e5 100644 --- a/libgomp/testsuite/libgomp.fortran/openmp_version-1.f +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f @@ -4,6 +4,6 @@ implicit none include "omp_lib.h" - if (openmp_version .ne. 201511) call abort; + if (openmp_version .ne. 201511) STOP 1; end program main diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 index 1e0dbec7bc4..b2e0d3a7064 100644 --- a/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 @@ -4,6 +4,6 @@ program main use omp_lib implicit none - if (openmp_version .ne. 201511) call abort; + if (openmp_version .ne. 201511) STOP 1; end program main diff --git a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 index 56add651026..bb165cdfaca 100644 --- a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 +++ b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 @@ -34,7 +34,7 @@ program main call foo () do i = 0, n - 1 - if (c(i) .ne. (i + MODULO ((i * 3), 7))) call abort + if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 index 72b3c8d6477..5ed4a382a08 100644 --- a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 +++ b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 @@ -35,7 +35,7 @@ program main call foo (n) do i = 0, n - 1 - if (c(i) .ne. (i + MODULO ((i * 3), 7))) call abort + if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/pointer1.f90 b/libgomp/testsuite/libgomp.fortran/pointer1.f90 index d55ef35f4a5..817006a2d20 100644 --- a/libgomp/testsuite/libgomp.fortran/pointer1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pointer1.f90 @@ -21,7 +21,7 @@ contains c(1) = c(1) + 1 r = r + 1 !$omp end parallel - if (a.ne.r.or.c(1).ne.r) call abort + if (a.ne.r.or.c(1).ne.r) STOP 1 r2 = r b => a d => c @@ -33,7 +33,7 @@ contains d(1) = d(1) + 1 r = r + 1 !$omp end parallel - if (b.ne.r+r2.or.d(1).ne.r+r2) call abort + 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(:) @@ -55,8 +55,8 @@ contains end if end do !$omp end parallel do - if (b.ne.100.or.any(d.ne.10)) call abort - if (a.ne.17.or.any(c.ne.21)) call abort + 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) @@ -71,7 +71,7 @@ contains end if end do !$omp end parallel do - if (a.ne.200.or.any(c.ne.20)) call abort - if (b.ne.17.or.any(d.ne.21)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/pointer2.f90 b/libgomp/testsuite/libgomp.fortran/pointer2.f90 index f172aed4b12..859c0e4c36b 100644 --- a/libgomp/testsuite/libgomp.fortran/pointer2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pointer2.f90 @@ -21,8 +21,8 @@ thr(1) = thr(1) + 1 i = i + 1 !$omp end parallel - if (l) call abort - if (thr(1).ne.14) call abort - if (s(1).ne.1+i) call abort - if (u(1).ne.14) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/pr25162.f b/libgomp/testsuite/libgomp.fortran/pr25162.f index a868ea4c9b2..f0f760da0aa 100644 --- a/libgomp/testsuite/libgomp.fortran/pr25162.f +++ b/libgomp/testsuite/libgomp.fortran/pr25162.f @@ -34,7 +34,7 @@ C$OMP END PARALLEL C$OMP THREADPRIVATE(/TESTCOM/) INTEGER K DO K = 1, 10 - IF (K.NE.BPRIM(K)) CALL ABORT + IF (K.NE.BPRIM(K)) STOP 1 END DO RETURN END diff --git a/libgomp/testsuite/libgomp.fortran/pr25219.f90 b/libgomp/testsuite/libgomp.fortran/pr25219.f90 index 7fe1a53aa1c..61dd1bc04e6 100644 --- a/libgomp/testsuite/libgomp.fortran/pr25219.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr25219.f90 @@ -11,5 +11,5 @@ end do !$omp end do !$omp end parallel - if (k .ne. 100) call abort + if (k .ne. 100) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 index 380a107760b..8930c780ff2 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 @@ -8,7 +8,7 @@ program pr27395_1 integer, dimension(n) :: sumarray call foo(n,m,sumarray) do i=1,n - if (sumarray(i).ne.m*i) call abort + if (sumarray(i).ne.m*i) STOP 1 end do end program pr27395_1 diff --git a/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 b/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 index b3cb255f6dd..f55b701cdb4 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 @@ -25,6 +25,6 @@ subroutine foo(n,m) !$OMP END DO !$OMP END PARALLEL do i=1,n - if (sumarray(i).ne.m*i) call abort + if (sumarray(i).ne.m*i) STOP 1 end do end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 index d42e1ef19ab..7bc5d3e78c8 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 @@ -6,7 +6,7 @@ !$omp parallel num_threads (4) call foo (j) !$omp end parallel - if (j.ne.6+16) call abort + if (j.ne.6+16) STOP 1 end subroutine foo (j) diff --git a/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 index 7f6b51d0892..bb75af9c15c 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 @@ -22,5 +22,5 @@ program pr27916 r = r .or. allocated (a) end do !$omp end parallel do - if (r) call abort + if (r) STOP 1 end program pr27916 diff --git a/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 b/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 index aa8bb0aec62..7973726cb57 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 @@ -22,5 +22,5 @@ program pr27916 r = r .or. allocated (a) end do !$omp end parallel do - if (r) call abort + if (r) STOP 1 end program pr27916 diff --git a/libgomp/testsuite/libgomp.fortran/pr28390.f b/libgomp/testsuite/libgomp.fortran/pr28390.f index 68fc32b6f50..a667e08f73e 100644 --- a/libgomp/testsuite/libgomp.fortran/pr28390.f +++ b/libgomp/testsuite/libgomp.fortran/pr28390.f @@ -4,5 +4,5 @@ !$omp parallel do lastprivate(i) do i=1,100 end do - if (i.ne.101) call abort + if (i.ne.101) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr29629.f90 b/libgomp/testsuite/libgomp.fortran/pr29629.f90 index 9ccddffb039..4b802c56310 100644 --- a/libgomp/testsuite/libgomp.fortran/pr29629.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr29629.f90 @@ -4,7 +4,7 @@ program pr29629 integer :: n n = 10000 - if (any (func(n).ne.10000)) call abort + if (any (func(n).ne.10000)) STOP 1 contains function func(n) integer, intent(in) :: n diff --git a/libgomp/testsuite/libgomp.fortran/pr32550.f90 b/libgomp/testsuite/libgomp.fortran/pr32550.f90 index 2c95cc6e05e..ce496cacd23 100644 --- a/libgomp/testsuite/libgomp.fortran/pr32550.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr32550.f90 @@ -17,5 +17,5 @@ e = e + 1 end if !$omp end parallel - if (e.ne.0) call abort + if (e.ne.0) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr33880.f90 b/libgomp/testsuite/libgomp.fortran/pr33880.f90 index 679cab6822d..e6a26f42d82 100644 --- a/libgomp/testsuite/libgomp.fortran/pr33880.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr33880.f90 @@ -9,7 +9,7 @@ program pr33880 !$omp atomic j = j + 1 end do - if (j .ne. 1000) call abort + if (j .ne. 1000) STOP 1 contains subroutine something() i = 0 diff --git a/libgomp/testsuite/libgomp.fortran/pr34020.f90 b/libgomp/testsuite/libgomp.fortran/pr34020.f90 index 39f7046d197..6d2316472d8 100644 --- a/libgomp/testsuite/libgomp.fortran/pr34020.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr34020.f90 @@ -16,5 +16,5 @@ do i = 1, 300000 call atomic_add(lhs, rhs) enddo - if (lhs .ne. 300000) call abort + if (lhs .ne. 300000) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr35130.f90 b/libgomp/testsuite/libgomp.fortran/pr35130.f90 index 50ff351527a..e6be64f15f5 100644 --- a/libgomp/testsuite/libgomp.fortran/pr35130.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr35130.f90 @@ -10,7 +10,7 @@ program pr35130 call inner(k) end do !$omp end parallel do - if (any (a.ne.42)) call abort + if (any (a.ne.42)) STOP 1 contains subroutine inner(i) implicit none diff --git a/libgomp/testsuite/libgomp.fortran/pr42162.f90 b/libgomp/testsuite/libgomp.fortran/pr42162.f90 index dbcc3b71d9b..3792a33fe9f 100644 --- a/libgomp/testsuite/libgomp.fortran/pr42162.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr42162.f90 @@ -49,5 +49,5 @@ program pr42162 !$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)) call abort + if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr46753.f90 b/libgomp/testsuite/libgomp.fortran/pr46753.f90 index f4833abc845..0d9debce196 100644 --- a/libgomp/testsuite/libgomp.fortran/pr46753.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr46753.f90 @@ -7,11 +7,11 @@ do i = 2147483636, 2147483646 j = j + 1 end do - if (j.ne.11) call abort + 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) call abort + if (j.ne.11) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/pr48894.f90 b/libgomp/testsuite/libgomp.fortran/pr48894.f90 index af35112ad32..0f7bfad4cae 100644 --- a/libgomp/testsuite/libgomp.fortran/pr48894.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr48894.f90 @@ -19,5 +19,5 @@ endif !$omp end parallel !$omp end parallel - if (err .ne. 0) call abort + if (err .ne. 0) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 b/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 index cf2bb66fc89..18643ac5a50 100644 --- a/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 @@ -14,5 +14,5 @@ program pr49792 real(kind=8) :: b(16) b(:) = a(16:1:-1) call reverse (16,a) - if (any (a.ne.b)) call abort + if (any (a.ne.b)) STOP 1 end program pr49792 diff --git a/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 b/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 index 2101028a9c2..689f7decacb 100644 --- a/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 @@ -17,6 +17,6 @@ program pr49792 !$omp parallel workshare a = b !$omp end parallel workshare - if (size(a).ne.size(b)) call abort() - if (any (a.ne.b)) call abort() + if (size(a).ne.size(b)) STOP 1 + if (any (a.ne.b)) STOP 2 end program pr49792 diff --git a/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 b/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 index 27501b2f8ab..eb85500ea4c 100644 --- a/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 @@ -10,5 +10,5 @@ program pr63938_1 x(1) = x(1) + 1 end do !$omp end parallel do - if (x(1) .ne. 1000) call abort + if (x(1) .ne. 1000) STOP 1 end program pr63938_1 diff --git a/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 b/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 index e5f37ba7602..934e800648e 100644 --- a/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 @@ -14,5 +14,5 @@ program pr63938_2 x%x = x%x + 1 end do !$omp end parallel do - if (x%x .ne. 1000) call abort + if (x%x .ne. 1000) STOP 1 end program pr63938_2 diff --git a/libgomp/testsuite/libgomp.fortran/pr65597.f90 b/libgomp/testsuite/libgomp.fortran/pr65597.f90 index c19f077753d..25754314766 100644 --- a/libgomp/testsuite/libgomp.fortran/pr65597.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr65597.f90 @@ -13,9 +13,9 @@ end do do i = 1, 151 if (mod (i, 31) .eq. 1) then - if (a(i) .ne. 2) call abort + if (a(i) .ne. 2) STOP 1 else - if (a(i) .ne. 0) call abort + if (a(i) .ne. 0) STOP 2 end if end do end diff --git a/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 b/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 index 55ad6277307..ecf62458340 100644 --- a/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 @@ -10,7 +10,7 @@ do d = a, b u(d) = v(d) + w(d) end do - if (d .ne. 1025) call abort + if (d .ne. 1025) STOP 1 c = 17 d = 75 !$omp parallel do simd default(none) firstprivate (a, b) shared(u, v, w) & @@ -20,8 +20,8 @@ c = c + 5 e = c end do - if (d .ne. 1025 .or. c .ne. (17 + 5 * 1024)) call abort - if (e .ne. (17 + 5 * 1024)) call abort + 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 @@ -35,7 +35,7 @@ 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) call abort + 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) & @@ -45,5 +45,5 @@ 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) call abort + if (d1 .ne. 32 .or. d2 .ne. 32) STOP 5 end diff --git a/libgomp/testsuite/libgomp.fortran/pr71014.f90 b/libgomp/testsuite/libgomp.fortran/pr71014.f90 index 6d0d6bec46d..7fcbf73862d 100644 --- a/libgomp/testsuite/libgomp.fortran/pr71014.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr71014.f90 @@ -16,5 +16,5 @@ program pr71014 end do end associate end do - if (any(s /= t)) call abort + if (any(s /= t)) STOP 1 end program pr71014 diff --git a/libgomp/testsuite/libgomp.fortran/pr81304.f90 b/libgomp/testsuite/libgomp.fortran/pr81304.f90 index 460a2a04fb3..c7419342ca6 100644 --- a/libgomp/testsuite/libgomp.fortran/pr81304.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr81304.f90 @@ -13,5 +13,5 @@ program pr81304 a = min (a, c) b = max (b, c) end do - if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) call abort + if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr81841.f90 b/libgomp/testsuite/libgomp.fortran/pr81841.f90 index 176d1c8d9c0..ed75837c37b 100644 --- a/libgomp/testsuite/libgomp.fortran/pr81841.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr81841.f90 @@ -17,10 +17,10 @@ program pr81841 common /c/ e, f !$omp threadprivate (/c/) !$omp parallel num_threads(8) - if ((e /= 32) .or. any(f /= 1.)) call abort + 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.)) call abort + if ((e /= omp_get_thread_num ()) .or. any(f /= e + 19.)) STOP 2 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 b/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 index e56c022446c..59391211a74 100644 --- a/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 @@ -15,7 +15,7 @@ c(i) = foo (a(i), b(i)) end do do i = 1, 1024 - if (c(i).ne.(2 * i)) call abort + if (c(i).ne.(2 * i)) STOP 1 end do contains real function foo (x, y) diff --git a/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 b/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 index a6657d18095..f85fbf2ba87 100644 --- a/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 @@ -23,7 +23,7 @@ c(i) = foo (a(i), b(:,i)) end do do i = 1, 1024 - if (c(i).ne.(6 * i)) call abort + if (c(i).ne.(6 * i)) STOP 1 end do contains function foo (x, y) diff --git a/libgomp/testsuite/libgomp.fortran/procptr1.f90 b/libgomp/testsuite/libgomp.fortran/procptr1.f90 index 4187739826f..560d0da4216 100644 --- a/libgomp/testsuite/libgomp.fortran/procptr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/procptr1.f90 @@ -11,25 +11,25 @@ integer :: i ptr => foo !$omp parallel shared (ptr) - if (ptr () /= 1) call abort + if (ptr () /= 1) STOP 1 !$omp end parallel ptr => bar !$omp parallel firstprivate (ptr) - if (ptr () /= 2) call abort + if (ptr () /= 2) STOP 2 !$omp end parallel !$omp parallel sections lastprivate (ptr) !$omp section ptr => foo - if (ptr () /= 1) call abort + if (ptr () /= 1) STOP 3 !$omp section ptr => bar - if (ptr () /= 2) call abort + if (ptr () /= 2) STOP 4 !$omp section ptr => baz - if (ptr () /= 3) call abort + if (ptr () /= 3) STOP 5 !$omp end parallel sections - if (ptr () /= 3) call abort - if (.not.associated (ptr, baz)) call abort + if (ptr () /= 3) STOP 6 + if (.not.associated (ptr, baz)) STOP 7 end integer function foo () foo = 1 diff --git a/libgomp/testsuite/libgomp.fortran/recursion1.f90 b/libgomp/testsuite/libgomp.fortran/recursion1.f90 index 0cae26173f6..c9aec7e4159 100644 --- a/libgomp/testsuite/libgomp.fortran/recursion1.f90 +++ b/libgomp/testsuite/libgomp.fortran/recursion1.f90 @@ -14,7 +14,7 @@ do i=1,10 call sub(i) end do !$omp end parallel do -if (s/=55) call abort() +if (s/=55) STOP 1 contains diff --git a/libgomp/testsuite/libgomp.fortran/reduction1.f90 b/libgomp/testsuite/libgomp.fortran/reduction1.f90 index d6ceb081443..bc036b057ea 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction1.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction1.f90 @@ -55,14 +55,14 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) call abort + if (v) STOP 1 if (cnt .eq. 3) then - if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort - if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort - if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort - if (c .ne. cmplx (11.5, -5)) call abort - if (ca(1) .ne. cmplx (12, 2)) call abort - if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort + 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 @@ -113,14 +113,14 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) call abort + if (v) STOP 8 if (cnt .eq. 3) then - if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort - if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort - if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort - if (c .ne. cmplx (11.5, -5)) call abort - if (ca(1) .ne. cmplx (12, 2)) call abort - if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort + 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 @@ -169,13 +169,13 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) call abort + if (v) STOP 15 if (cnt .eq. 3) then - if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) call abort - if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) call abort - if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) call abort - if (c .ne. cmplx (0, 15)) call abort - if (ca(1) .ne. cmplx (0, 10)) call abort - if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/reduction2.f90 b/libgomp/testsuite/libgomp.fortran/reduction2.f90 index 9bdeb77de85..6af173d2397 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction2.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction2.f90 @@ -31,10 +31,10 @@ ma(1) = .true. end if !$omp end parallel - if (v) call abort + if (v) STOP 1 if (cnt .eq. 3) then - if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) call abort - if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) call abort + 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. @@ -64,10 +64,10 @@ ma(1) = .true. end if !$omp end parallel - if (v) call abort + if (v) STOP 4 if (cnt .eq. 3) then - if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) call abort - if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/reduction3.f90 b/libgomp/testsuite/libgomp.fortran/reduction3.f90 index 89b9d1af695..b0a858b54f0 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction3.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction3.f90 @@ -46,11 +46,11 @@ da = -1 end if !$omp end parallel - if (v) call abort + if (v) STOP 1 if (cnt .eq. 3) then - if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) call abort - if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) call abort - if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) call abort + 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 @@ -94,10 +94,10 @@ da(1:4) = 6 end if !$omp end parallel - if (v) call abort + if (v) STOP 5 if (cnt .eq. 3) then - if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) call abort - if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) call abort - if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/reduction4.f90 b/libgomp/testsuite/libgomp.fortran/reduction4.f90 index bb1ed0e209c..91c7fc89bf2 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction4.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction4.f90 @@ -44,13 +44,13 @@ ka(6:6) = Z'777' end if !$omp end parallel - if (v) call abort + if (v) STOP 1 if (cnt .eq. 3) then ta = (/Z'f0ff03', Z'f0af03', Z'f0af01', Z'f0af01', Z'f0af01', Z'f0ff0f'/) - if (i .ne. Z'777f07' .or. any (ia .ne. ta)) call abort + if (i .ne. Z'777f07' .or. any (ia .ne. ta)) STOP 2 ta = (/Z'f5a01', Z'f5a09', Z'f5a09', Z'f5a08', Z'f5f08', Z'f5f00'/) - if (j .ne. Z'fff80' .or. any (ja .ne. ta)) call abort + if (j .ne. Z'fff80' .or. any (ja .ne. ta)) STOP 3 ta = (/Z'5a5a5', Z'5a5a5', Z'aaba2', Z'aaba2', Z'5aaaa', Z'5addd'/) - if (k .ne. Z'54a8f' .or. any (ka .ne. ta)) call abort + if (k .ne. Z'54a8f' .or. any (ka .ne. ta)) STOP 4 end if end diff --git a/libgomp/testsuite/libgomp.fortran/reduction5.f90 b/libgomp/testsuite/libgomp.fortran/reduction5.f90 index 24c2ff612e2..f8fdcb471fe 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction5.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction5.f90 @@ -18,7 +18,7 @@ contains !$omp section n = bitwise_or (n, Z'2000') !$omp end parallel sections - if (n .ne. Z'243f') call abort + if (n .ne. Z'243f') STOP 1 end subroutine subroutine test2 use reduction5, min => max, max => min @@ -36,7 +36,7 @@ contains if (m .gt. 3) m = 3 if (n .lt. -1) n = -1 !$omp end parallel sections - if (m .ne. 3 .or. n .ne. 15) call abort + if (m .ne. 3 .or. n .ne. 15) STOP 2 end subroutine test2 end diff --git a/libgomp/testsuite/libgomp.fortran/reduction6.f90 b/libgomp/testsuite/libgomp.fortran/reduction6.f90 index 9f3ec6ca893..99fb8d16bc0 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction6.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction6.f90 @@ -8,7 +8,7 @@ call foo (a (2:4, 3:5), nthreads) if (nthreads .eq. 3) then write (c, '(36i1)') a - if (c .ne. '999999999999966699966699966699999999') call abort + if (c .ne. '999999999999966699966699966699999999') STOP 1 end if contains subroutine foo (b, nthreads) @@ -27,6 +27,6 @@ contains !$omp end master b = 2 !$omp end parallel - if (err .gt. 0) call abort + if (err .gt. 0) STOP 2 end subroutine foo end diff --git a/libgomp/testsuite/libgomp.fortran/reference1.f90 b/libgomp/testsuite/libgomp.fortran/reference1.f90 index b959e2716b8..8c9631b49d2 100644 --- a/libgomp/testsuite/libgomp.fortran/reference1.f90 +++ b/libgomp/testsuite/libgomp.fortran/reference1.f90 @@ -8,10 +8,10 @@ k = 0 d = 24.5 call test (i, j, k, d) - if (i .ne. 38) call abort - if (iand (k, 255) .ne. 0) call abort + 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) call abort + if (k .ne. 65536 * 4) STOP 3 end if contains subroutine test (i, j, k, d) diff --git a/libgomp/testsuite/libgomp.fortran/reference2.f90 b/libgomp/testsuite/libgomp.fortran/reference2.f90 index 1232b6926cb..87efab255e1 100644 --- a/libgomp/testsuite/libgomp.fortran/reference2.f90 +++ b/libgomp/testsuite/libgomp.fortran/reference2.f90 @@ -11,7 +11,7 @@ contains a = 15 l = bar (a) !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine function bar (a) real, dimension (5) :: a diff --git a/libgomp/testsuite/libgomp.fortran/retval1.f90 b/libgomp/testsuite/libgomp.fortran/retval1.f90 index b25945731e9..db49a0da8a0 100644 --- a/libgomp/testsuite/libgomp.fortran/retval1.f90 +++ b/libgomp/testsuite/libgomp.fortran/retval1.f90 @@ -14,7 +14,7 @@ function f1 () 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) call abort + if (l) STOP 1 f1 = -2.5 end function f1 function f2 () @@ -32,7 +32,7 @@ entry e2 () 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) call abort + if (l) STOP 2 e2 = 7.5 end function f2 function f3 () @@ -53,7 +53,7 @@ entry e3 () 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) call abort + if (l) STOP 3 e3 = 0.5 end function f3 function f4 () result (r4) @@ -74,7 +74,7 @@ entry e4 () result (s4) 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) call abort + if (l) STOP 4 s4 = -0.5 end function f4 function f5 (is_f5) @@ -101,20 +101,20 @@ entry e5 (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) call abort + 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) call abort - if (f2 () .ne. 7.5) call abort - if (e2 () .ne. 7.5) call abort - if (f3 () .ne. 0.5) call abort - if (e3 () .ne. 0.5) call abort - if (f4 () .ne. -0.5) call abort - if (e4 () .ne. -0.5) call abort - if (f5 (.true.) .ne. -2.5) call abort - if (e5 (.false.) .ne. 8) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/retval2.f90 b/libgomp/testsuite/libgomp.fortran/retval2.f90 index 92da15f58f1..a2fd5b99117 100644 --- a/libgomp/testsuite/libgomp.fortran/retval2.f90 +++ b/libgomp/testsuite/libgomp.fortran/retval2.f90 @@ -17,11 +17,11 @@ contains 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) call abort + if (l) STOP 1 f1 = -2.5 end subroutine sub1 end function f1 real :: f1 - if (f1 () .ne. -2.5) call abort + if (f1 () .ne. -2.5) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/sharing1.f90 b/libgomp/testsuite/libgomp.fortran/sharing1.f90 index 063e7db8357..03633e9a78c 100644 --- a/libgomp/testsuite/libgomp.fortran/sharing1.f90 +++ b/libgomp/testsuite/libgomp.fortran/sharing1.f90 @@ -25,5 +25,5 @@ !$omp barrier if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. !$omp end parallel - if (l .or. j .ne. 25) call abort + if (l .or. j .ne. 25) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/sharing2.f90 b/libgomp/testsuite/libgomp.fortran/sharing2.f90 index 266dd46fadb..0b01059ee1d 100644 --- a/libgomp/testsuite/libgomp.fortran/sharing2.f90 +++ b/libgomp/testsuite/libgomp.fortran/sharing2.f90 @@ -27,6 +27,6 @@ !$omp barrier if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. !$omp end parallel - if (l) call abort - if (j .ne. 25) call abort + if (l) STOP 1 + if (j .ne. 25) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/simd1.f90 b/libgomp/testsuite/libgomp.fortran/simd1.f90 index b97d27f8dc5..558e141e1d1 100644 --- a/libgomp/testsuite/libgomp.fortran/simd1.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd1.f90 @@ -30,6 +30,6 @@ 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) call abort - if (t%x.ne.2700) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/simd2.f90 b/libgomp/testsuite/libgomp.fortran/simd2.f90 index 9b90bcdd019..0062d5e6e60 100644 --- a/libgomp/testsuite/libgomp.fortran/simd2.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd2.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -62,8 +62,8 @@ contains s = s + p(i) + k end do !$omp end simd - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -78,8 +78,8 @@ contains s = s + p(i) + k end do !$omp end simd - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -94,8 +94,8 @@ contains v = p(i) + k s = s + p(i) + k end do - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/simd3.f90 b/libgomp/testsuite/libgomp.fortran/simd3.f90 index df9f4cac3fe..22ff564bd06 100644 --- a/libgomp/testsuite/libgomp.fortran/simd3.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd3.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -65,8 +65,8 @@ contains end do !$omp end do simd !$omp end parallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -84,8 +84,8 @@ contains end do !$omp end do simd !$omp endparallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -102,8 +102,8 @@ contains s = s + p(i) + k end do !$omp end parallel - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/simd4.f90 b/libgomp/testsuite/libgomp.fortran/simd4.f90 index a5b8ba0babd..ceb1611bd38 100644 --- a/libgomp/testsuite/libgomp.fortran/simd4.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd4.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + 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) call abort + 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))) call abort + 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)) call abort + if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 else - if (b(i).ne.(modulo (i - 52, 39))) call abort + if (b(i).ne.(modulo (i - 52, 39))) STOP 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) call abort + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -63,8 +63,8 @@ contains s = s + p(i) + k end do !$omp end parallel do simd - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -80,8 +80,8 @@ contains s = s + p(i) + k end do !$omp endparalleldosimd - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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) @@ -96,8 +96,8 @@ contains v = p(i) + k s = s + p(i) + k end do - if (i.ne.1025) call abort - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/simd5.f90 b/libgomp/testsuite/libgomp.fortran/simd5.f90 index 7a5efecac06..e1383d20d30 100644 --- a/libgomp/testsuite/libgomp.fortran/simd5.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd5.f90 @@ -12,7 +12,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1 i = 4 j = 4 b = 7 @@ -21,7 +21,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2 i = 4 j = 4 b = 7 @@ -30,7 +30,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3 i = 4 j = 4 b = 7 @@ -39,7 +39,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4 i = 4 j = 4 b = 7 @@ -50,7 +50,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5 i = 4 j = 4 b = 7 @@ -61,7 +61,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6 i = 4 j = 4 b = 7 @@ -70,7 +70,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7 i = 4 j = 4 b = 7 @@ -79,7 +79,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8 i = 4 j = 4 b = 7 @@ -88,7 +88,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9 i = 4 j = 4 b = 7 @@ -97,7 +97,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10 i = 4 j = 4 b = 7 @@ -108,7 +108,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11 i = 4 j = 4 b = 7 @@ -120,5 +120,5 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 12 end diff --git a/libgomp/testsuite/libgomp.fortran/simd6.f90 b/libgomp/testsuite/libgomp.fortran/simd6.f90 index 881a8fb8db4..b78bb4b6886 100644 --- a/libgomp/testsuite/libgomp.fortran/simd6.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd6.f90 @@ -18,7 +18,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1 i = 4 j = 4 b = 7 @@ -27,7 +27,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2 i = 4 j = 4 b = 7 @@ -36,7 +36,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3 i = 4 j = 4 b = 7 @@ -45,7 +45,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4 i = 4 j = 4 b = 7 @@ -56,7 +56,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) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5 i = 4 j = 4 b = 7 @@ -67,7 +67,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) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6 i = 4 j = 4 b = 7 @@ -76,7 +76,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7 i = 4 j = 4 b = 7 @@ -85,7 +85,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8 i = 4 j = 4 b = 7 @@ -94,7 +94,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9 i = 4 j = 4 b = 7 @@ -103,7 +103,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) call abort + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10 i = 4 j = 4 b = 7 @@ -114,7 +114,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) call abort + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11 i = 4 j = 4 b = 7 @@ -126,7 +126,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) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/simd7.f90 b/libgomp/testsuite/libgomp.fortran/simd7.f90 index b0473faa9e5..4b5633e902b 100644 --- a/libgomp/testsuite/libgomp.fortran/simd7.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd7.f90 @@ -30,20 +30,20 @@ subroutine foo (d, e, f, g, m, n) 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) call abort - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) call abort - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) call abort - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) call abort - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) call abort - if (m /= 15 + 9 * 64) call abort - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) call abort - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) call abort - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) call abort - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) call abort - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) call abort - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) call abort - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) call abort - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) call abort + 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) @@ -68,20 +68,20 @@ subroutine foo (d, e, f, g, m, n) h = h + 7; k = k + 8; m = m + 9 end do end do - if (l .or. i /= 8 .or. j /= 8) call abort - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) call abort - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) call abort - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) call abort - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) call abort - if (m /= 15 + 9 * 64) call abort - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) call abort - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) call abort - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) call abort - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) call abort - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) call abort - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) call abort - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) call abort - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) call abort + 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) @@ -104,20 +104,20 @@ subroutine foo (d, e, f, g, m, n) 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) call abort - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) call abort - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) call abort - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) call abort - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) call abort - if (m /= 15 + 9 * 64) call abort - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) call abort - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) call abort - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) call abort - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) call abort - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) call abort - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) call abort - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) call abort - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) call abort + 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) @@ -142,20 +142,20 @@ subroutine foo (d, e, f, g, m, n) h = h + 7; k = k + 8; m = m + 9 end do end do - if (l .or. i /= 8 .or. j /= 8) call abort - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) call abort - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) call abort - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) call abort - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) call abort - if (m /= 15 + 9 * 64) call abort - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) call abort - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) call abort - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) call abort - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) call abort - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) call abort - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) call abort - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) call abort - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/stack.f90 b/libgomp/testsuite/libgomp.fortran/stack.f90 index b27673d01fd..f0babdd059a 100644 --- a/libgomp/testsuite/libgomp.fortran/stack.f90 +++ b/libgomp/testsuite/libgomp.fortran/stack.f90 @@ -11,7 +11,7 @@ program stack !$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)) call abort + if (ilocs(1) .eq. ilocs(2)) STOP 1 end program stack integer function foo () diff --git a/libgomp/testsuite/libgomp.fortran/strassen.f90 b/libgomp/testsuite/libgomp.fortran/strassen.f90 index b3d635ffe1f..84faced494a 100644 --- a/libgomp/testsuite/libgomp.fortran/strassen.f90 +++ b/libgomp/testsuite/libgomp.fortran/strassen.f90 @@ -19,7 +19,7 @@ program strassen_matmul 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) call abort + if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 1 D = 0 start = omp_get_wtime () !$omp parallel @@ -29,7 +29,7 @@ program strassen_matmul !$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) call abort + if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 2 contains diff --git a/libgomp/testsuite/libgomp.fortran/tabs1.f90 b/libgomp/testsuite/libgomp.fortran/tabs1.f90 index 4f3d4f5b435..68dba38c9ad 100644 --- a/libgomp/testsuite/libgomp.fortran/tabs1.f90 +++ b/libgomp/testsuite/libgomp.fortran/tabs1.f90 @@ -1,4 +1,4 @@ - if (b().ne.2) call abort + if (b().ne.2) STOP 1 contains subroutine a !$omp parallel diff --git a/libgomp/testsuite/libgomp.fortran/tabs2.f b/libgomp/testsuite/libgomp.fortran/tabs2.f index 7aed5498d34..07fca22cac3 100644 --- a/libgomp/testsuite/libgomp.fortran/tabs2.f +++ b/libgomp/testsuite/libgomp.fortran/tabs2.f @@ -1,5 +1,5 @@ ! { dg-options "-ffixed-form" } - if (b().ne.2) call abort + if (b().ne.2) STOP 1 contains subroutine a !$omp parallel diff --git a/libgomp/testsuite/libgomp.fortran/target1.f90 b/libgomp/testsuite/libgomp.fortran/target1.f90 index c70daace497..99c5087ca97 100644 --- a/libgomp/testsuite/libgomp.fortran/target1.f90 +++ b/libgomp/testsuite/libgomp.fortran/target1.f90 @@ -13,9 +13,9 @@ contains q(i) = p(i) end do !$omp end target - if (any (p /= q)) call abort + if (any (p /= q)) STOP 1 do i = 1, n - if (p(i) /= i * iand (i, 63)) call abort + 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) @@ -38,7 +38,7 @@ contains end do !$omp end target !$omp end target data - if (any (p + 2.0 /= q)) call abort + if (any (p + 2.0 /= q)) STOP 3 end subroutine end module target1 use target1, only : foo @@ -52,7 +52,7 @@ end module target1 end do call foo (p, v, w, n) do i = 1, n - if (p(i) /= i * iand (i, 63) + 3) call abort + if (p(i) /= i * iand (i, 63) + 3) STOP 4 end do deallocate (p, v, w) end diff --git a/libgomp/testsuite/libgomp.fortran/target2.f90 b/libgomp/testsuite/libgomp.fortran/target2.f90 index 40b7b0b985b..0595ed192d5 100644 --- a/libgomp/testsuite/libgomp.fortran/target2.f90 +++ b/libgomp/testsuite/libgomp.fortran/target2.f90 @@ -29,7 +29,7 @@ contains 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) call abort + 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) @@ -40,7 +40,7 @@ contains 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) call abort + 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) @@ -62,7 +62,7 @@ contains 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) call abort + 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) @@ -77,7 +77,7 @@ contains 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) call abort + if (r) STOP 4 end subroutine foo end module target2 use target2, only : foo diff --git a/libgomp/testsuite/libgomp.fortran/target3.f90 b/libgomp/testsuite/libgomp.fortran/target3.f90 index 1f197acdef7..6c45d119e6e 100644 --- a/libgomp/testsuite/libgomp.fortran/target3.f90 +++ b/libgomp/testsuite/libgomp.fortran/target3.f90 @@ -13,12 +13,12 @@ contains r = associated (f) .or. associated (g) r = r .or. associated (j) .or. associated (k) !$omp end target - if (r) call abort + 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) call abort + if (r) STOP 2 end subroutine foo end module target3 use target3, only : foo diff --git a/libgomp/testsuite/libgomp.fortran/target4.f90 b/libgomp/testsuite/libgomp.fortran/target4.f90 index 2ff5db81bc8..52575af07f4 100644 --- a/libgomp/testsuite/libgomp.fortran/target4.f90 +++ b/libgomp/testsuite/libgomp.fortran/target4.f90 @@ -44,5 +44,5 @@ end module target4 & 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)) call abort + if (any (a /= res)) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/target5.f90 b/libgomp/testsuite/libgomp.fortran/target5.f90 index 4aad88e89d8..b03cb58c544 100644 --- a/libgomp/testsuite/libgomp.fortran/target5.f90 +++ b/libgomp/testsuite/libgomp.fortran/target5.f90 @@ -3,7 +3,7 @@ integer :: r r = 0 call foo (r) - if (r /= 11) call abort + if (r /= 11) STOP 1 contains subroutine foo (r) integer :: i, r diff --git a/libgomp/testsuite/libgomp.fortran/target6.f90 b/libgomp/testsuite/libgomp.fortran/target6.f90 index 13f5a52edd2..82f49e2b9c8 100644 --- a/libgomp/testsuite/libgomp.fortran/target6.f90 +++ b/libgomp/testsuite/libgomp.fortran/target6.f90 @@ -16,7 +16,7 @@ contains !$omp end target !$omp target update if (n > 256) from (p) do i = 1, n - if (p(i) /= i * iand (i, 63)) call abort + 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)) @@ -28,8 +28,8 @@ contains !$omp end target !$omp end target data do i = 1, n - if (q(i) /= (v(i) - 1) * w(i)) call abort - if (p(i) /= q(i) + w(i)) call abort + 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 @@ -44,7 +44,7 @@ end module target6 end do call foo (p, v, w, n) do i = 1, n - if (p(i) /= (i + 1) * iand (i, 63)) call abort + if (p(i) /= (i + 1) * iand (i, 63)) STOP 4 end do deallocate (p, v, w) end diff --git a/libgomp/testsuite/libgomp.fortran/target7.f90 b/libgomp/testsuite/libgomp.fortran/target7.f90 index 0c977c44ae1..49ebb97618e 100644 --- a/libgomp/testsuite/libgomp.fortran/target7.f90 +++ b/libgomp/testsuite/libgomp.fortran/target7.f90 @@ -28,7 +28,7 @@ !$omp end single !$omp end parallel do i = 1, n - if (a(i) /= i + 1) call abort + if (a(i) /= i + 1) STOP 1 end do end real function foo (x) diff --git a/libgomp/testsuite/libgomp.fortran/target8.f90 b/libgomp/testsuite/libgomp.fortran/target8.f90 index 0564e90e08e..e4874ae275c 100644 --- a/libgomp/testsuite/libgomp.fortran/target8.f90 +++ b/libgomp/testsuite/libgomp.fortran/target8.f90 @@ -22,7 +22,7 @@ !$omp end single !$omp end parallel do i = 1, n - if (a(i) /= i + 1) call abort + if (a(i) /= i + 1) STOP 1 end do contains real function foo (x) diff --git a/libgomp/testsuite/libgomp.fortran/task1.f90 b/libgomp/testsuite/libgomp.fortran/task1.f90 index df57cb83168..761226cd854 100644 --- a/libgomp/testsuite/libgomp.fortran/task1.f90 +++ b/libgomp/testsuite/libgomp.fortran/task1.f90 @@ -13,7 +13,7 @@ program tasktest !$omp end task end if !$omp end parallel - if (j.gt.0) call abort + if (j.gt.0) STOP 1 contains subroutine subr (i) use omp_lib diff --git a/libgomp/testsuite/libgomp.fortran/task2.f90 b/libgomp/testsuite/libgomp.fortran/task2.f90 index 24ffee53ac8..4e5ce2a76cc 100644 --- a/libgomp/testsuite/libgomp.fortran/task2.f90 +++ b/libgomp/testsuite/libgomp.fortran/task2.f90 @@ -5,7 +5,7 @@ call test !$omp end single !$omp end parallel - if (err.ne.0) call abort + if (err.ne.0) STOP 1 contains subroutine check (x, y, l) integer :: x, y diff --git a/libgomp/testsuite/libgomp.fortran/task3.f90 b/libgomp/testsuite/libgomp.fortran/task3.f90 index 83b0e9f8163..fcff52ad016 100644 --- a/libgomp/testsuite/libgomp.fortran/task3.f90 +++ b/libgomp/testsuite/libgomp.fortran/task3.f90 @@ -21,6 +21,6 @@ program F03_2_7_1d !$omp end parallel if (sum /= NT) then print *, "FAIL - sum == ", sum, " (expected ", NT, ")" - call abort + STOP 1 end if end program F03_2_7_1d diff --git a/libgomp/testsuite/libgomp.fortran/task4.f90 b/libgomp/testsuite/libgomp.fortran/task4.f90 index 9fa67d95baa..6430f2914a4 100644 --- a/libgomp/testsuite/libgomp.fortran/task4.f90 +++ b/libgomp/testsuite/libgomp.fortran/task4.f90 @@ -41,5 +41,5 @@ !$omp end parallel !$omp atomic read e = err - if (e .ne. 0) call abort + if (e .ne. 0) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 index 018d3e83b92..3f6b38a35f9 100644 --- a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 @@ -18,7 +18,7 @@ end do !$omp end taskgroup do i = 1, 16 - if (v(i).ne.(i + 1)) call abort + if (v(i).ne.(i + 1)) STOP 1 end do !$omp taskgroup do i = 1, 16, 2 @@ -34,7 +34,7 @@ end do !$omp endtaskgroup do i = 1, 16 - if (v(i).ne.(i + 2)) call abort + if (v(i).ne.(i + 2)) STOP 2 end do !$omp taskgroup do i = 1, 16, 2 @@ -53,8 +53,8 @@ end do !$omp end taskgroup do i = 1, 16, 2 - if (v(i).ne.(i + 3)) call abort - if (v(i + 1).ne.(i + 5)) call abort + 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 @@ -66,14 +66,14 @@ 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)) call abort + 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)) call abort + if (v(i).ne.(i + 5)) STOP 6 end do !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/taskloop1.f90 b/libgomp/testsuite/libgomp.fortran/taskloop1.f90 index 92f414c4d50..48904b145bd 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop1.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop1.f90 @@ -7,7 +7,7 @@ r = bar (12, 18) !$omp end single !$omp end parallel - if (q .ne. 6 .or. r .ne. 17 .or. e) call abort + if (q .ne. 6 .or. r .ne. 17 .or. e) STOP 1 contains subroutine foo (a, b) integer, intent (in) :: a, b diff --git a/libgomp/testsuite/libgomp.fortran/taskloop2.f90 b/libgomp/testsuite/libgomp.fortran/taskloop2.f90 index dfd003b7682..0e92fcb6f89 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop2.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop2.f90 @@ -13,7 +13,7 @@ !$omp end single !$omp end parallel do i = 1, 1024 - if (u(i) .ne. 2 * i + 1) call abort + if (u(i) .ne. 2 * i + 1) STOP 1 v(i) = 1024 - i w(i) = 512 - i end do @@ -24,45 +24,45 @@ !$omp end parallel do i = 1, 1024 if (i .lt. 2 .or. i .gt. 1022) then - if (u(i) .ne. 2 * i + 1) call abort + if (u(i) .ne. 2 * i + 1) STOP 2 else - if (u(i) .ne. 1536 - 2 * i) call abort + 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)) call abort + 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) call abort + if (u(i) .ne. 2 * i + 1) STOP 5 v(i) = 1024 - i w(i) = 512 - i end do - if (m .ne. 1025) call abort + 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) call abort + if (u(i) .ne. 1536 - 2 * i) STOP 7 v(i) = i w(i) = i + 1 end do - if (m .ne. 32 + 33 + 1024) call abort + 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) call abort + if (u(i) .ne. 2 * i + 1) STOP 9 end do - if (m .ne. 32 + 33) call abort + if (m .ne. 32 + 33) STOP 10 contains subroutine f1 (a, b) integer, intent(in) :: a, b diff --git a/libgomp/testsuite/libgomp.fortran/taskloop3.f90 b/libgomp/testsuite/libgomp.fortran/taskloop3.f90 index 748433baf55..75f48229211 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop3.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop3.f90 @@ -5,14 +5,14 @@ integer :: i !$omp parallel !$omp single - if (f1 (74) .ne. 63 + 4) call abort + if (f1 (74) .ne. 63 + 4) STOP 1 g = 77 call f2 !$omp taskwait - if (g .ne. 63 + 9) call abort - if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) call abort + 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) call abort +& + 11 * 31 + 17 * 46) STOP 4 !$omp end single !$omp end parallel contains @@ -22,7 +22,7 @@ contains x = y !$omp taskloop firstprivate(x)lastprivate(x) do i = 0, 63 - if (x .ne. 74) call abort + if (x .ne. 74) STOP 5 if (i .eq. 63) then x = i + 4 end if @@ -33,7 +33,7 @@ contains integer :: i !$omp taskloop firstprivate(g)lastprivate(g)nogroup do i = 0, 63 - if (g .ne. 77) call abort + if (g .ne. 77) STOP 6 if (i .eq. 63) then g = i + 9 end if @@ -60,7 +60,7 @@ contains !$omp & lastprivate (i, j, k, l) do i = a, b, e do j = c, d, f - if (k .ne. 73) call abort + if (k .ne. 73) STOP 7 if (i .eq. 31 .and. j .eq. 46) then k = i end if diff --git a/libgomp/testsuite/libgomp.fortran/taskloop4.f90 b/libgomp/testsuite/libgomp.fortran/taskloop4.f90 index ad44f098d00..23067a3e48d 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop4.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop4.f90 @@ -11,22 +11,22 @@ ! >= 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) call abort - if (min_iters .lt. 17 .or. max_iters .ge. 17 * 2) call abort + 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) call abort - if (min_iters .lt. 28 .or. max_iters .ge. 28 * 2) call abort + 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) call abort - if (min_iters .ne. 7 .or. max_iters .ne. 7) call abort - if (ntasks .ne. 1) call abort + 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) call abort + 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) call abort + if (cnt .ne. 13 .or. ntasks .ne. 13) STOP 9 !$omp end single !$omp end parallel contains @@ -42,7 +42,7 @@ contains k = v v = v + 1 !$omp end atomic - if (k .ge. 64) call abort + if (k .ge. 64) STOP 10 end if j = j + 1 u(k + 1) = j @@ -60,7 +60,7 @@ contains k = v v = v + 1 !$omp end atomic - if (k .ge. 64) call abort + if (k .ge. 64) STOP 11 end if j = j + 1 u(k + 1) = j diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 index 32161426bde..4867cc2cdbc 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 @@ -15,7 +15,7 @@ end module threadprivate1 !$omp barrier if (d .ne. omp_get_thread_num () + 6.5) l = .true. !$omp end parallel - if (l) call abort () + if (l) STOP 1 end ! { dg-final { cleanup-modules "threadprivate1" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 index fb3f7ae8f8a..c0aa5be8a94 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 @@ -53,16 +53,16 @@ end module threadprivate2 baz%b = omp_get_thread_num () * 2 + 1 !$omp end parallel - if (l) call abort - if (.not.allocated (foo)) call abort - if (size (foo).ne.18) call abort - if (any (foo.ne.1)) call abort - - if (associated (bar1)) call abort - if (.not.associated (bar3)) call abort - if (any (bar3 .ne. -2)) call abort + 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)) call abort + if (associated (bar3)) STOP 8 !$omp parallel num_threads (4) reduction (.or.:l) l = l.or..not.allocated (foo) @@ -85,12 +85,12 @@ end module threadprivate2 l = l.or.(baz%b.ne.(omp_get_thread_num () * 2 + 1)) !$omp end parallel - if (l) call abort - if (.not.allocated (foo)) call abort - if (size (foo).ne.18) call abort - if (any (foo.ne.1)) call abort + 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)) call abort + if (allocated (foo)) STOP 13 end ! { dg-final { cleanup-modules "threadprivate2" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 index 7edfbf680ff..5bb6b290e48 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 @@ -44,7 +44,7 @@ end module threadprivate3 bar3 = omp_get_thread_num () - 2 if (omp_get_thread_num () .ne. 0) then deallocate (bar3) - if (associated (bar3)) call abort + if (associated (bar3)) STOP 1 else bar1 => var end if @@ -55,13 +55,13 @@ end module threadprivate3 baz%b = omp_get_thread_num () * 2 + 1 !$omp end parallel - if (l) call abort - if (.not.associated (bar1)) call abort - if (any (bar1.ne.6)) call abort - if (.not.associated (bar3)) call abort - if (any (bar3 .ne. -2)) call abort + 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)) call abort + if (associated (bar3)) STOP 7 allocate (bar3 (10)) bar3 = 17 @@ -102,7 +102,7 @@ end module threadprivate3 l = l.or.(baz%b .ne. omp_get_thread_num () * 3 + 5) !$omp end parallel - if (l) call abort + if (l) STOP 8 end ! { dg-final { cleanup-modules "threadprivate3" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 index c86cac72305..2e7a438dd7b 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 @@ -72,7 +72,7 @@ end module threadprivate4 vi = -1 !$omp end parallel - if (l) call abort + if (l) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr1.f90 b/libgomp/testsuite/libgomp.fortran/udr1.f90 index 5b8044fbe75..138bd587232 100644 --- a/libgomp/testsuite/libgomp.fortran/udr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr1.f90 @@ -28,24 +28,24 @@ end module udr1 do i = 1, 100 j = j + i end do - if (j .ne. 5050) call abort + 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)) call abort + if (j .ne. (5050 * 4 + 3)) STOP 2 !$omp parallel do reduction (+ : d) do i = 1, 100 - if (d%y .ne. 9) call abort + 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) call abort + 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) call abort + 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) call abort + if (d%x .ne. (5050 * 8 + 5) .or. d%y .ne. 21) STOP 6 end diff --git a/libgomp/testsuite/libgomp.fortran/udr10.f90 b/libgomp/testsuite/libgomp.fortran/udr10.f90 index b64b4f48800..a855c0b15c9 100644 --- a/libgomp/testsuite/libgomp.fortran/udr10.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr10.f90 @@ -28,5 +28,5 @@ program udr10 j = j .localadd. dl(i) k = k + dl(i * 2) end do - if (j%x /= 5050 .or. k%x /= 10100) call abort + if (j%x /= 5050 .or. k%x /= 10100) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr11.f90 b/libgomp/testsuite/libgomp.fortran/udr11.f90 index 61fb196105d..d69dd72bac3 100644 --- a/libgomp/testsuite/libgomp.fortran/udr11.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr11.f90 @@ -88,8 +88,8 @@ end module udr11 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) call abort - if (m%x /= 5050 .or. n%x /= 10100 .or. o%x /= 15150) call abort - if (p%x /= 5050 .or. q%x /= 10100 .or. r%x /= 15150) call abort - if (s%x /= 5050 .or. t%x /= 10100 .or. u%x /= 15150) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr12.f90 b/libgomp/testsuite/libgomp.fortran/udr12.f90 index 601bca6a93e..c39f0ebc90a 100644 --- a/libgomp/testsuite/libgomp.fortran/udr12.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr12.f90 @@ -34,7 +34,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 2 * r) .or. b /= 3 * r) call abort + if (any (a /= 2 * r) .or. b /= 3 * r) STOP 1 a(:) = 0 b = 0 r = 0 @@ -43,7 +43,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 4 * r) .or. b /= 6 * r) call abort + if (any (a /= 4 * r) .or. b /= 6 * r) STOP 2 a(:) = 0 b = 0 r = 0 @@ -52,7 +52,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 2 * r) .or. b /= 3 * r) call abort + if (any (a /= 2 * r) .or. b /= 3 * r) STOP 3 end elemental function fn1 (x, y) integer, intent(in) :: x, y diff --git a/libgomp/testsuite/libgomp.fortran/udr13.f90 b/libgomp/testsuite/libgomp.fortran/udr13.f90 index 0da1da4bc65..0ff53adf0ca 100644 --- a/libgomp/testsuite/libgomp.fortran/udr13.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr13.f90 @@ -41,38 +41,38 @@ a(:) = 0 r = 0 !$omp parallel reduction (bar : a) reduction (+: r) - if (lbound (a, 1) /= 1 .or. ubound (a, 1) /= 10) call abort + 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) ) call abort + 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) call abort - if (lbound (b, 2) /= 7 .or. ubound (b, 2) /= 9) call abort - if (.not. allocated (c)) call abort - if (lbound (c, 1) /= 4 .or. ubound (c, 1) /= 6) call abort - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 10) call abort + 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)) call abort + 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)) call abort - if (lbound (c, 1) /= 0 .or. ubound (c, 1) /= 1) call abort - if (lbound (c, 2) /= 7 .or. ubound (c, 2) /= 11) call abort + 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)) call abort + if (any (c /= 10 * r)) STOP 12 end function fn1 (x, y, m1, m2) integer, intent(in) :: x(:), y(:), m1, m2 diff --git a/libgomp/testsuite/libgomp.fortran/udr14.f90 b/libgomp/testsuite/libgomp.fortran/udr14.f90 index d6974585578..cb54f4350b9 100644 --- a/libgomp/testsuite/libgomp.fortran/udr14.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr14.f90 @@ -13,31 +13,31 @@ a(7)%h = (/ 0, 0, 0 /) r = 0 !$omp parallel reduction(+:r) reduction (baz:a) - if (.not.allocated (a)) call abort - if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) call abort - if (.not.allocated (a(7)%h)) call abort - if (allocated (a(8)%h)) call abort - if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) call abort + 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)) call abort - if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) call abort - if (.not.allocated (a(7)%h)) call abort - if (allocated (a(8)%h)) call abort - if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) call abort - if (any (a(:)%g /= 2 * r) .or. any (a(7)%h(:) /= 3 * r)) call abort + 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)) call abort - if (lbound (x, 1) /= lbound (y, 1)) call abort - if (ubound (x, 1) /= ubound (y, 1)) call abort - if (allocated (x(7)%h) .neqv. allocated (y(7)%h)) call abort - if (allocated (x(8)%h) .neqv. allocated (y(8)%h)) call abort - if (lbound (x(7)%h, 1) /= lbound (y(7)%h, 1)) call abort - if (ubound (x(7)%h, 1) /= ubound (y(7)%h, 1)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr15.f90 b/libgomp/testsuite/libgomp.fortran/udr15.f90 index 2d1169568dd..ffdb9a783bc 100644 --- a/libgomp/testsuite/libgomp.fortran/udr15.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr15.f90 @@ -60,5 +60,5 @@ end module udr15m2 j = j.addthree.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) call abort + if (d%x /= 5050 .or. j /= 4903) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr2.f90 b/libgomp/testsuite/libgomp.fortran/udr2.f90 index 861a4b27022..5b7d87b33eb 100644 --- a/libgomp/testsuite/libgomp.fortran/udr2.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr2.f90 @@ -28,24 +28,24 @@ end module udr2 do i = 1, 100 j = j + i end do - if (any(j .ne. 5050)) call abort + 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))) call abort + if (any(j .ne. (5050 * 4 + 3))) STOP 2 !$omp parallel do reduction (+ : d) do i = 1, 100 - if (any(d%y .ne. 9)) call abort + 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)) call abort + 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)) call abort + 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)) call abort + if (any(d%x .ne. (5050 * 8 + 5)) .or. any(d%y .ne. 21)) STOP 6 end diff --git a/libgomp/testsuite/libgomp.fortran/udr3.f90 b/libgomp/testsuite/libgomp.fortran/udr3.f90 index 258b6722000..50cecec1f5a 100644 --- a/libgomp/testsuite/libgomp.fortran/udr3.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr3.f90 @@ -29,10 +29,10 @@ & // char (ichar (f(2:2)) + mod (i, 3)) end do do i = 1, 64 - if (index (c, char (ichar ('0') + i)) .eq. 0) call abort - if (index (d, char (ichar ('0') + i)) .eq. 0) call abort + 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)) call abort - if (f(1:1).ne.char (ichar ('0') + 32)) call abort - if (f(2:2).ne.char (ichar ('0') + 64)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr4.f90 b/libgomp/testsuite/libgomp.fortran/udr4.f90 index 89365476af7..86d9515c70a 100644 --- a/libgomp/testsuite/libgomp.fortran/udr4.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr4.f90 @@ -36,12 +36,12 @@ & // char (ichar (f(:,:)(2:2)) + mod (i, 3)) end do do i = 1, 64 - if (any (index (c, char (ichar ('0') + i)) .eq. 0)) call abort - if (any (index (d, char (ichar ('0') + i)) .eq. 0)) call abort + 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))) call abort - if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) call abort - if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr5.f90 b/libgomp/testsuite/libgomp.fortran/udr5.f90 index 6dae9b9b816..8c6c525742a 100644 --- a/libgomp/testsuite/libgomp.fortran/udr5.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr5.f90 @@ -52,6 +52,6 @@ program udr5 r4 = r4 + 1.0 call dp_add (dp, 1.0d0) !$omp end parallel - if (xdt%r .ne. r) call abort - if (i4.ne.r.or.i8.ne.r.or.r4.ne.r.or.dp.ne.r) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr6.f90 b/libgomp/testsuite/libgomp.fortran/udr6.f90 index 20736fb79db..159f6a40ffb 100644 --- a/libgomp/testsuite/libgomp.fortran/udr6.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr6.f90 @@ -62,8 +62,8 @@ program udr6 call dp_add (dp(i), 1.0d0) end do !$omp end parallel - if (any (xdt%r .ne. r)) call abort - if (any (i4.ne.r).or.any(i8.ne.r)) call abort - if (any(r4.ne.r).or.any(dp.ne.r)) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/udr7.f90 b/libgomp/testsuite/libgomp.fortran/udr7.f90 index 42be00c3a16..92b24a196f4 100644 --- a/libgomp/testsuite/libgomp.fortran/udr7.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr7.f90 @@ -22,7 +22,7 @@ program udr7 do i = 1, 64 x = x + i end do - if (any (x /= 2080.0)) call abort + if (any (x /= 2080.0)) STOP 1 contains elemental subroutine omp_out (x, y) real, intent (out) :: x diff --git a/libgomp/testsuite/libgomp.fortran/udr8.f90 b/libgomp/testsuite/libgomp.fortran/udr8.f90 index 9ef48a5c787..6b8eac22a7f 100644 --- a/libgomp/testsuite/libgomp.fortran/udr8.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr8.f90 @@ -42,5 +42,5 @@ end module udr8m2 j = j.add.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) call abort + if (d%x /= 5050 .or. j /= 4903) STOP 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr9.f90 b/libgomp/testsuite/libgomp.fortran/udr9.f90 index a4fec1337c2..a8ba78d924d 100644 --- a/libgomp/testsuite/libgomp.fortran/udr9.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr9.f90 @@ -23,7 +23,7 @@ contains end subroutine subroutine initializer1 (x, y) integer :: x, y - if (y .ne. 3) call abort + if (y .ne. 3) STOP 1 x = y end subroutine end module udr9m1 @@ -61,5 +61,5 @@ end module udr9m2 j = j.add.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) call abort + if (d%x /= 5050 .or. j /= 4903) STOP 2 end diff --git a/libgomp/testsuite/libgomp.fortran/vla1.f90 b/libgomp/testsuite/libgomp.fortran/vla1.f90 index c22165ee0a1..e483a4c483c 100644 --- a/libgomp/testsuite/libgomp.fortran/vla1.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla1.f90 @@ -155,7 +155,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla2.f90 b/libgomp/testsuite/libgomp.fortran/vla2.f90 index a9510fd385a..37dc319f72a 100644 --- a/libgomp/testsuite/libgomp.fortran/vla2.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla2.f90 @@ -123,7 +123,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla3.f90 b/libgomp/testsuite/libgomp.fortran/vla3.f90 index bfafc4f7d05..1f4012b1034 100644 --- a/libgomp/testsuite/libgomp.fortran/vla3.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla3.f90 @@ -161,7 +161,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla4.f90 b/libgomp/testsuite/libgomp.fortran/vla4.f90 index 0bee30cf817..64c7315f2bb 100644 --- a/libgomp/testsuite/libgomp.fortran/vla4.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla4.f90 @@ -165,7 +165,7 @@ contains call check (size (k), 15, l) 110 continue !$omp end parallel do - if (l) call abort + if (l) STOP 1 if (z2 == 6) then x = 5 w = 'thread5thr_number_5THREAD5THR_NUMBER_5' @@ -201,7 +201,7 @@ contains do 115, q = 4, 6 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue - if (l) call abort + if (l) STOP 2 end if end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/vla5.f90 b/libgomp/testsuite/libgomp.fortran/vla5.f90 index cdd561d3961..867da73c55e 100644 --- a/libgomp/testsuite/libgomp.fortran/vla5.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla5.f90 @@ -137,7 +137,7 @@ contains call check (size (k), 15, l) 110 continue !$omp end parallel do - if (l) call abort + if (l) STOP 1 if (z2 == 6) then x = 5 w = 'thread5thr_number_5THREAD5THR_NUMBER_5' @@ -173,7 +173,7 @@ contains do 115, q = 4, 6 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue - if (l) call abort + if (l) STOP 2 end if end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/vla6.f90 b/libgomp/testsuite/libgomp.fortran/vla6.f90 index bb9c4916d40..1017beed184 100644 --- a/libgomp/testsuite/libgomp.fortran/vla6.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla6.f90 @@ -172,7 +172,7 @@ contains l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla7.f90 b/libgomp/testsuite/libgomp.fortran/vla7.f90 index 29a6696443a..a97132dc0a4 100644 --- a/libgomp/testsuite/libgomp.fortran/vla7.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla7.f90 @@ -4,13 +4,13 @@ character (6) :: c, f2 character (6) :: d(2) c = f1 (6) - if (c .ne. 'opqrst') call abort + if (c .ne. 'opqrst') STOP 1 c = f2 (6) - if (c .ne. '_/!!/_') call abort + if (c .ne. '_/!!/_') STOP 2 d = f3 (6) - if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') call abort + 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') call abort + if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') STOP 4 contains function f1 (n) use omp_lib @@ -40,7 +40,7 @@ contains !$omp barrier l = l .or. f1 .ne. 'def' !$omp end parallel - if (l) call abort + if (l) STOP 5 f1 = 'opqrst' end function f1 function f3 (n) @@ -71,7 +71,7 @@ contains !$omp barrier l = l .or. any (f3 .ne. 'def') !$omp end parallel - if (l) call abort + if (l) STOP 6 f3(1) = 'opqrst' f3(2) = 'a' end function f3 @@ -105,7 +105,7 @@ contains l = l .or. any (f4 .ne. 'def') l = l .or. size (f4) .ne. 2 !$omp end parallel - if (l) call abort + if (l) STOP 7 f4(1) = 'Opqrst' f4(2) = 'A' end function f4 @@ -138,6 +138,6 @@ function f2 (n) !$omp barrier l = l .or. f2 .ne. 'def' !$omp end parallel - if (l) call abort + if (l) STOP 8 f2 = '_/!!/_' end function f2 diff --git a/libgomp/testsuite/libgomp.fortran/vla8.f90 b/libgomp/testsuite/libgomp.fortran/vla8.f90 index b06a6f4be5d..68174cadd7c 100644 --- a/libgomp/testsuite/libgomp.fortran/vla8.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla8.f90 @@ -236,7 +236,7 @@ contains l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 125 continue !$omp end parallel - if (l) call abort + if (l) STOP 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/workshare1.f90 b/libgomp/testsuite/libgomp.fortran/workshare1.f90 index a0e6ff919e5..1d2ba7d3ee2 100644 --- a/libgomp/testsuite/libgomp.fortran/workshare1.f90 +++ b/libgomp/testsuite/libgomp.fortran/workshare1.f90 @@ -24,7 +24,7 @@ end b = 20 a(1:5) = max (a(1:5), b(1:5)) !$omp end parallel workshare - if (any (a(1:5) .ne. 20)) call abort - if (any (a(6:10) .ne. 10)) call abort - if (.not. foo_seen .or. .not. bar_seen) call abort + 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 diff --git a/libgomp/testsuite/libgomp.fortran/workshare2.f90 b/libgomp/testsuite/libgomp.fortran/workshare2.f90 index 1b749a6cf05..655a450885e 100644 --- a/libgomp/testsuite/libgomp.fortran/workshare2.f90 +++ b/libgomp/testsuite/libgomp.fortran/workshare2.f90 @@ -3,7 +3,7 @@ subroutine f1 !$omp parallel workshare a(:,:) = 17 !$omp end parallel workshare - if (any (a.ne.17)) call abort + if (any (a.ne.17)) STOP 1 end subroutine f1 subroutine f2 integer a(20:50,70:90),d(15),e(15),f(15) @@ -20,14 +20,14 @@ subroutine f2 f = 7 where (e.ge.5) f = f + 1 !$omp end parallel workshare - if (any (a.ne.17)) call abort - if (c.ne.5.or.b.ne.4) call abort - if (any(d.ne.0)) call abort + 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) call abort + if (f(i).ne.8) STOP 5 else - if (f(i).ne.7) call abort + if (f(i).ne.7) STOP 6 end if end do end subroutine f2 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 index b38303d015a..dde35123e79 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 @@ -3,7 +3,7 @@ program main print *, "CheCKpOInT" !$acc parallel - call abort + STOP 1 !$acc end parallel end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 index 2ba2bcb8aa6..68d90e94539 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/abort-2.f90 @@ -6,7 +6,7 @@ program main !$acc parallel copyin(argc) if (argc .ne. 0) then - call abort + STOP 1 end if !$acc end parallel diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90 index 1a10f32ab3a..d6c67a0c31a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-1.f90 @@ -9,19 +9,19 @@ implicit none ! Host. -if (.not. acc_on_device (acc_device_none)) call abort -if (.not. acc_on_device (acc_device_host)) call abort -if (acc_on_device (acc_device_not_host)) call abort -if (acc_on_device (acc_device_nvidia)) call abort +if (.not. acc_on_device (acc_device_none)) STOP 1 +if (.not. acc_on_device (acc_device_host)) STOP 2 +if (acc_on_device (acc_device_not_host)) STOP 3 +if (acc_on_device (acc_device_nvidia)) STOP 4 ! Host via offloading fallback mode. !$acc parallel if(.false.) -if (.not. acc_on_device (acc_device_none)) call abort -if (.not. acc_on_device (acc_device_host)) call abort -if (acc_on_device (acc_device_not_host)) call abort -if (acc_on_device (acc_device_nvidia)) call abort +if (.not. acc_on_device (acc_device_none)) STOP 5 +if (.not. acc_on_device (acc_device_host)) STOP 6 +if (acc_on_device (acc_device_not_host)) STOP 7 +if (acc_on_device (acc_device_nvidia)) STOP 8 !$acc end parallel @@ -30,13 +30,13 @@ if (acc_on_device (acc_device_nvidia)) call abort ! Offloaded. !$acc parallel -if (acc_on_device (acc_device_none)) call abort -if (acc_on_device (acc_device_host)) call abort -if (.not. acc_on_device (acc_device_not_host)) call abort +if (acc_on_device (acc_device_none)) STOP 9 +if (acc_on_device (acc_device_host)) STOP 10 +if (.not. acc_on_device (acc_device_not_host)) STOP 11 #if ACC_DEVICE_TYPE_nvidia -if (.not. acc_on_device (acc_device_nvidia)) call abort +if (.not. acc_on_device (acc_device_nvidia)) STOP 12 #else -if (acc_on_device (acc_device_nvidia)) call abort +if (acc_on_device (acc_device_nvidia)) STOP 13 #endif !$acc end parallel diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f index a19045b0563..75e24509ce9 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-2.f @@ -9,19 +9,19 @@ !Host. - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 1 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 2 + IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 3 + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 4 !Host via offloading fallback mode. !$ACC PARALLEL IF(.FALSE.) - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 5 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 6 + IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 7 + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 8 !$ACC END PARALLEL @@ -30,13 +30,13 @@ ! Offloaded. !$ACC PARALLEL - IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT + IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 9 + IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 10 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 11 #if ACC_DEVICE_TYPE_nvidia - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 12 #else - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 13 #endif !$ACC END PARALLEL diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f index c3917760682..908d185f40c 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_on_device-1-3.f @@ -9,19 +9,19 @@ !Host. - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 1 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 2 + IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 3 + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 4 !Host via offloading fallback mode. !$ACC PARALLEL IF(.FALSE.) - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 5 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 6 + IF (ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 7 + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 8 !$ACC END PARALLEL @@ -30,13 +30,13 @@ ! Offloaded. !$ACC PARALLEL - IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) CALL ABORT - IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) CALL ABORT - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) CALL ABORT + IF (ACC_ON_DEVICE (ACC_DEVICE_NONE)) STOP 9 + IF (ACC_ON_DEVICE (ACC_DEVICE_HOST)) STOP 10 + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NOT_HOST)) STOP 11 #if ACC_DEVICE_TYPE_nvidia - IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (.NOT. ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 12 #else - IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) CALL ABORT + IF (ACC_ON_DEVICE (ACC_DEVICE_NVIDIA)) STOP 13 #endif !$ACC END PARALLEL diff --git a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-1.f90 index 01728bd3f6c..f027c31b4ea 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-1.f90 @@ -27,8 +27,8 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do a(:) = 2.0 @@ -47,8 +47,8 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 2.0) STOP 3 + if (b(i) .ne. 2.0) STOP 4 end do a(:) = 3.0 @@ -81,10 +81,10 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 9.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort + if (a(i) .ne. 3.0) STOP 5 + if (b(i) .ne. 9.0) STOP 6 + if (c(i) .ne. 4.0) STOP 7 + if (d(i) .ne. 1.0) STOP 8 end do a(:) = 2.0 @@ -126,11 +126,11 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 4.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort - if (e(i) .ne. 11.0) call abort + if (a(i) .ne. 2.0) STOP 9 + if (b(i) .ne. 4.0) STOP 10 + if (c(i) .ne. 4.0) STOP 11 + if (d(i) .ne. 1.0) STOP 12 + if (e(i) .ne. 11.0) STOP 13 end do a(:) = 3.0 @@ -149,8 +149,8 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 14 + if (b(i) .ne. 3.0) STOP 15 end do a(:) = 2.0 @@ -169,8 +169,8 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 2.0) STOP 16 + if (b(i) .ne. 2.0) STOP 17 end do a(:) = 3.0 @@ -203,10 +203,10 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 9.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort + if (a(i) .ne. 3.0) STOP 18 + if (b(i) .ne. 9.0) STOP 19 + if (c(i) .ne. 4.0) STOP 20 + if (d(i) .ne. 1.0) STOP 21 end do a(:) = 2.0 @@ -248,10 +248,10 @@ program asyncwait !$acc end data do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 4.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort - if (e(i) .ne. 11.0) call abort + if (a(i) .ne. 2.0) STOP 22 + if (b(i) .ne. 4.0) STOP 23 + if (c(i) .ne. 4.0) STOP 24 + if (d(i) .ne. 1.0) STOP 25 + if (e(i) .ne. 11.0) STOP 26 end do end program asyncwait diff --git a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-2.f90 index fe131b62716..7f5080a21b6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-2.f90 @@ -31,7 +31,7 @@ program asyncwait !$acc end parallel do i = 1, N - if (c(i) .ne. 2.0) call abort + if (c(i) .ne. 2.0) STOP 1 end do !$acc kernels async (0) @@ -56,7 +56,7 @@ program asyncwait !$acc end kernels do i = 1, N - if (c(i) .ne. 2.0) call abort + if (c(i) .ne. 2.0) STOP 2 end do deallocate (a) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-3.f90 index fa96a015ce1..6d9ed0cf078 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/asyncwait-3.f90 @@ -33,7 +33,7 @@ program asyncwait !$acc end parallel do i = 1, N - if (c(i) .ne. 2.0) call abort + if (c(i) .ne. 2.0) STOP 1 end do !$acc kernels async (0) @@ -60,7 +60,7 @@ program asyncwait !$acc end kernels do i = 1, N - if (c(i) .ne. 2.0) call abort + if (c(i) .ne. 2.0) STOP 2 end do deallocate (a) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 index 27c5c9e57bd..5a7e1e5db3a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/atomic_capture-1.f90 @@ -18,8 +18,8 @@ program main end do !$acc end parallel - if (igot /= iexp) call abort - if (itmp /= iexp - 2) call abort + if (igot /= iexp) STOP 1 + if (itmp /= iexp - 2) STOP 2 fgot = 1234.0 fexp = 1266.0 @@ -33,8 +33,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp - 1.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp - 1.0) STOP 3 + if (fgot /= fexp) STOP 4 fgot = 1.0 fexp = 2.0**32 @@ -48,8 +48,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp / 2.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp / 2.0) STOP 5 + if (fgot /= fexp) STOP 6 fgot = 32.0 fexp = fgot - N @@ -63,8 +63,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp + 1.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp + 1.0) STOP 7 + if (fgot /= fexp) STOP 8 fgot = 2**32.0 fexp = 1.0 @@ -78,8 +78,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fgot * 2.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fgot * 2.0) STOP 9 + if (fgot /= fexp) STOP 10 lgot = .TRUE. lexp = .FALSE. @@ -91,8 +91,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. .not. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. .not. lexp) STOP 11 + if (lgot .neqv. lexp) STOP 12 lgot = .FALSE. lexp = .FALSE. @@ -104,8 +104,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 13 + if (lgot .neqv. lexp) STOP 14 lgot = .FALSE. lexp = .FALSE. @@ -117,8 +117,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 15 + if (lgot .neqv. lexp) STOP 16 lgot = .FALSE. lexp = .TRUE. @@ -130,8 +130,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. .not. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. .not. lexp) STOP 17 + if (lgot .neqv. lexp) STOP 18 fgot = 1234.0 fexp = 1266.0 @@ -145,8 +145,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp - 1.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp - 1.0) STOP 19 + if (fgot /= fexp) STOP 20 fgot = 1.0 fexp = 2.0**32 @@ -160,8 +160,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp / 2.0) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp / 2.0) STOP 21 + if (fgot /= fexp) STOP 22 fgot = 32.0 fexp = 32.0 @@ -175,8 +175,8 @@ program main end do !$acc end parallel loop - if (ftmp /= 2.0 - fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= 2.0 - fexp) STOP 23 + if (fgot /= fexp) STOP 24 fgot = 2.0**16 fexp = 2.0**16 @@ -190,8 +190,8 @@ program main end do !$acc end parallel loop - if (ftmp /= 2.0 / fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= 2.0 / fexp) STOP 25 + if (fgot /= fexp) STOP 26 lgot = .TRUE. lexp = .FALSE. @@ -203,8 +203,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. .not. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. .not. lexp) STOP 27 + if (lgot .neqv. lexp) STOP 28 lgot = .FALSE. lexp = .FALSE. @@ -216,8 +216,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 29 + if (lgot .neqv. lexp) STOP 30 lgot = .FALSE. lexp = .FALSE. @@ -229,8 +229,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 31 + if (lgot .neqv. lexp) STOP 32 lgot = .FALSE. lexp = .TRUE. @@ -242,8 +242,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. .not. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. .not. lexp) STOP 33 + if (lgot .neqv. lexp) STOP 34 igot = 1 iexp = N @@ -257,8 +257,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp - 1) call abort - if (igot /= iexp) call abort + if (itmp /= iexp - 1) STOP 35 + if (igot /= iexp) STOP 36 igot = N iexp = 1 @@ -272,8 +272,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 37 + if (igot /= iexp) STOP 38 igot = -1 iexp = 0 @@ -288,8 +288,8 @@ program main end do !$acc end parallel loop - if (itmp /= ibset (iexp, N - 1)) call abort - if (igot /= iexp) call abort + if (itmp /= ibset (iexp, N - 1)) STOP 39 + if (igot /= iexp) STOP 40 igot = 0 iexp = -1 @@ -304,8 +304,8 @@ program main end do !$acc end parallel loop - if (itmp /= ieor (iexp, lshift (1, N - 1))) call abort - if (igot /= iexp) call abort + if (itmp /= ieor (iexp, lshift (1, N - 1))) STOP 41 + if (igot /= iexp) STOP 42 igot = -1 iexp = 0 @@ -320,8 +320,8 @@ program main end do !$acc end parallel loop - if (itmp /= ior (iexp, lshift (1, N - 1))) call abort - if (igot /= iexp) call abort + if (itmp /= ior (iexp, lshift (1, N - 1))) STOP 43 + if (igot /= iexp) STOP 44 igot = 1 iexp = N @@ -335,8 +335,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp - 1) call abort - if (igot /= iexp) call abort + if (itmp /= iexp - 1) STOP 45 + if (igot /= iexp) STOP 46 igot = N iexp = 1 @@ -350,8 +350,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 47 + if (igot /= iexp) STOP 48 igot = -1 iexp = 0 @@ -366,8 +366,8 @@ program main end do !$acc end parallel loop - if (itmp /= ibset (iexp, N - 1)) call abort - if (igot /= iexp) call abort + if (itmp /= ibset (iexp, N - 1)) STOP 49 + if (igot /= iexp) STOP 50 igot = 0 iexp = -1 @@ -382,8 +382,8 @@ program main end do !$acc end parallel loop - if (itmp /= ieor (iexp, lshift (1, N - 1))) call abort - if (igot /= iexp) call abort + if (itmp /= ieor (iexp, lshift (1, N - 1))) STOP 51 + if (igot /= iexp) STOP 52 igot = -1 iexp = 0 @@ -398,8 +398,8 @@ program main end do !$acc end parallel loop - if (itmp /= ior (iexp, lshift (1, N - 1))) call abort - if (igot /= iexp) call abort + if (itmp /= ior (iexp, lshift (1, N - 1))) STOP 53 + if (igot /= iexp) STOP 54 fgot = 1234.0 fexp = 1266.0 @@ -413,8 +413,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 55 + if (fgot /= fexp) STOP 56 fgot = 1.0 fexp = 2.0**32 @@ -428,8 +428,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 57 + if (fgot /= fexp) STOP 58 fgot = 32.0 fexp = fgot - N @@ -443,8 +443,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 59 + if (fgot /= fexp) STOP 60 fgot = 2**32.0 fexp = 1.0 @@ -458,8 +458,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 61 + if (fgot /= fexp) STOP 62 lgot = .TRUE. lexp = .FALSE. @@ -471,8 +471,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 63 + if (lgot .neqv. lexp) STOP 64 lgot = .FALSE. lexp = .FALSE. @@ -484,8 +484,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 65 + if (lgot .neqv. lexp) STOP 66 lgot = .FALSE. lexp = .FALSE. @@ -497,8 +497,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 67 + if (lgot .neqv. lexp) STOP 68 lgot = .FALSE. lexp = .TRUE. @@ -510,8 +510,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 69 + if (lgot .neqv. lexp) STOP 70 fgot = 1234.0 fexp = 1266.0 @@ -525,8 +525,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 71 + if (fgot /= fexp) STOP 72 fgot = 1.0 fexp = 2.0**32 @@ -540,8 +540,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 73 + if (fgot /= fexp) STOP 74 fgot = 32.0 fexp = 32.0 @@ -555,8 +555,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 75 + if (fgot /= fexp) STOP 76 fgot = 2.0**16 fexp = 2.0**16 @@ -570,8 +570,8 @@ program main end do !$acc end parallel loop - if (ftmp /= fexp) call abort - if (fgot /= fexp) call abort + if (ftmp /= fexp) STOP 77 + if (fgot /= fexp) STOP 78 lgot = .TRUE. lexp = .FALSE. @@ -583,8 +583,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 79 + if (lgot .neqv. lexp) STOP 80 lgot = .FALSE. lexp = .FALSE. @@ -596,8 +596,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 81 + if (lgot .neqv. lexp) STOP 82 lgot = .FALSE. lexp = .FALSE. @@ -609,8 +609,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 83 + if (lgot .neqv. lexp) STOP 84 lgot = .FALSE. lexp = .TRUE. @@ -622,8 +622,8 @@ program main !$acc end atomic !$acc end parallel - if (ltmp .neqv. lexp) call abort - if (lgot .neqv. lexp) call abort + if (ltmp .neqv. lexp) STOP 85 + if (lgot .neqv. lexp) STOP 86 igot = 1 iexp = N @@ -637,8 +637,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 87 + if (igot /= iexp) STOP 88 igot = N iexp = 1 @@ -652,8 +652,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 89 + if (igot /= iexp) STOP 90 igot = -1 iexp = 0 @@ -668,8 +668,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 91 + if (igot /= iexp) STOP 92 igot = 0 iexp = -1 @@ -684,8 +684,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 93 + if (igot /= iexp) STOP 94 igot = -1 iexp = 0 @@ -700,8 +700,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 95 + if (igot /= iexp) STOP 96 igot = 1 iexp = N @@ -715,8 +715,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 97 + if (igot /= iexp) STOP 98 igot = N iexp = 1 @@ -730,8 +730,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 99 + if (igot /= iexp) STOP 100 igot = -1 iexp = 0 @@ -746,8 +746,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 101 + if (igot /= iexp) STOP 102 igot = 0 iexp = -1 @@ -762,8 +762,8 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 103 + if (igot /= iexp) STOP 104 igot = -1 iexp = 0 @@ -778,7 +778,7 @@ program main end do !$acc end parallel loop - if (itmp /= iexp) call abort - if (igot /= iexp) call abort + if (itmp /= iexp) STOP 105 + if (igot /= iexp) STOP 106 end program diff --git a/libgomp/testsuite/libgomp.oacc-fortran/atomic_rw-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/atomic_rw-1.f90 index 51ec9aaca87..cbbfe9f8a9d 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/atomic_rw-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/atomic_rw-1.f90 @@ -22,8 +22,8 @@ program main !$acc end parallel - if (v1 .ne. 99) call abort + if (v1 .ne. 99) STOP 1 - if (v2 .ne. 32) call abort + if (v2 .ne. 32) STOP 2 end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/atomic_update-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/atomic_update-1.f90 index 6607c77c935..c99d1f3bf27 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/atomic_update-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/atomic_update-1.f90 @@ -18,7 +18,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 1 fgot = 1.0 fexp = 2.0**32 @@ -31,7 +31,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 2 fgot = 32.0 fexp = fgot - N @@ -44,7 +44,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 3 fgot = 2**32.0 fexp = 1.0 @@ -57,7 +57,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 4 lgot = .TRUE. lexp = .FALSE. @@ -68,7 +68,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 5 lgot = .FALSE. lexp = .FALSE. @@ -79,7 +79,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 6 lgot = .FALSE. lexp = .FALSE. @@ -90,7 +90,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 7 lgot = .FALSE. lexp = .TRUE. @@ -101,7 +101,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 8 fgot = 1234.0 fexp = 1266.0 @@ -114,7 +114,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 9 fgot = 1.0 fexp = 2.0**32 @@ -127,7 +127,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 10 fgot = 32.0 fexp = 32.0 @@ -140,7 +140,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 11 fgot = 2.0**16 fexp = 2.0**16 @@ -153,7 +153,7 @@ program main end do !$acc end parallel loop - if (fgot /= fexp) call abort + if (fgot /= fexp) STOP 12 lgot = .TRUE. lexp = .FALSE. @@ -164,7 +164,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 13 lgot = .FALSE. lexp = .FALSE. @@ -175,7 +175,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 14 lgot = .FALSE. lexp = .FALSE. @@ -186,7 +186,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 15 lgot = .FALSE. lexp = .TRUE. @@ -197,7 +197,7 @@ program main !$acc end atomic !$acc end parallel - if (lgot .neqv. lexp) call abort + if (lgot .neqv. lexp) STOP 16 igot = 1 iexp = N @@ -210,7 +210,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 17 igot = N iexp = 1 @@ -223,7 +223,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 18 igot = -1 iexp = 0 @@ -237,7 +237,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 19 igot = 0 iexp = -1 @@ -251,7 +251,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 20 igot = -1 iexp = 0 @@ -265,7 +265,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 21 igot = 1 iexp = N @@ -278,7 +278,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 22 igot = N iexp = 1 @@ -291,7 +291,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 23 igot = -1 iexp = 0 @@ -305,7 +305,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 24 igot = 0 iexp = -1 @@ -319,7 +319,7 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 25 igot = -1 iexp = 0 @@ -333,6 +333,6 @@ program main end do !$acc end parallel loop - if (igot /= iexp) call abort + if (igot /= iexp) STOP 26 end program diff --git a/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90 index e6ab78dc047..1d05e4a819f 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90 @@ -25,11 +25,11 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 3.0) call abort + if (b(i) .ne. 3.0) STOP 1 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 2 + if (acc_is_present (b) .eqv. .TRUE.) STOP 3 a(:) = 5.0 b(:) = 1.0 @@ -41,11 +41,11 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 5.0) call abort + if (b(i) .ne. 5.0) STOP 4 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 5 + if (acc_is_present (b) .eqv. .TRUE.) STOP 6 a(:) = 6.0 b(:) = 0.0 @@ -61,13 +61,13 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 6.0) call abort + if (b(i) .ne. 6.0) STOP 7 end do call acc_copyout (a, sizeof (a)) - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 8 + if (acc_is_present (b) .eqv. .TRUE.) STOP 9 a(:) = 6.0 b(:) = 0.0 @@ -79,11 +79,11 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 6.0) call abort + if (b(i) .ne. 6.0) STOP 10 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 11 + if (acc_is_present (b) .eqv. .TRUE.) STOP 12 a(:) = 5.0 b(:) = 2.0 @@ -97,14 +97,14 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 5.0) STOP 13 + if (b(i) .ne. 2.0) STOP 14 end do call acc_copyout (b, sizeof (b)) - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 15 + if (acc_is_present (b) .eqv. .TRUE.) STOP 16 a(:) = 3.0; b(:) = 4.0; @@ -117,12 +117,12 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 4.0) call abort - if (b(i) .ne. 6.0) call abort + if (a(i) .ne. 4.0) STOP 17 + if (b(i) .ne. 6.0) STOP 18 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 19 + if (acc_is_present (b) .eqv. .TRUE.) STOP 20 a(:) = 4.0 b(:) = 7.0 @@ -135,12 +135,12 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 9.0) call abort + if (a(i) .ne. 5.0) STOP 21 + if (b(i) .ne. 9.0) STOP 22 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 23 + if (acc_is_present (b) .eqv. .TRUE.) STOP 24 a(:) = 3.0 b(:) = 7.0 @@ -156,15 +156,15 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 7.0) call abort + if (a(i) .ne. 3.0) STOP 25 + if (b(i) .ne. 7.0) STOP 26 end do call acc_copyout (a, sizeof (a)) call acc_copyout (b, sizeof (b)) - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 27 + if (acc_is_present (b) .eqv. .TRUE.) STOP 28 a(:) = 3.0 b(:) = 7.0 @@ -177,13 +177,13 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 29 + if (b(i) .ne. 3.0) STOP 30 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort - if (acc_is_present (c) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 31 + if (acc_is_present (b) .eqv. .TRUE.) STOP 32 + if (acc_is_present (c) .eqv. .TRUE.) STOP 33 a(:) = 4.0 b(:) = 8.0 @@ -196,13 +196,13 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 4.0) call abort - if (b(i) .ne. 4.0) call abort + if (a(i) .ne. 4.0) STOP 34 + if (b(i) .ne. 4.0) STOP 35 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort - if (acc_is_present (c) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 36 + if (acc_is_present (b) .eqv. .TRUE.) STOP 37 + if (acc_is_present (c) .eqv. .TRUE.) STOP 38 a(:) = 4.0 @@ -222,13 +222,13 @@ program main call acc_copyout (c, sizeof (c)) do i = 1, N - if (a(i) .ne. 4.0) call abort - if (b(i) .ne. 4.0) call abort + if (a(i) .ne. 4.0) STOP 39 + if (b(i) .ne. 4.0) STOP 40 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort - if (acc_is_present (c) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 41 + if (acc_is_present (b) .eqv. .TRUE.) STOP 42 + if (acc_is_present (c) .eqv. .TRUE.) STOP 43 a(:) = 6.0 b(:) = 0.0 @@ -244,13 +244,13 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 6.0) call abort + if (b(i) .ne. 6.0) STOP 44 end do call acc_copyout (a, sizeof (a)) - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 45 + if (acc_is_present (b) .eqv. .TRUE.) STOP 46 a(:) = 6.0 b(:) = 0.0 @@ -262,11 +262,11 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 6.0) call abort + if (b(i) .ne. 6.0) STOP 47 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 48 + if (acc_is_present (b) .eqv. .TRUE.) STOP 49 a(:) = 5.0 b(:) = 7.0 @@ -279,12 +279,12 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 5.0) call abort + if (a(i) .ne. 5.0) STOP 50 + if (b(i) .ne. 5.0) STOP 51 end do - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort - if (acc_is_present (c) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 52 + if (acc_is_present (b) .eqv. .TRUE.) STOP 53 + if (acc_is_present (c) .eqv. .TRUE.) STOP 54 end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-1.f90 index 4c07bc2108e..918c5d0d5b1 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-1.f90 @@ -23,5 +23,5 @@ program collapse1 end do end do !$acc end parallel - if (l) call abort + if (l) STOP 1 end program collapse1 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-2.f90 index ca3b638a461..4f45537c231 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-2.f90 @@ -21,5 +21,5 @@ firstdo: do i = 1, 3 end do end do firstdo !$acc end parallel - if (l) call abort + if (l) STOP 1 end program collapse2 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-3.f90 index 50e6100a1a0..aa40790c21f 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-3.f90 @@ -12,7 +12,7 @@ dokk: do kk=1,3 enddo dokk 115 continue !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.1)) call abort + if (any(a(1:3,1:3,1:3).ne.1)) STOP 1 !$acc parallel !$acc loop collapse(3) @@ -24,5 +24,5 @@ doll: do ll=1,3 enddo doll 120 end do dol !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.2)) call abort + if (any(a(1:3,1:3,1:3).ne.2)) STOP 2 end program collapse3 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-4.f90 index 41b66db43ec..0cb990b5c05 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-4.f90 @@ -29,11 +29,11 @@ program collapse4 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 1 do i = 2, 6 do j = -2, 4 do k = 13, 18 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 2 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-5.f90 index 8c20f043f4c..54012c76787 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-5.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-5.f90 @@ -37,11 +37,11 @@ program collapse5 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 1 do i = v1, v2 do j = v3, v4 do k = v5, v6 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 2 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-6.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-6.f90 index 7404b9182ac..f961f7d246d 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-6.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-6.f90 @@ -39,11 +39,11 @@ program collapse6 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 1 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 2 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-7.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-7.f90 index 12efd8c0ab4..9c13c79651b 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-7.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-7.f90 @@ -29,11 +29,11 @@ program collapse7 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 1 do i = 1, 7 do j = -3, 5 do k = 12, 19 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 2 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/collapse-8.f90 b/libgomp/testsuite/libgomp.oacc-fortran/collapse-8.f90 index 04fbcfef49a..48d8447bf20 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/collapse-8.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/collapse-8.f90 @@ -36,11 +36,11 @@ program collapse8 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 1 do i = v1, v2 do j = v3, v4 do k = v5, v6 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 2 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/combined-directives-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/combined-directives-1.f90 index 94100b22163..b980bc98a7f 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/combined-directives-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/combined-directives-1.f90 @@ -19,9 +19,9 @@ program main end do do i = 1, n - if (a(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 - if (b(i) .ne. 2.0) call abort + if (b(i) .ne. 2.0) STOP 2 end do !$acc kernels loop copy (a(1:n)) copy (b(1:n)) @@ -31,9 +31,9 @@ program main end do do i = 1, n - if (a(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 3 - if (b(i) .ne. 3.0) call abort + if (b(i) .ne. 3.0) STOP 4 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/combined-reduction.f90 b/libgomp/testsuite/libgomp.oacc-fortran/combined-reduction.f90 index d3a61b57f13..8c40d221784 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/combined-reduction.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/combined-reduction.f90 @@ -15,5 +15,5 @@ program test end do !$acc end parallel loop - if (var .ne. n) call abort + if (var .ne. n) STOP 1 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90 index 5e94e2d7f47..f4e90539818 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/data-1.f90 @@ -21,8 +21,8 @@ program test !$acc exit data copyout (a(1:N), b(1:N)) do i = 1, n - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do a(:) = 5.0 @@ -39,7 +39,7 @@ program test !$acc exit data copyout (a(1:N), b(1:N)) do i = 1, n - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 5.0) call abort + if (a(i) .ne. 5.0) STOP 3 + if (b(i) .ne. 5.0) STOP 4 end do end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 index 8736c2a1f10..22525b8f59e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 @@ -24,8 +24,8 @@ program test do i = 1, n do j = 1, n - if (a(j,i) .ne. 3.0) call abort - if (b(j,i) .ne. 3.0) call abort + if (a(j,i) .ne. 3.0) STOP 1 + if (b(j,i) .ne. 3.0) STOP 2 end do end do end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-3.f90 index 9868cb0da9d..19eb4bd6a45 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/data-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/data-3.f90 @@ -27,8 +27,8 @@ program asyncwait !$acc exit data copyout (a(1:N)) copyout (b(1:N)) do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do a(:) = 2.0 @@ -46,8 +46,8 @@ program asyncwait !$acc exit data copyout (a(1:N)) copyout (b(1:N)) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 2.0) STOP 3 + if (b(i) .ne. 2.0) STOP 4 end do a(:) = 3.0 @@ -79,10 +79,10 @@ program asyncwait !$acc exit data copyout (a(1:N)) copyout (b(1:N)) copyout (c(1:N)) copyout (d(1:N)) do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 9.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort + if (a(i) .ne. 3.0) STOP 5 + if (b(i) .ne. 9.0) STOP 6 + if (c(i) .ne. 4.0) STOP 7 + if (d(i) .ne. 1.0) STOP 8 end do a(:) = 2.0 @@ -122,10 +122,10 @@ program asyncwait !$acc exit data delete (N) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 4.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort - if (e(i) .ne. 11.0) call abort + if (a(i) .ne. 2.0) STOP 9 + if (b(i) .ne. 4.0) STOP 10 + if (c(i) .ne. 4.0) STOP 11 + if (d(i) .ne. 1.0) STOP 12 + if (e(i) .ne. 11.0) STOP 13 end do end program asyncwait diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-4-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-4-2.f90 index df4aca06a70..6c6a24eaf80 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/data-4-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/data-4-2.f90 @@ -31,8 +31,8 @@ program asyncwait !$acc wait do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do a(:) = 2.0 @@ -51,8 +51,8 @@ program asyncwait !$acc wait (1) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 2.0) STOP 3 + if (b(i) .ne. 2.0) STOP 4 end do a(:) = 3.0 @@ -86,10 +86,10 @@ program asyncwait !$acc wait (1) do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 9.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort + if (a(i) .ne. 3.0) STOP 5 + if (b(i) .ne. 9.0) STOP 6 + if (c(i) .ne. 4.0) STOP 7 + if (d(i) .ne. 1.0) STOP 8 end do a(:) = 2.0 @@ -130,10 +130,10 @@ program asyncwait !$acc exit data delete (N, a(1:N), b(1:N), c(1:N), d(1:N), e(1:N)) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 4.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort - if (e(i) .ne. 11.0) call abort + if (a(i) .ne. 2.0) STOP 9 + if (b(i) .ne. 4.0) STOP 10 + if (c(i) .ne. 4.0) STOP 11 + if (d(i) .ne. 1.0) STOP 12 + if (e(i) .ne. 11.0) STOP 13 end do end program asyncwait diff --git a/libgomp/testsuite/libgomp.oacc-fortran/data-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/data-4.f90 index f6886b0e1e3..a444395d7c1 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/data-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/data-4.f90 @@ -28,8 +28,8 @@ program asyncwait !$acc wait do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do a(:) = 2.0 @@ -48,8 +48,8 @@ program asyncwait !$acc wait (1) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 2.0) call abort + if (a(i) .ne. 2.0) STOP 3 + if (b(i) .ne. 2.0) STOP 4 end do a(:) = 3.0 @@ -83,10 +83,10 @@ program asyncwait !$acc wait (1) do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 9.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort + if (a(i) .ne. 3.0) STOP 5 + if (b(i) .ne. 9.0) STOP 6 + if (c(i) .ne. 4.0) STOP 7 + if (d(i) .ne. 1.0) STOP 8 end do a(:) = 2.0 @@ -127,10 +127,10 @@ program asyncwait !$acc exit data delete (N, a(1:N), b(1:N), c(1:N), d(1:N), e(1:N)) do i = 1, N - if (a(i) .ne. 2.0) call abort - if (b(i) .ne. 4.0) call abort - if (c(i) .ne. 4.0) call abort - if (d(i) .ne. 1.0) call abort - if (e(i) .ne. 11.0) call abort + if (a(i) .ne. 2.0) STOP 9 + if (b(i) .ne. 4.0) STOP 10 + if (c(i) .ne. 4.0) STOP 11 + if (d(i) .ne. 1.0) STOP 12 + if (e(i) .ne. 11.0) STOP 13 end do end program asyncwait diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-1.f90 index b502df42a28..084f336faa9 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/declare-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-1.f90 @@ -128,7 +128,7 @@ subroutine test (a, e) integer, parameter :: N = 8 integer :: a(N) - if (acc_is_present (a) .neqv. e) call abort + if (acc_is_present (a) .neqv. e) STOP 1 end subroutine @@ -159,7 +159,7 @@ subroutine subr0 (a, b, c, d) call test (c, .false.) do i = 1, N - if (c(i) .ne. 8) call abort + if (c(i) .ne. 8) STOP 2 end do call subr3 (a, c) @@ -169,8 +169,8 @@ subroutine subr0 (a, b, c, d) call test (c, .false.) do i = 1, N - if (a(i) .ne. 2) call abort - if (c(i) .ne. 8) call abort + if (a(i) .ne. 2) STOP 3 + if (c(i) .ne. 8) STOP 4 end do call subr4 (a, b) @@ -180,7 +180,7 @@ subroutine subr0 (a, b, c, d) call test (c, .false.) do i = 1, N - if (b(i) .ne. 8) call abort + if (b(i) .ne. 8) STOP 5 end do call subr5 (a, b, c, d) @@ -191,8 +191,8 @@ subroutine subr0 (a, b, c, d) call test (d, .false.) do i = 1, N - if (c(i) .ne. 8) call abort - if (d(i) .ne. 13) call abort + if (c(i) .ne. 8) STOP 6 + if (d(i) .ne. 13) STOP 7 end do end subroutine @@ -213,7 +213,7 @@ program main c(:) = 4 d(:) = 5 - if (acc_is_present (z) .neqv. .true.) call abort + if (acc_is_present (z) .neqv. .true.) STOP 8 call subr0 (a, b, c, d) @@ -223,10 +223,10 @@ program main call test (d, .false.) do i = 1, N - if (a(i) .ne. 8) call abort - if (b(i) .ne. 8) call abort - if (c(i) .ne. 8) call abort - if (d(i) .ne. 13) call abort + if (a(i) .ne. 8) STOP 9 + if (b(i) .ne. 8) STOP 10 + if (c(i) .ne. 8) STOP 11 + if (d(i) .ne. 13) STOP 12 end do end program diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90 index 0e759dda98e..de9c52ef0f6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90 @@ -11,6 +11,6 @@ program test use openacc implicit none - if (acc_is_present (a) .neqv. .true.) call abort + if (acc_is_present (a) .neqv. .true.) STOP 1 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-3.f90 index 16164cd0ac6..e1cb9435437 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/declare-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-3.f90 @@ -16,8 +16,8 @@ program test real c !$acc declare link (c) - if (acc_is_present (b) .neqv. .false.) call abort - if (acc_is_present (c) .neqv. .false.) call abort + if (acc_is_present (b) .neqv. .false.) STOP 1 + if (acc_is_present (c) .neqv. .false.) STOP 2 a = 0.0 b = 1.0 @@ -27,9 +27,9 @@ program test a = b !$acc end parallel - if (a .ne. 5.0) call abort + if (a .ne. 5.0) STOP 3 - if (acc_is_present (b) .neqv. .false.) call abort + if (acc_is_present (b) .neqv. .false.) STOP 4 a = 0.0 @@ -38,9 +38,9 @@ program test a = b !$acc end parallel - if (a .ne. 4.0) call abort + if (a .ne. 4.0) STOP 5 - if (acc_is_present (b) .neqv. .false.) call abort + if (acc_is_present (b) .neqv. .false.) STOP 6 a = 0.0 @@ -49,10 +49,10 @@ program test a = b !$acc end parallel - if (a .ne. 4.0) call abort - if (b .ne. 4.0) call abort + if (a .ne. 4.0) STOP 7 + if (b .ne. 4.0) STOP 8 - if (acc_is_present (b) .neqv. .false.) call abort + if (acc_is_present (b) .neqv. .false.) STOP 9 a = 0.0 @@ -62,8 +62,8 @@ program test a = c !$acc end parallel - if (a .ne. 4.0) call abort + if (a .ne. 4.0) STOP 10 - if (acc_is_present (b) .neqv. .false.) call abort + if (acc_is_present (b) .neqv. .false.) STOP 11 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-4.f90 index 6c4e7c515ce..7cdd88352f3 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/declare-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-4.f90 @@ -12,7 +12,7 @@ program test implicit none real a - if (acc_is_present (b) .neqv. .true.) call abort + if (acc_is_present (b) .neqv. .true.) STOP 1 a = 2.0 @@ -22,8 +22,8 @@ program test a = a + b !$acc end parallel - if (acc_is_present (b) .neqv. .true.) call abort + if (acc_is_present (b) .neqv. .true.) STOP 2 - if (a .ne. 3.0) call abort + if (a .ne. 3.0) STOP 3 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/declare-5.f90 index 4f5c8f00120..3ab91147e07 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/declare-5.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-5.f90 @@ -12,7 +12,7 @@ program test implicit none real a - if (acc_is_present (b) .neqv. .true.) call abort + if (acc_is_present (b) .neqv. .true.) STOP 1 a = 2.0 @@ -22,8 +22,8 @@ program test a = a + b !$acc end parallel - if (acc_is_present (b) .neqv. .true.) call abort + if (acc_is_present (b) .neqv. .true.) STOP 2 - if (a .ne. 3.0) call abort + if (a .ne. 3.0) STOP 3 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/default-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/default-1.f90 index d8ceb60b493..6177de2a50a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/default-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/default-1.f90 @@ -15,7 +15,7 @@ program main a = a + b !$acc end parallel - if (a .ne. 3.0) call abort + if (a .ne. 3.0) STOP 1 !$acc kernels copy (a) create (b) default (none) b = a @@ -23,7 +23,7 @@ program main a = a + b !$acc end kernels - if (a .ne. 4.0) call abort + if (a .ne. 4.0) STOP 2 !$acc parallel default (none) copy (a) create (b) b = a @@ -31,7 +31,7 @@ program main a = a + b !$acc end parallel - if (a .ne. 5.0) call abort + if (a .ne. 5.0) STOP 3 !$acc parallel default (none) copy (a) c = a @@ -39,7 +39,7 @@ program main a = a + c !$acc end parallel - if (a .ne. 6.0) call abort + if (a .ne. 6.0) STOP 4 !$acc data copy (a) !$acc parallel default (none) @@ -49,7 +49,7 @@ program main !$acc end parallel !$acc end data - if (a .ne. 7.0) call abort + if (a .ne. 7.0) STOP 5 ! The default (present) clause doesn't affect scalar variables; these will ! still get an implicit copy clause added. @@ -59,6 +59,6 @@ program main a = a + c !$acc end kernels - if (a .ne. 8.0) call abort + if (a .ne. 8.0) STOP 6 end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 index 38660967aa7..054d5dd459a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 @@ -23,7 +23,7 @@ program firstprivate !$acc end parallel do i = 1, n - if (b(i) .ne. i + a) call abort () + if (b(i) .ne. i + a) STOP 1 end do !$acc data copy (a) @@ -37,6 +37,6 @@ program firstprivate !$acc end parallel !$acc end data - if (c .ne. 10) call abort () - if (d .ne. 5) call abort () + if (c .ne. 10) STOP 2 + if (d .ne. 5) STOP 3 end program firstprivate diff --git a/libgomp/testsuite/libgomp.oacc-fortran/gang-static-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/gang-static-1.f90 index 7d56060ad49..848d8e944ca 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/gang-static-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/gang-static-1.f90 @@ -74,6 +74,6 @@ subroutine test (a, b, sarg, n) integer i do i = 1, n - if (a(i) .ne. b(i) + sarg) call abort () + if (a(i) .ne. b(i) + sarg) STOP 1 end do end subroutine test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 index 69a491d9887..45d3ee8afa6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 @@ -19,11 +19,11 @@ program test ! Test how the pointers compare inside a host_data construct #if ACC_MEM_SHARED - if (.not. associated(ip, iph)) call abort - if (.not. associated(parr, parrh)) call abort + if (.not. associated(ip, iph)) STOP 1 + if (.not. associated(parr, parrh)) STOP 2 #else - if (associated(ip, iph)) call abort - if (associated(parr, parrh)) call abort + if (associated(ip, iph)) STOP 3 + if (associated(parr, parrh)) STOP 4 #endif !$acc end host_data diff --git a/libgomp/testsuite/libgomp.oacc-fortran/if-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/if-1.f90 index 44055e177f8..f3bf1ee5af6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/if-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/if-1.f90 @@ -36,7 +36,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 1 end do a(:) = 16.0 @@ -52,7 +52,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 17.0) call abort + if (b(i) .ne. 17.0) STOP 2 end do a(:) = 8.0 @@ -74,7 +74,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 3 end do a(:) = 22.0 @@ -90,7 +90,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 23.0) call abort + if (b(i) .ne. 23.0) STOP 4 end do a(:) = 16.0 @@ -112,7 +112,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 5 end do a(:) = 76.0 @@ -128,7 +128,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 77.0) call abort + if (b(i) .ne. 77.0) STOP 6 end do a(:) = 22.0 @@ -152,7 +152,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 7 end do a(:) = 18.0 @@ -170,7 +170,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 19.0) call abort + if (b(i) .ne. 19.0) STOP 8 end do a(:) = 49.0 @@ -194,7 +194,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 9 end do a(:) = 38.0 @@ -212,7 +212,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 39.0) call abort + if (b(i) .ne. 39.0) STOP 10 end do a(:) = 91.0 @@ -228,7 +228,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 92.0) call abort + if (b(i) .ne. 92.0) STOP 11 end do a(:) = 43.0 @@ -250,7 +250,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 12 end do a(:) = 87.0 @@ -266,7 +266,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. 88.0) call abort + if (b(i) .ne. 88.0) STOP 13 end do a(:) = 3.0 @@ -290,8 +290,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (1 == 1) do i = 1, N - if (a(i) .ne. exp) call abort - if (b(i) .ne. exp2) call abort + if (a(i) .ne. exp) STOP 14 + if (b(i) .ne. exp2) STOP 15 end do a(:) = 6.0 @@ -305,8 +305,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (1 == 1) do i = 1, N - if (a(i) .ne. exp) call abort - if (b(i) .ne. exp2) call abort + if (a(i) .ne. exp) STOP 16 + if (b(i) .ne. exp2) STOP 17 end do a(:) = 26.0 @@ -320,8 +320,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (0 == 1) do i = 1, N - if (a(i) .ne. 0.0) call abort - if (b(i) .ne. 0.0) call abort + if (a(i) .ne. 0.0) STOP 18 + if (b(i) .ne. 0.0) STOP 19 end do #if !ACC_MEM_SHARED @@ -342,7 +342,7 @@ program main !$acc end data do i = 1, N - if (b(i) .ne. 4.0) call abort + if (b(i) .ne. 4.0) STOP 20 end do a(:) = 8.0 @@ -351,8 +351,8 @@ program main !$acc data copyin (a(1:N)) copyout (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 21 + if (acc_is_present (b) .eqv. .TRUE.) STOP 22 #endif !$acc end data @@ -363,12 +363,12 @@ program main !$acc data copyin (a(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (a) .eqv. .FALSE.) call abort + if (acc_is_present (a) .eqv. .FALSE.) STOP 23 #endif !$acc data copyout (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 24 #endif !$acc data copyout (b(1:N)) if (1 == 1) @@ -381,19 +381,19 @@ program main !$acc end data #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 25 #endif !$acc end data !$acc end data do i = 1, N - if (b(1) .ne. 18.0) call abort + if (b(1) .ne. 18.0) STOP 26 end do !$acc enter data copyin (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 27 #endif !$acc exit data delete (b(1:N)) if (0 == 1) @@ -401,19 +401,19 @@ program main !$acc enter data copyin (b(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 28 #endif !$acc exit data delete (b(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 29 #endif !$acc enter data copyin (b(1:N)) if (zero == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 30 #endif !$acc exit data delete (b(1:N)) if (zero == 1) @@ -421,19 +421,19 @@ program main !$acc enter data copyin (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 31 #endif !$acc exit data delete (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 32 #endif !$acc enter data copyin (b(1:N)) if (one == 0) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 33 #endif !$acc exit data delete (b(1:N)) if (one == 0) @@ -441,13 +441,13 @@ program main !$acc enter data copyin (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 34 #endif !$acc exit data delete (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 35 #endif a(:) = 4.0 @@ -469,7 +469,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 36 end do a(:) = 16.0 @@ -485,7 +485,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 17.0) call abort + if (b(i) .ne. 17.0) STOP 37 end do a(:) = 8.0 @@ -507,7 +507,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 38 end do a(:) = 22.0 @@ -523,7 +523,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 23.0) call abort + if (b(i) .ne. 23.0) STOP 39 end do a(:) = 16.0 @@ -545,7 +545,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 40 end do a(:) = 76.0 @@ -561,7 +561,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 77.0) call abort + if (b(i) .ne. 77.0) STOP 41 end do a(:) = 22.0 @@ -585,7 +585,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 42 end do a(:) = 18.0 @@ -603,7 +603,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 19.0) call abort + if (b(i) .ne. 19.0) STOP 43 end do a(:) = 49.0 @@ -627,7 +627,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 44 end do a(:) = 38.0 @@ -645,7 +645,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 39.0) call abort + if (b(i) .ne. 39.0) STOP 45 end do a(:) = 91.0 @@ -661,7 +661,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 92.0) call abort + if (b(i) .ne. 92.0) STOP 46 end do a(:) = 43.0 @@ -683,7 +683,7 @@ program main #endif do i = 1, N - if (b(i) .ne. exp) call abort + if (b(i) .ne. exp) STOP 47 end do a(:) = 87.0 @@ -699,7 +699,7 @@ program main !$acc end kernels do i = 1, N - if (b(i) .ne. 88.0) call abort + if (b(i) .ne. 88.0) STOP 48 end do a(:) = 3.0 @@ -723,8 +723,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (1 == 1) do i = 1, N - if (a(i) .ne. exp) call abort - if (b(i) .ne. exp2) call abort + if (a(i) .ne. exp) STOP 49 + if (b(i) .ne. exp2) STOP 50 end do a(:) = 6.0 @@ -738,8 +738,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (1 == 1) do i = 1, N - if (a(i) .ne. exp) call abort - if (b(i) .ne. exp2) call abort + if (a(i) .ne. exp) STOP 51 + if (b(i) .ne. exp2) STOP 52 end do a(:) = 26.0 @@ -753,8 +753,8 @@ program main !$acc update host (a(1:N), b(1:N)) if (0 == 1) do i = 1, N - if (a(i) .ne. 0.0) call abort - if (b(i) .ne. 0.0) call abort + if (a(i) .ne. 0.0) STOP 53 + if (b(i) .ne. 0.0) STOP 54 end do #if !ACC_MEM_SHARED @@ -775,7 +775,7 @@ program main !$acc end data do i = 1, N - if (b(i) .ne. 4.0) call abort + if (b(i) .ne. 4.0) STOP 55 end do a(:) = 8.0 @@ -784,8 +784,8 @@ program main !$acc data copyin (a(1:N)) copyout (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (a) .eqv. .TRUE.) call abort - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (a) .eqv. .TRUE.) STOP 56 + if (acc_is_present (b) .eqv. .TRUE.) STOP 57 #endif !$acc end data @@ -796,12 +796,12 @@ program main !$acc data copyin (a(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (a) .eqv. .FALSE.) call abort + if (acc_is_present (a) .eqv. .FALSE.) STOP 58 #endif !$acc data copyout (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 59 #endif !$acc data copyout (b(1:N)) if (1 == 1) @@ -814,19 +814,19 @@ program main !$acc end data #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 60 #endif !$acc end data !$acc end data do i = 1, N - if (b(1) .ne. 18.0) call abort + if (b(1) .ne. 18.0) STOP 61 end do !$acc enter data copyin (b(1:N)) if (0 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 62 #endif !$acc exit data delete (b(1:N)) if (0 == 1) @@ -834,19 +834,19 @@ program main !$acc enter data copyin (b(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 63 #endif !$acc exit data delete (b(1:N)) if (1 == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 64 #endif !$acc enter data copyin (b(1:N)) if (zero == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 65 #endif !$acc exit data delete (b(1:N)) if (zero == 1) @@ -854,19 +854,19 @@ program main !$acc enter data copyin (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 66 #endif !$acc exit data delete (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 67 #endif !$acc enter data copyin (b(1:N)) if (one == 0) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 68 #endif !$acc exit data delete (b(1:N)) if (one == 0) @@ -874,13 +874,13 @@ program main !$acc enter data copyin (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .FALSE.) call abort + if (acc_is_present (b) .eqv. .FALSE.) STOP 69 #endif !$acc exit data delete (b(1:N)) if (one == 1) #if !ACC_MEM_SHARED - if (acc_is_present (b) .eqv. .TRUE.) call abort + if (acc_is_present (b) .eqv. .TRUE.) STOP 70 #endif end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90 b/libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90 index a5f3840f63c..d00ad27190e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/implicit-firstprivate-ref.f90 @@ -38,5 +38,5 @@ program t CALL test(x_min) - if (x_min .ne. -1) call abort + if (x_min .ne. -1) STOP 1 end program t diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-2.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-2.f95 index b88ca67f2c7..4b69e813d05 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-2.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-2.f95 @@ -32,9 +32,9 @@ program main !$acc end kernels do i = 0, n - 1 - if (a(i) .ne. i * 2) call abort - if (b(i) .ne. i * 4) call abort - if (c(i) .ne. a(i) + b(i)) call abort + if (a(i) .ne. i * 2) STOP 1 + if (b(i) .ne. i * 4) STOP 2 + if (c(i) .ne. a(i) + b(i)) STOP 3 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95 index 4c73606571f..400874341da 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-2.f95 @@ -31,7 +31,7 @@ program main !$acc end data do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95 index da11aafac2c..11ae17ca5f5 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit-2.f95 @@ -31,7 +31,7 @@ program main !$acc exit data copyout (c(0:n-1)) do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95 index f4b4eb3a014..4fdb862b829 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-enter-exit.f95 @@ -29,7 +29,7 @@ program main !$acc exit data copyout (a(0:n-1), b(0:n-1), c(0:n-1)) do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95 index d2083e2be7b..4bee0e1e69a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data-update.f95 @@ -29,7 +29,7 @@ program main !$acc exit data copyout (a(0:n-1), c(0:n-1)) do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data.f95 index a908f544206..307e433bc5e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-data.f95 @@ -29,7 +29,7 @@ program main !$acc end data do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95 index 6fb5ba3ae69..0090f433efd 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95 +++ b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop.f95 @@ -21,7 +21,7 @@ program main !$acc end kernels do i = 0, n - 1 - if (c(i) .ne. a(i) + b(i)) call abort + if (c(i) .ne. a(i) + b(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90 index 51dc452764b..901169aa119 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-1.f90 @@ -1,10 +1,10 @@ use openacc -if (acc_get_num_devices (acc_device_host) .ne. 1) call abort +if (acc_get_num_devices (acc_device_host) .ne. 1) STOP 1 call acc_set_device_type (acc_device_host) -if (acc_get_device_type () .ne. acc_device_host) call abort +if (acc_get_device_type () .ne. acc_device_host) STOP 2 call acc_set_device_num (0, acc_device_host) -if (acc_get_device_num (acc_device_host) .ne. 0) call abort +if (acc_get_device_num (acc_device_host) .ne. 0) STOP 3 call acc_shutdown (acc_device_host) call acc_init (acc_device_host) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-10.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-10.f90 index a54d6a7d92e..2875f162ba4 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-10.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-10.f90 @@ -25,16 +25,16 @@ program main call acc_copyin (a_3d_c) call acc_copyin (a_3d_r) - if (acc_is_present (a_3d_i) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_c) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_r) .neqv. .TRUE.) call abort + if (acc_is_present (a_3d_i) .neqv. .TRUE.) STOP 1 + if (acc_is_present (a_3d_c) .neqv. .TRUE.) STOP 2 + if (acc_is_present (a_3d_r) .neqv. .TRUE.) STOP 3 do i = 1, 10 do j = 1, 10 do k = 1, 10 - if (acc_is_present (a_3d_i(i, j, k), i_size) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_c(i, j, k), i_size) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_r(i, j, k), i_size) .neqv. .TRUE.) call abort + if (acc_is_present (a_3d_i(i, j, k), i_size) .neqv. .TRUE.) STOP 4 + if (acc_is_present (a_3d_c(i, j, k), i_size) .neqv. .TRUE.) STOP 5 + if (acc_is_present (a_3d_r(i, j, k), i_size) .neqv. .TRUE.) STOP 6 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f index a9d70b2489b..069e07ec035 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-2.f @@ -1,10 +1,10 @@ USE OPENACC - IF (ACC_GET_NUM_DEVICES (ACC_DEVICE_HOST) .NE. 1) CALL ABORT + IF (ACC_GET_NUM_DEVICES (ACC_DEVICE_HOST) .NE. 1) STOP 1 CALL ACC_SET_DEVICE_TYPE (ACC_DEVICE_HOST) - IF (ACC_GET_DEVICE_TYPE () .NE. ACC_DEVICE_HOST) CALL ABORT + IF (ACC_GET_DEVICE_TYPE () .NE. ACC_DEVICE_HOST) STOP 2 CALL ACC_SET_DEVICE_NUM (0, ACC_DEVICE_HOST) - IF (ACC_GET_DEVICE_NUM (ACC_DEVICE_HOST) .NE. 0) CALL ABORT + IF (ACC_GET_DEVICE_NUM (ACC_DEVICE_HOST) .NE. 0) STOP 3 CALL ACC_SHUTDOWN (ACC_DEVICE_HOST) CALL ACC_INIT (ACC_DEVICE_HOST) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f index 56d2cd2b961..47424f14a15 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-3.f @@ -1,10 +1,10 @@ INCLUDE "openacc_lib.h" - IF (ACC_GET_NUM_DEVICES (ACC_DEVICE_HOST) .NE. 1) CALL ABORT + IF (ACC_GET_NUM_DEVICES (ACC_DEVICE_HOST) .NE. 1) STOP 1 CALL ACC_SET_DEVICE_TYPE (ACC_DEVICE_HOST) - IF (ACC_GET_DEVICE_TYPE () .NE. ACC_DEVICE_HOST) CALL ABORT + IF (ACC_GET_DEVICE_TYPE () .NE. ACC_DEVICE_HOST) STOP 2 CALL ACC_SET_DEVICE_NUM (0, ACC_DEVICE_HOST) - IF (ACC_GET_DEVICE_NUM (ACC_DEVICE_HOST) .NE. 0) CALL ABORT + IF (ACC_GET_DEVICE_NUM (ACC_DEVICE_HOST) .NE. 0) STOP 3 CALL ACC_SHUTDOWN (ACC_DEVICE_HOST) CALL ACC_INIT (ACC_DEVICE_HOST) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-32-1.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-32-1.f index 177e4fb6641..99e8f357764 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-32-1.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-32-1.f @@ -21,7 +21,7 @@ SHARED_MEM = ACC_IS_PRESENT (H) CALL ACC_PRESENT_OR_CREATE (H, INT (SIZEOF (H), 4)) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 1 !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N @@ -30,7 +30,7 @@ !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (1, 0, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (1, 0, SHARED_MEM)) STOP 2 H(I) = I + 2 END DO @@ -38,13 +38,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (2, 1, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (2, 1, SHARED_MEM)) STOP 3 H(I) = I + 3 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (3, 2, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (3, 2, SHARED_MEM)) STOP 4 H(I) = I + 4 END DO @@ -52,13 +52,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (4, 3, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (4, 3, SHARED_MEM)) STOP 5 H(I) = I + 5 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (5, 4, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (5, 4, SHARED_MEM)) STOP 6 H(I) = I + 6 END DO @@ -66,13 +66,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (6, 5, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (6, 5, SHARED_MEM)) STOP 7 H(I) = I + 7 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (7, 6, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (7, 6, SHARED_MEM)) STOP 8 H(I) = I + 8 END DO @@ -80,37 +80,37 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (8, 7, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (8, 7, SHARED_MEM)) STOP 9 H(I) = I + 9 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (9, 8, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (9, 8, SHARED_MEM)) STOP 10 H(I) = I + 10 END DO CALL ACC_COPYOUT (H, INT (SIZEOF (H), 4)) IF (.NOT. SHARED_MEM) THEN - IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 11 ENDIF DO I = 1, N - IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) STOP 12 END DO CALL ACC_PCOPYIN (H) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) STOP 13 !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) STOP 14 H(I) = I + 11 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (11, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (11, 9, SHARED_MEM)) STOP 15 H(I) = I + 12 END DO @@ -118,13 +118,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (12, 11, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (12, 11, SHARED_MEM)) STOP 16 H(I) = I + 13 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (13, 12, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (13, 12, SHARED_MEM)) STOP 17 H(I) = I + 14 END DO @@ -132,13 +132,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (14, 13, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (14, 13, SHARED_MEM)) STOP 18 H(I) = I + 15 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (15, 14, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (15, 14, SHARED_MEM)) STOP 19 H(I) = I + 16 END DO @@ -146,26 +146,26 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (16, 15, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (16, 15, SHARED_MEM)) STOP 20 H(I) = I + 17 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (17, 16, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (17, 16, SHARED_MEM)) STOP 21 H(I) = I + 18 END DO CALL ACC_UPDATE_SELF (H, INT (SIZEOF (H), 4)) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 22 DO I = 1, N - IF (H(I) .NE. I + MERGE (18, 17, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (18, 17, SHARED_MEM)) STOP 23 END DO CALL ACC_DELETE (H) IF (.NOT. SHARED_MEM) THEN - IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) CALL ABORT + IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) STOP 24 ENDIF DEALLOCATE (H) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-32-2.f b/libgomp/testsuite/libgomp.oacc-fortran/lib-32-2.f index a08eb8470f7..514c04e7bca 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-32-2.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-32-2.f @@ -21,7 +21,7 @@ SHARED_MEM = ACC_IS_PRESENT (H) CALL ACC_PRESENT_OR_CREATE (H, INT (SIZEOF (H), 4)) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 1 !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N @@ -30,7 +30,7 @@ !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (1, 0, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (1, 0, SHARED_MEM)) STOP 2 H(I) = I + 2 END DO @@ -38,13 +38,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (2, 1, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (2, 1, SHARED_MEM)) STOP 3 H(I) = I + 3 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (3, 2, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (3, 2, SHARED_MEM)) STOP 4 H(I) = I + 4 END DO @@ -52,13 +52,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (4, 3, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (4, 3, SHARED_MEM)) STOP 5 H(I) = I + 5 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (5, 4, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (5, 4, SHARED_MEM)) STOP 6 H(I) = I + 6 END DO @@ -66,13 +66,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (6, 5, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (6, 5, SHARED_MEM)) STOP 7 H(I) = I + 7 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (7, 6, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (7, 6, SHARED_MEM)) STOP 8 H(I) = I + 8 END DO @@ -80,37 +80,37 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (8, 7, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (8, 7, SHARED_MEM)) STOP 9 H(I) = I + 9 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (9, 8, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (9, 8, SHARED_MEM)) STOP 10 H(I) = I + 10 END DO CALL ACC_COPYOUT (H, INT (SIZEOF (H), 4)) IF (.NOT. SHARED_MEM) THEN - IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 11 ENDIF DO I = 1, N - IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) STOP 12 END DO CALL ACC_PCOPYIN (H) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) STOP 13 !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (10, 9, SHARED_MEM)) STOP 14 H(I) = I + 11 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (11, 9, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (11, 9, SHARED_MEM)) STOP 15 H(I) = I + 12 END DO @@ -118,13 +118,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (12, 11, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (12, 11, SHARED_MEM)) STOP 16 H(I) = I + 13 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (13, 12, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (13, 12, SHARED_MEM)) STOP 17 H(I) = I + 14 END DO @@ -132,13 +132,13 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (14, 13, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (14, 13, SHARED_MEM)) STOP 18 H(I) = I + 15 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (15, 14, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (15, 14, SHARED_MEM)) STOP 19 H(I) = I + 16 END DO @@ -146,26 +146,26 @@ !$ACC PARALLEL LOOP DEFAULT (PRESENT) DO I = 1, N - IF (H(I) .NE. I + MERGE (16, 15, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (16, 15, SHARED_MEM)) STOP 20 H(I) = I + 17 END DO !$ACC END PARALLEL LOOP DO I = 1, N - IF (H(I) .NE. I + MERGE (17, 16, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (17, 16, SHARED_MEM)) STOP 21 H(I) = I + 18 END DO CALL ACC_UPDATE_SELF (H, INT (SIZEOF (H), 4)) - IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) CALL ABORT + IF (.NOT. ACC_IS_PRESENT (H, INT (SIZEOF (H), 8))) STOP 22 DO I = 1, N - IF (H(I) .NE. I + MERGE (18, 17, SHARED_MEM)) CALL ABORT + IF (H(I) .NE. I + MERGE (18, 17, SHARED_MEM)) STOP 23 END DO CALL ACC_DELETE (H) IF (.NOT. SHARED_MEM) THEN - IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) CALL ABORT + IF (ACC_IS_PRESENT (H, INT (SIZEOF (H), 4))) STOP 24 ENDIF DEALLOCATE (H) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 index 3a2b661b5b7..d03f4acdaf3 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-4.f90 @@ -6,25 +6,25 @@ program main integer n - if (acc_get_num_devices (acc_device_host) .ne. 1) call abort + if (acc_get_num_devices (acc_device_host) .ne. 1) STOP 1 - if (acc_get_num_devices (acc_device_none) .ne. 0) call abort + if (acc_get_num_devices (acc_device_none) .ne. 0) STOP 2 call acc_init (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 3 call acc_set_device_type (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 4 n = 0 call acc_set_device_num (n, acc_device_host) - if (acc_get_device_num (acc_device_host) .ne. 0) call abort + if (acc_get_device_num (acc_device_host) .ne. 0) STOP 5 - if (.NOT. acc_async_test (n) ) call abort + if (.NOT. acc_async_test (n) ) STOP 6 call acc_wait (n) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-5.f90 index e68eb890e63..505b2c6f246 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-5.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-5.f90 @@ -14,7 +14,7 @@ program main call acc_set_device_num (n, acc_device_nvidia) - if (acc_get_device_num (acc_device_nvidia) .ne. 0) call abort + if (acc_get_device_num (acc_device_nvidia) .ne. 0) STOP 1 if (acc_get_num_devices (acc_device_nvidia) .gt. 1) then @@ -22,7 +22,7 @@ program main call acc_set_device_num (n, acc_device_nvidia) - if (acc_get_device_num (acc_device_nvidia) .ne. 1) call abort + if (acc_get_device_num (acc_device_nvidia) .ne. 1) STOP 2 end if diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-6.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-6.f90 index 401ad661ee8..0364a7be842 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-6.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-6.f90 @@ -6,25 +6,25 @@ program main integer n - if (acc_get_num_devices (acc_device_host) .ne. 1) call abort + if (acc_get_num_devices (acc_device_host) .ne. 1) STOP 1 - if (acc_get_num_devices (acc_device_none) .ne. 0) call abort + if (acc_get_num_devices (acc_device_none) .ne. 0) STOP 2 call acc_init (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 3 call acc_set_device_type (acc_device_host) - if (acc_get_device_type () .ne. acc_device_host) call abort + if (acc_get_device_type () .ne. acc_device_host) STOP 4 n = 0 call acc_set_device_num (n, acc_device_host) - if (acc_get_device_num (acc_device_host) .ne. 0) call abort + if (acc_get_device_num (acc_device_host) .ne. 0) STOP 5 - if (.NOT. acc_async_test (n) ) call abort + if (.NOT. acc_async_test (n) ) STOP 6 call acc_wait (n) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-7.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-7.f90 index 422df53bd3a..2ce93c359ca 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-7.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-7.f90 @@ -14,7 +14,7 @@ program main call acc_set_device_num (n, acc_device_nvidia) - if (acc_get_device_num (acc_device_nvidia) .ne. 0) call abort + if (acc_get_device_num (acc_device_nvidia) .ne. 0) STOP 1 if (acc_get_num_devices (acc_device_nvidia) .gt. 1) then @@ -22,7 +22,7 @@ program main call acc_set_device_num (n, acc_device_nvidia) - if (acc_get_device_num (acc_device_nvidia) .ne. 1) call abort + if (acc_get_device_num (acc_device_nvidia) .ne. 1) STOP 2 end if diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-8.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-8.f90 index ad758b2e9d5..263cedb5c5b 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-8.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-8.f90 @@ -26,16 +26,16 @@ program main call acc_copyin (a_3d_c) call acc_copyin (a_3d_r) - if (acc_is_present (a_3d_i) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_c) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_r) .neqv. .TRUE.) call abort + if (acc_is_present (a_3d_i) .neqv. .TRUE.) STOP 1 + if (acc_is_present (a_3d_c) .neqv. .TRUE.) STOP 2 + if (acc_is_present (a_3d_r) .neqv. .TRUE.) STOP 3 do i = 1, 10 do j = 1, 10 do k = 1, 10 - if (acc_is_present (a_3d_i(i, j, k), i_size) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_c(i, j, k), i_size) .neqv. .TRUE.) call abort - if (acc_is_present (a_3d_r(i, j, k), i_size) .neqv. .TRUE.) call abort + if (acc_is_present (a_3d_i(i, j, k), i_size) .neqv. .TRUE.) STOP 4 + if (acc_is_present (a_3d_c(i, j, k), i_size) .neqv. .TRUE.) STOP 5 + if (acc_is_present (a_3d_r(i, j, k), i_size) .neqv. .TRUE.) STOP 6 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 index 082dd8a1d6e..47859508c8f 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/map-1.f90 @@ -32,7 +32,7 @@ program map !$acc end parallel do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 1 end do call check (a, b, n) @@ -92,6 +92,6 @@ subroutine check (a, b, n) integer :: i do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine check diff --git a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-1.f90 index c4af1992a05..c95891d62a6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-1.f90 @@ -27,7 +27,7 @@ firstdo: do i = 1, 3 end do end do firstdo !$acc end parallel - if (l) call abort + if (l) STOP 1 end subroutine test1 subroutine test2 @@ -47,7 +47,7 @@ firstdo: do i = 1, 3 115 continue !$acc loop gang(static:1) collapse(1) do k=1,3 - if (any(a(k,1:3,1:3).ne.1)) call abort + if (any(a(k,1:3,1:3).ne.1)) STOP 2 enddo ! Use "gang(static:1)" here and below to effectively turn gang-redundant ! execution mode into something like gang-single. @@ -62,7 +62,7 @@ firstdo: do i = 1, 3 120 end do dol !$acc loop gang(static:1) collapse(1) do l=1,3 - if (any(a(l,1:3,1:3).ne.2)) call abort + if (any(a(l,1:3,1:3).ne.2)) STOP 3 enddo !$acc end parallel end subroutine test2 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-2.f90 index 4e2819641ea..4f4148be0aa 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-2.f90 @@ -30,7 +30,7 @@ dokk: do kk=1,3 enddo dokk 115 continue !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.1)) call abort + if (any(a(1:3,1:3,1:3).ne.1)) STOP 1 !$acc parallel !$acc loop collapse(3) dol: do 120 l=1,3 @@ -41,7 +41,7 @@ doll: do ll=1,3 enddo doll 120 end do dol !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.2)) call abort + if (any(a(1:3,1:3,1:3).ne.2)) STOP 2 end subroutine test1 subroutine test2(v1, v2, v3, v4, v5, v6) @@ -73,11 +73,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 3 do i = v1, v2 do j = v3, v4 do k = v5, v6 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 4 end do end do end do @@ -112,11 +112,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 5 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 6 end do end do end do @@ -160,11 +160,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 7 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 8 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-3.f90 index 2f6485ef8cf..8a5ca426f31 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/nested-function-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/nested-function-3.f90 @@ -22,7 +22,7 @@ dokk: do kk=1,3 enddo dokk 115 continue !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.1)) call abort + if (any(a(1:3,1:3,1:3).ne.1)) STOP 1 !$acc parallel !$acc loop collapse(3) dol: do 120 l=1,3 @@ -33,7 +33,7 @@ doll: do ll=1,3 enddo doll 120 end do dol !$acc end parallel - if (any(a(1:3,1:3,1:3).ne.2)) call abort + if (any(a(1:3,1:3,1:3).ne.2)) STOP 2 end subroutine test1 subroutine test2(v1, v2, v3, v4, v5, v6) @@ -65,11 +65,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 3 do i = v1, v2 do j = v3, v4 do k = v5, v6 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 4 end do end do end do @@ -104,11 +104,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 5 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 6 end do end do end do @@ -152,11 +152,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 7 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 8 end do end do end do @@ -191,11 +191,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 9 do i = v1, v2 do j = v3, v4 do k = v5, v6 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 10 end do end do end do @@ -231,11 +231,11 @@ doll: do ll=1,3 end do end do end do - if (l .neqv. r) call abort + if (l .neqv. r) STOP 11 do i = v1, v2, v7 do j = v3, v4, v8 do k = v5, v6, v9 - if (a(i, j, k) .ne. b(i, j, k)) call abort + if (a(i, j, k) .ne. b(i, j, k)) STOP 12 end do end do end do diff --git a/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 b/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 index 53b2cd060f2..88fe5168b59 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 @@ -19,7 +19,7 @@ program main !$acc update host(array) do i = 1, n - if (array(i) .ne. i) call abort + if (array(i) .ne. i) STOP 1 end do call kernels_default_present(array, n) @@ -27,7 +27,7 @@ program main !$acc update host(array) do i = 1, n - if (array(i) .ne. i+1) call abort + if (array(i) .ne. i+1) STOP 2 end do call parallel(array, n) @@ -35,7 +35,7 @@ program main !$acc update host(array) do i = 1, n - if (array(i) .ne. i+i) call abort + if (array(i) .ne. i+i) STOP 3 end do call parallel_default_present(array, n) @@ -43,7 +43,7 @@ program main !$acc end data do i = 1, n - if (array(i) .ne. i+i+1) call abort + if (array(i) .ne. i+i+1) STOP 4 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-1.f b/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-1.f index db3c6b18540..537212eb655 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-1.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-1.f @@ -4,6 +4,6 @@ implicit none include "openacc_lib.h" - if (openacc_version .ne. 201306) call abort; + if (openacc_version .ne. 201306) STOP 1 end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-2.f90 index a14ecdd5032..54f301be79b 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/openacc_version-2.f90 @@ -4,6 +4,6 @@ program main use openacc implicit none - if (openacc_version .ne. 201306) call abort; + if (openacc_version .ne. 201306) STOP 1 end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-1.f b/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-1.f index dcd65928685..aa1bb634ba6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-1.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-1.f @@ -29,8 +29,8 @@ CALL ACC_ASYNC_WAIT (1) - IF (RES .NE. RES1) CALL ABORT - IF (RES .NE. RES2) CALL ABORT + IF (RES .NE. RES1) STOP 1 + IF (RES .NE. RES2) STOP 2 RES1 = 1 RES2 = 1 @@ -51,7 +51,7 @@ CALL ACC_ASYNC_WAIT_ALL - IF (RES .NE. RES1) CALL ABORT - IF (RES .NE. RES2) CALL ABORT + IF (RES .NE. RES1) STOP 3 + IF (RES .NE. RES2) STOP 4 END PROGRAM diff --git a/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-2.f b/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-2.f index bf72002dd20..5694de1aee8 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-2.f +++ b/libgomp/testsuite/libgomp.oacc-fortran/par-reduction-2-2.f @@ -29,8 +29,8 @@ CALL ACC_ASYNC_WAIT (1) - IF (RES .NE. RES1) CALL ABORT - IF (RES .NE. RES2) CALL ABORT + IF (RES .NE. RES1) STOP 1 + IF (RES .NE. RES2) STOP 2 RES1 = 1 RES2 = 1 @@ -51,7 +51,7 @@ CALL ACC_ASYNC_WAIT_ALL - IF (RES .NE. RES1) CALL ABORT - IF (RES .NE. RES2) CALL ABORT + IF (RES .NE. RES1) STOP 3 + IF (RES .NE. RES2) STOP 4 END PROGRAM diff --git a/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 b/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 index d0559a2adf7..487cfc436e2 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 @@ -16,11 +16,11 @@ program reduction !$acc end parallel if (acc_get_device_type () .ne. acc_device_host) then - if (s1 .ne. n) call abort - if (s2 .ne. n) call abort + if (s1 .ne. n) STOP 1 + if (s2 .ne. n) STOP 2 else - if (s1 .ne. 1) call abort - if (s2 .ne. 1) call abort + if (s1 .ne. 1) STOP 3 + if (s2 .ne. 1) STOP 4 end if ! Test reductions inside subroutines @@ -30,9 +30,9 @@ program reduction call redsub (s1, s2, n) if (acc_get_device_type () .ne. acc_device_host) then - if (s1 .ne. n) call abort + if (s1 .ne. n) STOP 5 else - if (s2 .ne. 1) call abort + if (s2 .ne. 1) STOP 6 end if end program reduction diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90 index a5e1fcbace4..3f4b9fe070e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pointer-align-1.f90 @@ -13,9 +13,9 @@ program test a(4) = 54 !$acc end parallel - if (a(1) .ne. 10) call abort - if (a(2) .ne. 52) call abort - if (a(3) .ne. 53) call abort - if (a(4) .ne. 54) call abort + if (a(1) .ne. 10) STOP 1 + if (a(2) .ne. 52) STOP 2 + if (a(3) .ne. 53) STOP 3 + if (a(4) .ne. 54) STOP 4 end program test diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90 index 7c2e5eef904..c8a7922a415 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr70643.f90 @@ -47,5 +47,5 @@ program main !$acc end data - if (sum .ne. 4.0) call abort + if (sum .ne. 4.0) STOP 1 end program diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr81352.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr81352.f90 index f6969c8595d..a7f02521753 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pr81352.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr81352.f90 @@ -13,7 +13,7 @@ program foo enddo enddo - if (any(a(1:3,1:3).ne.2)) call abort + if (any(a(1:3,1:3).ne.2)) STOP 1 !$acc end parallel diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr83920.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr83920.f90 index 34ad001abcd..79251d2fb40 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pr83920.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr83920.f90 @@ -24,5 +24,5 @@ program test_foo beta = 0.0 c(:,:) = 1.0 call foo (beta, c) - if (c(1,1) /= 0.0) call abort () + if (c(1,1) /= 0.0) STOP 1 end program test_foo diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr84028.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr84028.f90 index ed6e326adac..2b361220bb6 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pr84028.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr84028.f90 @@ -7,7 +7,7 @@ program foo !$acc parallel num_gangs(1) num_workers(2) - if (any(a(1:3,1:3,1:3).ne.1)) call abort + if (any(a(1:3,1:3,1:3).ne.1)) STOP 1 do ll=1,3 @@ -18,7 +18,7 @@ program foo enddo - if (a(1,1,1).ne.2) call abort + if (a(1,1,1).ne.2) STOP 2 !$acc end parallel diff --git a/libgomp/testsuite/libgomp.oacc-fortran/private-variables.f90 b/libgomp/testsuite/libgomp.oacc-fortran/private-variables.f90 index 3c1940b5d85..472a6a14fff 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/private-variables.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/private-variables.f90 @@ -21,7 +21,7 @@ subroutine t1() !$acc end parallel do i = 1, 32 - if (arr(i) .ne. i * 3) call abort + if (arr(i) .ne. i * 3) STOP 1 end do end subroutine t1 @@ -49,7 +49,7 @@ subroutine t2() !$acc end parallel do i = 0, 32 * 32 - 1 - if (arr(i) .ne. i + (i / 32) * 2) call abort + if (arr(i) .ne. i + (i / 32) * 2) STOP 2 end do end subroutine t2 @@ -77,7 +77,7 @@ subroutine t3() !$acc end parallel do i = 0, 32 * 32 - 1 - if (arr(i) .ne. i + (i / 32) * 2) call abort + if (arr(i) .ne. i + (i / 32) * 2) STOP 3 end do end subroutine t3 @@ -113,7 +113,7 @@ subroutine t4() !$acc end parallel do i = 0, 32 * 32 - 1 - if (arr(i) .ne. i + (i / 32) * 13) call abort + if (arr(i) .ne. i + (i / 32) * 13) STOP 4 end do end subroutine t4 @@ -151,7 +151,7 @@ subroutine t5() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 5 end if end do end do @@ -189,7 +189,7 @@ subroutine t6() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 6 end if end do end do @@ -219,7 +219,7 @@ subroutine t7() !$acc end parallel do i = 0, 32 * 32 - 1 - if (arr(i) .ne. i + ieor(i / 32, mod(i, 32) * 3)) call abort + if (arr(i) .ne. i + ieor(i / 32, mod(i, 32) * 3)) STOP 7 end do end subroutine t7 @@ -253,7 +253,7 @@ subroutine t8() do j = 0, 32 -1 do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k - if (arr(idx) .ne. idx + ieor(i, j * 3) * k) call abort + if (arr(idx) .ne. idx + ieor(i, j * 3) * k) STOP 8 end do end do end do @@ -300,7 +300,7 @@ subroutine t9() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 9 end if end do end do @@ -345,7 +345,7 @@ subroutine t10() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 10 end if end do end do @@ -393,7 +393,7 @@ subroutine t11() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 11 end if end do end do @@ -442,7 +442,7 @@ subroutine t12() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 12 end if end do end do @@ -486,7 +486,7 @@ subroutine t13() do k = 0, 32 - 1 idx = i * 1024 + j * 32 + k if (arr(idx) .ne. idx + ieor(i, j * 3) * k + ior(i, j * 5) * k) then - call abort + STOP 13 end if end do end do @@ -520,7 +520,7 @@ subroutine t14() !$acc end parallel do i = 1, n - if (arr(i) .ne. (3 + i * 2)) call abort + if (arr(i) .ne. (3 + i * 2)) STOP 14 end do end subroutine t14 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pset-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pset-1.f90 index 1a1d4c724f8..c3a8a9cac1c 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pset-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pset-1.f90 @@ -9,7 +9,7 @@ program test integer, allocatable :: c3(:,:,:) allocate (a1(5)) - if (.not.allocated (a1)) call abort() + if (.not.allocated (a1)) STOP 1 a1 = 10 @@ -21,16 +21,16 @@ program test a1(5) = 5 !$acc end parallel - if (a1(1) .ne. 1) call abort - if (a1(2) .ne. 2) call abort - if (a1(3) .ne. 3) call abort - if (a1(4) .ne. 4) call abort - if (a1(5) .ne. 5) call abort + if (a1(1) .ne. 1) STOP 1 + if (a1(2) .ne. 2) STOP 2 + if (a1(3) .ne. 3) STOP 3 + if (a1(4) .ne. 4) STOP 4 + if (a1(5) .ne. 5) STOP 5 deallocate(a1) allocate (a1(0:4)) - if (.not.allocated (a1)) call abort() + if (.not.allocated (a1)) STOP 2 a1 = 10 @@ -42,16 +42,16 @@ program test a1(4) = 5 !$acc end parallel - if (a1(0) .ne. 1) call abort - if (a1(1) .ne. 2) call abort - if (a1(2) .ne. 3) call abort - if (a1(3) .ne. 4) call abort - if (a1(4) .ne. 5) call abort + if (a1(0) .ne. 1) STOP 6 + if (a1(1) .ne. 2) STOP 7 + if (a1(2) .ne. 3) STOP 8 + if (a1(3) .ne. 4) STOP 9 + if (a1(4) .ne. 5) STOP 10 deallocate(a1) allocate (b2(5,5)) - if (.not.allocated (b2)) call abort() + if (.not.allocated (b2)) STOP 3 b2 = 11 @@ -63,16 +63,16 @@ program test b2(5,5) = 5 !$acc end parallel - if (b2(1,1) .ne. 1) call abort - if (b2(2,2) .ne. 2) call abort - if (b2(3,3) .ne. 3) call abort - if (b2(4,4) .ne. 4) call abort - if (b2(5,5) .ne. 5) call abort + if (b2(1,1) .ne. 1) STOP 11 + if (b2(2,2) .ne. 2) STOP 12 + if (b2(3,3) .ne. 3) STOP 13 + if (b2(4,4) .ne. 4) STOP 14 + if (b2(5,5) .ne. 5) STOP 15 deallocate(b2) allocate (b2(0:4,0:4)) - if (.not.allocated (b2)) call abort() + if (.not.allocated (b2)) STOP 4 b2 = 11 @@ -84,16 +84,16 @@ program test b2(4,4) = 5 !$acc end parallel - if (b2(0,0) .ne. 1) call abort - if (b2(1,1) .ne. 2) call abort - if (b2(2,2) .ne. 3) call abort - if (b2(3,3) .ne. 4) call abort - if (b2(4,4) .ne. 5) call abort + if (b2(0,0) .ne. 1) STOP 16 + if (b2(1,1) .ne. 2) STOP 17 + if (b2(2,2) .ne. 3) STOP 18 + if (b2(3,3) .ne. 4) STOP 19 + if (b2(4,4) .ne. 5) STOP 20 deallocate(b2) allocate (c3(5,5,5)) - if (.not.allocated (c3)) call abort() + if (.not.allocated (c3)) STOP 5 c3 = 12 @@ -105,16 +105,16 @@ program test c3(5,5,5) = 5 !$acc end parallel - if (c3(1,1,1) .ne. 1) call abort - if (c3(2,2,2) .ne. 2) call abort - if (c3(3,3,3) .ne. 3) call abort - if (c3(4,4,4) .ne. 4) call abort - if (c3(5,5,5) .ne. 5) call abort + if (c3(1,1,1) .ne. 1) STOP 21 + if (c3(2,2,2) .ne. 2) STOP 22 + if (c3(3,3,3) .ne. 3) STOP 23 + if (c3(4,4,4) .ne. 4) STOP 24 + if (c3(5,5,5) .ne. 5) STOP 25 deallocate(c3) allocate (c3(0:4,0:4,0:4)) - if (.not.allocated (c3)) call abort() + if (.not.allocated (c3)) STOP 6 c3 = 12 @@ -126,22 +126,22 @@ program test c3(4,4,4) = 5 !$acc end parallel - if (c3(0,0,0) .ne. 1) call abort - if (c3(1,1,1) .ne. 2) call abort - if (c3(2,2,2) .ne. 3) call abort - if (c3(3,3,3) .ne. 4) call abort - if (c3(4,4,4) .ne. 5) call abort + if (c3(0,0,0) .ne. 1) STOP 26 + if (c3(1,1,1) .ne. 2) STOP 27 + if (c3(2,2,2) .ne. 3) STOP 28 + if (c3(3,3,3) .ne. 4) STOP 29 + if (c3(4,4,4) .ne. 5) STOP 30 deallocate(c3) allocate (a1(5)) - if (.not.allocated (a1)) call abort() + if (.not.allocated (a1)) STOP 7 allocate (b1(5)) - if (.not.allocated (b1)) call abort() + if (.not.allocated (b1)) STOP 8 allocate (c1(5)) - if (.not.allocated (c1)) call abort() + if (.not.allocated (c1)) STOP 9 a1 = 10 b1 = 3 @@ -161,24 +161,24 @@ program test b1(5) = c1(5) !$acc end parallel - if (b1(1) .ne. 10) call abort - if (b1(2) .ne. 10) call abort - if (b1(3) .ne. 10) call abort - if (b1(4) .ne. 10) call abort - if (b1(5) .ne. 10) call abort + if (b1(1) .ne. 10) STOP 31 + if (b1(2) .ne. 10) STOP 32 + if (b1(3) .ne. 10) STOP 33 + if (b1(4) .ne. 10) STOP 34 + if (b1(5) .ne. 10) STOP 35 deallocate(a1) deallocate(b1) deallocate(c1) allocate (a1(0:4)) - if (.not.allocated (a1)) call abort() + if (.not.allocated (a1)) STOP 10 allocate (b1(0:4)) - if (.not.allocated (b1)) call abort() + if (.not.allocated (b1)) STOP 11 allocate (c1(0:4)) - if (.not.allocated (c1)) call abort() + if (.not.allocated (c1)) STOP 12 a1 = 10 b1 = 3 @@ -198,18 +198,18 @@ program test b1(4) = c1(4) !$acc end parallel - if (b1(0) .ne. 10) call abort - if (b1(1) .ne. 10) call abort - if (b1(2) .ne. 10) call abort - if (b1(3) .ne. 10) call abort - if (b1(4) .ne. 10) call abort + if (b1(0) .ne. 10) STOP 36 + if (b1(1) .ne. 10) STOP 37 + if (b1(2) .ne. 10) STOP 38 + if (b1(3) .ne. 10) STOP 39 + if (b1(4) .ne. 10) STOP 40 deallocate(a1) deallocate(b1) deallocate(c1) allocate (a1(5)) - if (.not.allocated (a1)) call abort() + if (.not.allocated (a1)) STOP 13 a1 = 10 @@ -218,11 +218,11 @@ program test a1(3) = 3 !$acc end parallel - if (a1(1) .ne. 10) call abort - if (a1(2) .ne. 2) call abort - if (a1(3) .ne. 3) call abort - if (a1(4) .ne. 10) call abort - if (a1(5) .ne. 10) call abort + if (a1(1) .ne. 10) STOP 41 + if (a1(2) .ne. 2) STOP 42 + if (a1(3) .ne. 3) STOP 43 + if (a1(4) .ne. 10) STOP 44 + if (a1(5) .ne. 10) STOP 45 deallocate(a1) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-1.f90 index e51509f3397..764affdbd18 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-1.f90 @@ -58,10 +58,10 @@ program reduction_1 vresult = vresult + array(i) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 1 + if (rw .ne. vresult) STOP 2 + if (rv .ne. vresult) STOP 3 + if (rc .ne. vresult) STOP 4 ! ! '*' reductions @@ -106,10 +106,10 @@ program reduction_1 vresult = vresult * array(i) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 5 + if (rw .ne. vresult) STOP 6 + if (rv .ne. vresult) STOP 7 + if (rc .ne. vresult) STOP 8 ! ! 'max' reductions @@ -154,10 +154,10 @@ program reduction_1 vresult = max (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 9 + if (rw .ne. vresult) STOP 10 + if (rv .ne. vresult) STOP 11 + if (rc .ne. vresult) STOP 12 ! ! 'min' reductions @@ -202,10 +202,10 @@ program reduction_1 vresult = min (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 13 + if (rw .ne. vresult) STOP 14 + if (rv .ne. vresult) STOP 15 + if (rc .ne. vresult) STOP 16 ! ! 'iand' reductions @@ -250,10 +250,10 @@ program reduction_1 vresult = iand (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 17 + if (rw .ne. vresult) STOP 18 + if (rv .ne. vresult) STOP 19 + if (rc .ne. vresult) STOP 20 ! ! 'ior' reductions @@ -298,10 +298,10 @@ program reduction_1 vresult = ior (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 21 + if (rw .ne. vresult) STOP 22 + if (rv .ne. vresult) STOP 23 + if (rc .ne. vresult) STOP 24 ! ! 'ieor' reductions @@ -346,10 +346,10 @@ program reduction_1 vresult = ieor (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 25 + if (rw .ne. vresult) STOP 26 + if (rv .ne. vresult) STOP 27 + if (rc .ne. vresult) STOP 28 ! ! '.and.' reductions @@ -394,10 +394,10 @@ program reduction_1 lvresult = lvresult .and. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 29 + if (lrw .neqv. lvresult) STOP 30 + if (lrv .neqv. lvresult) STOP 31 + if (lrc .neqv. lvresult) STOP 32 ! ! '.or.' reductions @@ -442,10 +442,10 @@ program reduction_1 lvresult = lvresult .or. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 33 + if (lrw .neqv. lvresult) STOP 34 + if (lrv .neqv. lvresult) STOP 35 + if (lrc .neqv. lvresult) STOP 36 ! ! '.eqv.' reductions @@ -490,10 +490,10 @@ program reduction_1 lvresult = lvresult .eqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 37 + if (lrw .neqv. lvresult) STOP 38 + if (lrv .neqv. lvresult) STOP 39 + if (lrc .neqv. lvresult) STOP 40 ! ! '.neqv.' reductions @@ -538,8 +538,8 @@ program reduction_1 lvresult = lvresult .neqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 41 + if (lrw .neqv. lvresult) STOP 42 + if (lrv .neqv. lvresult) STOP 43 + if (lrc .neqv. lvresult) STOP 44 end program reduction_1 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 index b828feb60de..d3401c8fd04 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-2.f90 @@ -59,10 +59,10 @@ program reduction_2 vresult = vresult + array(i) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 1 + if (rw .ne. vresult) STOP 2 + if (rv .ne. vresult) STOP 3 + if (rc .ne. vresult) STOP 4 ! ! '*' reductions @@ -107,10 +107,10 @@ program reduction_2 vresult = vresult * array(i) end do - if (abs (rg - vresult) .ge. e) call abort - if (abs (rw - vresult) .ge. e) call abort - if (abs (rv - vresult) .ge. e) call abort - if (abs (rc - vresult) .ge. e) call abort + if (abs (rg - vresult) .ge. e) STOP 5 + if (abs (rw - vresult) .ge. e) STOP 6 + if (abs (rv - vresult) .ge. e) STOP 7 + if (abs (rc - vresult) .ge. e) STOP 8 ! ! 'max' reductions @@ -155,10 +155,10 @@ program reduction_2 vresult = max (vresult, array(i)) end do - if (abs (rg - vresult) .ge. e) call abort - if (abs (rw - vresult) .ge. e) call abort - if (abs (rg - vresult) .ge. e) call abort - if (abs (rc - vresult) .ge. e) call abort + if (abs (rg - vresult) .ge. e) STOP 9 + if (abs (rw - vresult) .ge. e) STOP 10 + if (abs (rg - vresult) .ge. e) STOP 11 + if (abs (rc - vresult) .ge. e) STOP 12 ! ! 'min' reductions @@ -203,10 +203,10 @@ program reduction_2 vresult = min (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 13 + if (rv .ne. vresult) STOP 14 + if (rw .ne. vresult) STOP 15 + if (rc .ne. vresult) STOP 16 ! ! '.and.' reductions @@ -251,10 +251,10 @@ program reduction_2 lvresult = lvresult .and. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 17 + if (lrw .neqv. lvresult) STOP 18 + if (lrv .neqv. lvresult) STOP 19 + if (lrc .neqv. lvresult) STOP 20 ! ! '.or.' reductions @@ -299,10 +299,10 @@ program reduction_2 lvresult = lvresult .or. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 21 + if (lrw .neqv. lvresult) STOP 22 + if (lrv .neqv. lvresult) STOP 23 + if (lrc .neqv. lvresult) STOP 24 ! ! '.eqv.' reductions @@ -347,10 +347,10 @@ program reduction_2 lvresult = lvresult .eqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 25 + if (lrw .neqv. lvresult) STOP 26 + if (lrv .neqv. lvresult) STOP 27 + if (lrc .neqv. lvresult) STOP 28 ! ! '.neqv.' reductions @@ -395,8 +395,8 @@ program reduction_2 lvresult = lvresult .neqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 29 + if (lrw .neqv. lvresult) STOP 30 + if (lrv .neqv. lvresult) STOP 31 + if (lrc .neqv. lvresult) STOP 32 end program reduction_2 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 index 3d8d753cfed..6f310445e04 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-3.f90 @@ -59,10 +59,10 @@ program reduction_3 vresult = vresult + array(i) end do - if (abs (rg - vresult) .ge. e) call abort - if (abs (rw - vresult) .ge. e) call abort - if (abs (rv - vresult) .ge. e) call abort - if (abs (rc - vresult) .ge. e) call abort + if (abs (rg - vresult) .ge. e) STOP 1 + if (abs (rw - vresult) .ge. e) STOP 2 + if (abs (rv - vresult) .ge. e) STOP 3 + if (abs (rc - vresult) .ge. e) STOP 4 ! ! '*' reductions @@ -107,10 +107,10 @@ program reduction_3 vresult = vresult * array(i) end do - if (abs (rg - vresult) .ge. e) call abort - if (abs (rw - vresult) .ge. e) call abort - if (abs (rv - vresult) .ge. e) call abort - if (abs (rc - vresult) .ge. e) call abort + if (abs (rg - vresult) .ge. e) STOP 5 + if (abs (rw - vresult) .ge. e) STOP 6 + if (abs (rv - vresult) .ge. e) STOP 7 + if (abs (rc - vresult) .ge. e) STOP 8 ! ! 'max' reductions @@ -155,10 +155,10 @@ program reduction_3 vresult = max (vresult, array(i)) end do - if (abs (rg - vresult) .ge. e) call abort - if (abs (rw - vresult) .ge. e) call abort - if (abs (rv - vresult) .ge. e) call abort - if (abs (rc - vresult) .ge. e) call abort + if (abs (rg - vresult) .ge. e) STOP 9 + if (abs (rw - vresult) .ge. e) STOP 10 + if (abs (rv - vresult) .ge. e) STOP 11 + if (abs (rc - vresult) .ge. e) STOP 12 ! ! 'min' reductions @@ -203,10 +203,10 @@ program reduction_3 vresult = min (vresult, array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 13 + if (rw .ne. vresult) STOP 14 + if (rv .ne. vresult) STOP 15 + if (rc .ne. vresult) STOP 16 ! ! '.and.' reductions @@ -251,10 +251,10 @@ program reduction_3 lvresult = lvresult .and. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 17 + if (lrw .neqv. lvresult) STOP 18 + if (lrv .neqv. lvresult) STOP 19 + if (lrc .neqv. lvresult) STOP 20 ! ! '.or.' reductions @@ -299,10 +299,10 @@ program reduction_3 lvresult = lvresult .or. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 21 + if (lrw .neqv. lvresult) STOP 22 + if (lrv .neqv. lvresult) STOP 23 + if (lrc .neqv. lvresult) STOP 24 ! ! '.eqv.' reductions @@ -347,10 +347,10 @@ program reduction_3 lvresult = lvresult .eqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 25 + if (lrw .neqv. lvresult) STOP 26 + if (lrv .neqv. lvresult) STOP 27 + if (lrc .neqv. lvresult) STOP 28 ! ! '.neqv.' reductions @@ -395,8 +395,8 @@ program reduction_3 lvresult = lvresult .neqv. (array(i) .ge. 5) end do - if (lrg .neqv. lvresult) call abort - if (lrw .neqv. lvresult) call abort - if (lrv .neqv. lvresult) call abort - if (lrc .neqv. lvresult) call abort + if (lrg .neqv. lvresult) STOP 29 + if (lrw .neqv. lvresult) STOP 30 + if (lrv .neqv. lvresult) STOP 31 + if (lrc .neqv. lvresult) STOP 32 end program reduction_3 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-4.f90 index c3bdaf610a1..c93c315b861 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-4.f90 @@ -57,10 +57,10 @@ program reduction_4 vresult = vresult + REAL(array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 1 + if (rw .ne. vresult) STOP 2 + if (rv .ne. vresult) STOP 3 + if (rc .ne. vresult) STOP 4 ! ! '*' reductions @@ -105,8 +105,8 @@ program reduction_4 vresult = vresult * REAL(array(i)) end do - if (rg .ne. vresult) call abort - if (rw .ne. vresult) call abort - if (rv .ne. vresult) call abort - if (rc .ne. vresult) call abort + if (rg .ne. vresult) STOP 5 + if (rw .ne. vresult) STOP 6 + if (rv .ne. vresult) STOP 7 + if (rc .ne. vresult) STOP 8 end program reduction_4 diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-5.f90 index 42106480c81..833d0e4b9fd 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-5.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-5.f90 @@ -20,11 +20,11 @@ program reduction vsum = vsum + c end do - if (gs .ne. vsum) call abort () - if (ws .ne. vsum) call abort () - if (vs .ne. vsum) call abort () - if (cs .ne. vsum) call abort () - if (ns .ne. vsum) call abort () + if (gs .ne. vsum) STOP 1 + if (ws .ne. vsum) STOP 2 + if (vs .ne. vsum) STOP 3 + if (cs .ne. vsum) STOP 4 + if (ns .ne. vsum) STOP 5 end program reduction subroutine redsub_gang(sum, n, c) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-6.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-6.f90 index c10e3f97a6f..e76867a313f 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-6.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-6.f90 @@ -57,17 +57,17 @@ program reduction hs2 = hs2 + 2 end do - if (gs1 .ne. hs1) call abort () - if (gs2 .ne. hs2) call abort () + if (gs1 .ne. hs1) STOP 1 + if (gs2 .ne. hs2) STOP 2 - if (ws1 .ne. hs1) call abort () - if (ws2 .ne. hs2) call abort () + if (ws1 .ne. hs1) STOP 3 + if (ws2 .ne. hs2) STOP 4 - if (vs1 .ne. hs1) call abort () - if (vs2 .ne. hs2) call abort () + if (vs1 .ne. hs1) STOP 5 + if (vs2 .ne. hs2) STOP 6 - if (cs1 .ne. hs1) call abort () - if (cs2 .ne. hs2) call abort () + if (cs1 .ne. hs1) STOP 7 + if (cs2 .ne. hs2) STOP 8 ! Nested reductions. @@ -90,5 +90,5 @@ program reduction end do end do - if (red .ne. vred) call abort () + if (red .ne. vred) STOP 9 end program reduction diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-7.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-7.f90 index 1a7d69aa521..a7d6dd8a900 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-7.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-7.f90 @@ -19,7 +19,7 @@ program reduction do j = 1, n vsum = vsum + 1; end do - if (vsum .ne. arr(i)) call abort () + if (vsum .ne. arr(i)) STOP 1 end do end program reduction @@ -45,7 +45,7 @@ subroutine redsub_private(sum, n, arr) ! verify the results do i = 1, 10 - if (arr(i) .ne. 100+i) call abort () + if (arr(i) .ne. 100+i) STOP 2 end do end subroutine redsub_private diff --git a/libgomp/testsuite/libgomp.oacc-fortran/reduction-8.f90 b/libgomp/testsuite/libgomp.oacc-fortran/reduction-8.f90 index 5cf4681191b..0ba83a04752 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/reduction-8.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/reduction-8.f90 @@ -30,12 +30,12 @@ program reduction end do !$acc end parallel loop - if (h1 .ne. s1) call abort () - if (h2 .ne. s2) call abort () + if (h1 .ne. s1) STOP 1 + if (h2 .ne. s2) STOP 2 !$acc wait(1) - if (h1 .ne. a1) call abort () - if (h2 .ne. a2) call abort () + if (h1 .ne. a1) STOP 3 + if (h2 .ne. a2) STOP 4 end program reduction diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-1.f90 index 33905157d49..6a573218b7a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-1.f90 @@ -17,7 +17,7 @@ end do !$acc end parallel do i = 1, n - if (a(i) .ne. fact(i)) call abort + if (a(i) .ne. fact(i)) STOP 1 end do end recursive function fact (x) result (res) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-2.f90 index 3d418b660c5..b6979747902 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-2.f90 @@ -24,6 +24,6 @@ end do !$acc end parallel do i = 1, n - if (a(i) .ne. fact(i)) call abort + if (a(i) .ne. fact(i)) STOP 1 end do end diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-3.f90 index d233a63ee5a..e7b9d8ab364 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-3.f90 @@ -12,7 +12,7 @@ end do !$acc end parallel do i = 1, n - if (a(i) .ne. fact(i)) call abort + if (a(i) .ne. fact(i)) STOP 1 end do end recursive function fact (x) result (res) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-4.f90 index 3e5fb09c45c..a96363b8cde 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-4.f90 @@ -13,7 +13,7 @@ end do !$acc end parallel do i = 1, n - if (a(i) .ne. (i + 1)) call abort + if (a(i) .ne. (i + 1)) STOP 1 end do end subroutine incr (x) diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-5.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-5.f90 index 956da8ed043..a803ad96bb5 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-5.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-5.f90 @@ -10,7 +10,7 @@ program main n = func (n) !$acc end parallel - if (n .ne. 6) call abort + if (n .ne. 6) STOP 1 contains diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-7.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-7.f90 index 200188ec051..f58a95fe670 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-7.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-7.f90 @@ -22,7 +22,7 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne.N) call abort + if (a(i) .ne.N) STOP 1 end do !$acc parallel copy (a) @@ -33,7 +33,7 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. (N + (N * (-1 * i)))) call abort + if (a(i) .ne. (N + (N * (-1 * i)))) STOP 2 end do do i = 1, N @@ -48,7 +48,7 @@ program main !$acc end parallel do i = 1, N - if (b(i) .ne. N + i) call abort + if (b(i) .ne. N + i) STOP 3 end do do i = 1, N @@ -63,7 +63,7 @@ program main !$acc end parallel do i = 1, N - if (a(i) .ne. 0) call abort + if (a(i) .ne. 0) STOP 4 end do contains diff --git a/libgomp/testsuite/libgomp.oacc-fortran/routine-9.f90 b/libgomp/testsuite/libgomp.oacc-fortran/routine-9.f90 index 95d1a1392d8..b1a1338dd8c 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/routine-9.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/routine-9.f90 @@ -14,7 +14,7 @@ program main end do !$acc end parallel do i = 1, n - if (a(i) .ne. fact(i)) call abort + if (a(i) .ne. fact(i)) STOP 1 end do end program main diff --git a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 index b39414fe3e5..8a2ec2cc97e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 @@ -32,7 +32,7 @@ program subarrays !$acc end parallel do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 1 end do call check (a, b, n) @@ -92,6 +92,6 @@ subroutine check (a, b, n) integer :: i do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine check diff --git a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90 b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90 index 81799f60733..914da5b4062 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-2.f90 @@ -32,7 +32,7 @@ program subarrays !$acc end parallel do i = low, high - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 1 end do call check (a, b, n) @@ -95,6 +95,6 @@ subroutine check (a, b, n) integer :: i do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine check diff --git a/libgomp/testsuite/libgomp.oacc-fortran/update-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/update-1.f90 index 4e1d2c01278..2633d6cefe0 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/update-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/update-1.f90 @@ -25,12 +25,12 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 3.0) call abort - if (b(i) .ne. 3.0) call abort + if (a(i) .ne. 3.0) STOP 1 + if (b(i) .ne. 3.0) STOP 2 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 3 + if (acc_is_present (b) .neqv. .TRUE.) STOP 4 do i = 1, N a(i) = 5.0 @@ -48,12 +48,12 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 5.0) call abort + if (a(i) .ne. 5.0) STOP 5 + if (b(i) .ne. 5.0) STOP 6 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 7 + if (acc_is_present (b) .neqv. .TRUE.) STOP 8 !$acc parallel present (a, b) do i = 1, N @@ -64,12 +64,12 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 5.0) call abort + if (a(i) .ne. 5.0) STOP 9 + if (b(i) .ne. 5.0) STOP 10 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 11 + if (acc_is_present (b) .neqv. .TRUE.) STOP 12 do i = 1, N a(i) = 6.0 @@ -91,12 +91,12 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 6.0) call abort - if (b(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 13 + if (b(i) .ne. 6.0) STOP 14 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 15 + if (acc_is_present (b) .neqv. .TRUE.) STOP 16 do i = 1, N a(i) = 7.0 @@ -118,8 +118,8 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 7.0) call abort - if (b(i) .ne. 7.0) call abort + if (a(i) .ne. 7.0) STOP 17 + if (b(i) .ne. 7.0) STOP 18 end do do i = 1, N @@ -137,12 +137,12 @@ program update !$acc update host (a, b) do i = 1, N - if (a(i) .ne. 9.0) call abort - if (b(i) .ne. 9.0) call abort + if (a(i) .ne. 9.0) STOP 19 + if (b(i) .ne. 9.0) STOP 20 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 21 + if (acc_is_present (b) .neqv. .TRUE.) STOP 22 do i = 1, N a(i) = 5.0 @@ -165,17 +165,17 @@ program update !$acc update host (a, b) do i = 1, NDIV2 - if (a(i) .ne. 6.0) call abort - if (b(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 23 + if (b(i) .ne. 6.0) STOP 24 end do do i = NDIV2 + 1, N - if (a(i) .ne. 5.0) call abort - if (b(i) .ne. 5.0) call abort + if (a(i) .ne. 5.0) STOP 25 + if (b(i) .ne. 5.0) STOP 26 end do - if (acc_is_present (a) .neqv. .TRUE.) call abort - if (acc_is_present (b) .neqv. .TRUE.) call abort + if (acc_is_present (a) .neqv. .TRUE.) STOP 27 + if (acc_is_present (b) .neqv. .TRUE.) STOP 28 do i = 1, N a(i) = 0.0 @@ -192,21 +192,21 @@ program update !$acc update host (a(5:N)) do i = 1, NDIV2 - if (a(i) .ne. 0.0) call abort + if (a(i) .ne. 0.0) STOP 29 end do do i = NDIV2 + 1, N - if (a(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 30 end do !$acc update host (a(1:4)) do i = 1, NDIV2 - if (a(i) .ne. 1.0) call abort + if (a(i) .ne. 1.0) STOP 31 end do do i = NDIV2 + 1, N - if (a(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 32 end do a(3) = 9 @@ -225,15 +225,15 @@ program update !$acc update host (a(3:6)) do i = 1, 2 - if (a(i) .ne. 1.0) call abort + if (a(i) .ne. 1.0) STOP 33 end do do i = 3, 6 - if (a(i) .ne. 10.0) call abort + if (a(i) .ne. 10.0) STOP 34 end do do i = 7, N - if (a(i) .ne. 6.0) call abort + if (a(i) .ne. 6.0) STOP 35 end do !$acc exit data delete (a, b)