OSDN Git Service

gcc/fortran/
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 23 Sep 2010 09:01:32 +0000 (09:01 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 23 Sep 2010 09:01:32 +0000 (09:01 +0000)
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).

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164551 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.texi
libgomp/ChangeLog
libgomp/libgomp.texi

index 2860897..d99720e 100644 (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
index 6259247..bb74a51 100644 (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
index 7079bae..7de7df6 100644 (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.
index 20ffd67..b88e984 100644 (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}: