diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lib4.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lib4.f90 | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lib4.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lib4.f90 deleted file mode 100644 index cbb984574..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lib4.f90 +++ /dev/null @@ -1,16 +0,0 @@ -! { dg-do run } - -program lib4 - use omp_lib - integer (omp_sched_kind) :: kind - 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 - 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 - call omp_set_max_active_levels (6) - if (omp_get_max_active_levels ().ne.6) call abort -end program lib4 |