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

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2860897869309918b6696c77febd23f4630dfbe6..d99720ea6eb6487db7c1112e1a7e5fa0968c9b6a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 62592471b1a8156d530a0506231095af0514f994..bb74a51472795050a8433e48010e8f3e3702e1d4 100644 (file)
--- 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 7079bae6db87f845d83a65d0de7d03728d072e36..7de7df65fa739e41e0bdb6bed8c532b096db8b9d 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -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.

diff --git a/libgomp/libgomp.texi b/libgomp/libgomp.texi
index 20ffd67254220a148cc21d1c91f12361a61b5231..b88e9844cce99c93bad48505268ad89549f9e618 100644 (file)
--- 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}: