aboutsummaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.fortran/lib4.f90
diff options
context:
space:
mode:
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/lib4.f90')
-rw-r--r--libgomp/testsuite/libgomp.fortran/lib4.f908
1 files changed, 4 insertions, 4 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/lib4.f90 b/libgomp/testsuite/libgomp.fortran/lib4.f90
index cbb9845..ce6aa00 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