re PR fortran/48894 (generic omp_get_ancestor_thread_num(l(i)) produces incorrect...
authorJakub Jelinek <jakub@redhat.com>
Fri, 6 May 2011 10:11:07 +0000 (12:11 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Fri, 6 May 2011 10:11:07 +0000 (12:11 +0200)
commite7385332a07dc8254dfffcdc4958179a4f9ef121
treefd10006d63337a38cba7d72185525ab15e220257
parent9ef58464306f1e753efa88aea41f4ea7eb7f2c61
re PR fortran/48894 (generic omp_get_ancestor_thread_num(l(i)) produces incorrect output)

PR fortran/48894
* fortran.c: Include limits.h.
(TO_INT): Define.
(omp_set_dynamic_8_, omp_set_num_threads_8_): Use !!*set instead of
*set.
(omp_set_num_threads_8_, omp_set_schedule_8_,
omp_set_max_active_levels_8_, omp_get_ancestor_thread_num_8_,
omp_get_team_size_8_): Use TO_INT macro.
* testsuite/libgomp.fortran/pr48894.f90: New test.

From-SVN: r173476
libgomp/ChangeLog
libgomp/fortran.c
libgomp/testsuite/libgomp.fortran/pr48894.f90 [new file with mode: 0644]