From: burnus Date: Thu, 23 Sep 2010 09:01:32 +0000 (+0000) Subject: gcc/fortran/ X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=0c320ed3adce118bba55e81b27c9dbcc31efa243;hp=7725f40ef8d641a57eb800da5f5a78f17fd150a4 gcc/fortran/ 2010-09-23 Tobias Burnus * intrinsic.texi (OpenMP modules): Add named constants of OMP_LIB. libgomp/ 2010-09-23 Tobias Burnus * 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). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164551 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 28608978693..d99720ea6eb 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-09-23 Tobias Burnus + + * intrinsic.texi (OpenMP modules): Add named constants of + OMP_LIB. + 2010-09-23 Daniel Kraft PR fortran/38936 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 62592471b1a..bb74a514727 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -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 diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 7079bae6db8..7de7df65fa7 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2010-09-23 Tobias Burnus + + * 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 * configure: Regenerate. diff --git a/libgomp/libgomp.texi b/libgomp/libgomp.texi index 20ffd672542..b88e9844cce 100644 --- a/libgomp/libgomp.texi +++ b/libgomp/libgomp.texi @@ -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}: