OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

intrinsic.texi (OpenMP modules): Add named constants of OMP_LIB.

Browse Source 
gcc/fortran/
2010-09-23  Tobias Burnus  <burnus@net-b.de>

        * intrinsic.texi (OpenMP modules): Add named constants of
        OMP_LIB.

libgomp/
2010-09-23  Tobias Burnus  <burnus@net-b.de>

        * libgomp.texi (omp_get_nested, omp_set_nested,
        * omp_set_dynamic):
        Change Fortran datatype to LOGICAL.
        (omp_set_lock, omp_test_lock, omp_unset_lock, omp_set_nested_lock,
        omp_unset_nested_lock): Use intent(inout) instead of intent(out).

From-SVN: r164551
This commit is contained in:
Tobias Burnus 2010-09-23 11:01:32 +02:00 committed by Tobias Burnus
parent 8c91ab34b5
commit 87350d4af5
4 changed files with 36 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-23 Tobias Burnus <burnus@net-b.de>
* intrinsic.texi (OpenMP modules): Add named constants of
OMP_LIB.
2010-09-23 Daniel Kraft <d@domob.eu>
PR fortran/38936

17
gcc/fortran/intrinsic.texi
View File

@ -12773,7 +12773,7 @@ a form of two Fortran 90 modules, named @code{OMP_LIB} and
@code{OMP_LIB_KINDS}, and in a form of a Fortran @code{include} file named
@file{omp_lib.h}. The procedures provided by @code{OMP_LIB} can be found
in the @ref{Top,,Introduction,libgomp,GNU OpenMP runtime library} manual,
the named constants defined in the @code{OMP_LIB_KINDS} module are listed
the named constants defined in the modules are listed
below.
For details refer to the actual
@ -12790,3 +12790,18 @@ named constants:
@item @code{omp_nest_lock_kind}
@item @code{omp_sched_kind}
@end table
@code{OMP_LIB} provides the scalar default-integer
named constant @code{openmp_version} with a value of the form
@var{yyyymm}, where @code{yyyy} is the year and @var{mm} the month
of the OpenMP version; for OpenMP v3.0 the value is @code{200805}.
And the following scalar integer named constants of the
kind @code{omp_sched_kind}:
@table @asis
@item @code{omp_sched_static}
@item @code{omp_sched_dynamic}
@item @code{omp_sched_guided}
@item @code{omp_sched_auto}
@end table

7
libgomp/ChangeLog
View File

@ -1,3 +1,10 @@
2010-09-23 Tobias Burnus <burnus@net-b.de>
* libgomp.texi (omp_get_nested, omp_set_nested, omp_set_dynamic):
Change Fortran datatype to LOGICAL.
(omp_set_lock, omp_test_lock, omp_unset_lock, omp_set_nested_lock,
omp_unset_nested_lock): Use intent(inout) instead of intent(out).
2010-08-21 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* configure: Regenerate.

16
libgomp/libgomp.texi
View File

@ -362,7 +362,7 @@ disabled by default.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{integer function omp_get_nested()}
@item @emph{Interface}: @tab @code{logical function omp_get_nested()}
@end multitable
@item @emph{See also}:
@ -583,7 +583,7 @@ adjustment of team sizes and @code{false} disables it.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_set_dynamic(set)}
@item @tab @code{integer, intent(in) :: set}
@item @tab @code{logical, intent(in) :: set}
@end multitable
@item @emph{See also}:
@ -639,7 +639,7 @@ dynamic adjustment of team sizes and @code{false} disables it.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_set_nested(set)}
@item @tab @code{integer, intent(in) :: set}
@item @tab @code{logical, intent(in) :: set}
@end multitable
@item @emph{See also}:
@ -756,7 +756,7 @@ a deadlock occurs.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_set_lock(lock)}
@item @tab @code{integer(omp_lock_kind), intent(out) :: lock}
@item @tab @code{integer(omp_lock_kind), intent(inout) :: lock}
@end multitable
@item @emph{See also}:
@ -787,7 +787,7 @@ does not block if the lock is not available. This function returns
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_test_lock(lock)}
@item @tab @code{logical(omp_logical_kind) :: omp_test_lock}
@item @tab @code{integer(omp_lock_kind), intent(out) :: lock}
@item @tab @code{integer(omp_lock_kind), intent(inout) :: lock}
@end multitable
@item @emph{See also}:
@ -817,7 +817,7 @@ again, set the lock for itself.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_unset_lock(lock)}
@item @tab @code{integer(omp_lock_kind), intent(out) :: lock}
@item @tab @code{integer(omp_lock_kind), intent(inout) :: lock}
@end multitable
@item @emph{See also}:
@ -899,7 +899,7 @@ nesting count for the lock in incremented.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_set_nest_lock(lock)}
@item @tab @code{integer(omp_nest_lock_kind), intent(out) :: lock}
@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: lock}
@end multitable
@item @emph{See also}:
@ -961,7 +961,7 @@ one of them is chosen to, again, set the lock for itself.
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
@item @emph{Interface}: @tab @code{subroutine omp_unset_nest_lock(lock)}
@item @tab @code{integer(omp_nest_lock_kind), intent(out) :: lock}
@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: lock}
@end multitable
@item @emph{See also}: