diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/lib4.f90')
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/lib4.f90 | 8 |
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 |