+2013-05-27 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/57423
+ * libgomp.texi (omp_set_dynamic, omp_set_nested, omp_set_nested,
+ omp_set_num_threads, omp_init_lock, omp_set_lock, omp_test_lock,
+ omp_unset_lock, omp_destroy_lock, omp_init_nest_lock,
+ omp_set_nest_lock, omp_test_nest_lock, omp_unset_nest_lock,
+ omp_destroy_nest_lock): Correct arguments to match the one in
+ the OpenMP spec.
+ * omp_lib.f90.in (omp_init_lock, omp_init_nest_lock, omp_destroy_lock
+ omp_destroy_nest_lock, omp_set_lock, omp_set_nest_lock, omp_unset_lock,
+ omp_unset_nest_lock, omp_set_dynamic, omp_set_nested,
+ omp_set_num_threads, omp_test_lock, omp_test_nest_lock): Ditto.
+
2013-05-16 Jakub Jelinek <jakub@redhat.com>
* testsuite/libgomp.c/loop-13.c: New test.
@item @emph{C/C++}:
@multitable @columnfractions .20 .80
-@item @emph{Prototype}: @tab @code{void omp_set_dynamic(int set);}
+@item @emph{Prototype}: @tab @code{void omp_set_dynamic(int dynamic_threads);}
@end multitable
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_set_dynamic(set)}
-@item @tab @code{logical, intent(in) :: set}
+@item @emph{Interface}: @tab @code{subroutine omp_set_dynamic(dynamic_threads)}
+@item @tab @code{logical, intent(in) :: dynamic_threads}
@end multitable
@item @emph{See also}:
@item @emph{C/C++}:
@multitable @columnfractions .20 .80
-@item @emph{Prototype}: @tab @code{void omp_set_nested(int set);}
+@item @emph{Prototype}: @tab @code{void omp_set_nested(int nested);}
@end multitable
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_set_nested(set)}
-@item @tab @code{logical, intent(in) :: set}
+@item @emph{Interface}: @tab @code{subroutine omp_set_nested(nested)}
+@item @tab @code{logical, intent(in) :: nested}
@end multitable
@item @emph{See also}:
@item @emph{C/C++}:
@multitable @columnfractions .20 .80
-@item @emph{Prototype}: @tab @code{void omp_set_num_threads(int n);}
+@item @emph{Prototype}: @tab @code{void omp_set_num_threads(int num_threads);}
@end multitable
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_set_num_threads(n)}
-@item @tab @code{integer, intent(in) :: n}
+@item @emph{Interface}: @tab @code{subroutine omp_set_num_threads(num_threads)}
+@item @tab @code{integer, intent(in) :: num_threads}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_init_lock(lock)}
-@item @tab @code{integer(omp_lock_kind), intent(out) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_init_lock(svar)}
+@item @tab @code{integer(omp_lock_kind), intent(out) :: svar}
@end multitable
@item @emph{See also}:
@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(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_set_lock(svar)}
+@item @tab @code{integer(omp_lock_kind), intent(inout) :: svar}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{logical function omp_test_lock(lock)}
-@item @tab @code{integer(omp_lock_kind), intent(inout) :: lock}
+@item @emph{Interface}: @tab @code{logical function omp_test_lock(svar)}
+@item @tab @code{integer(omp_lock_kind), intent(inout) :: svar}
@end multitable
@item @emph{See also}:
@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(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_unset_lock(svar)}
+@item @tab @code{integer(omp_lock_kind), intent(inout) :: svar}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_destroy_lock(lock)}
-@item @tab @code{integer(omp_lock_kind), intent(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_destroy_lock(svar)}
+@item @tab @code{integer(omp_lock_kind), intent(inout) :: svar}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_init_nest_lock(lock)}
-@item @tab @code{integer(omp_nest_lock_kind), intent(out) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_init_nest_lock(nvar)}
+@item @tab @code{integer(omp_nest_lock_kind), intent(out) :: nvar}
@end multitable
@item @emph{See also}:
@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(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_set_nest_lock(nvar)}
+@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: nvar}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{logical function omp_test_nest_lock(lock)}
-@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: lock}
+@item @emph{Interface}: @tab @code{logical function omp_test_nest_lock(nvar)}
+@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: nvar}
@end multitable
@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(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_unset_nest_lock(nvar)}
+@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: nvar}
@end multitable
@item @emph{See also}:
@item @emph{Fortran}:
@multitable @columnfractions .20 .80
-@item @emph{Interface}: @tab @code{subroutine omp_destroy_nest_lock(lock)}
-@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: lock}
+@item @emph{Interface}: @tab @code{subroutine omp_destroy_nest_lock(nvar)}
+@item @tab @code{integer(omp_nest_lock_kind), intent(inout) :: nvar}
@end multitable
@item @emph{See also}:
integer (omp_sched_kind), parameter :: omp_sched_auto = 4
interface
- subroutine omp_init_lock (lock)
+ subroutine omp_init_lock (svar)
use omp_lib_kinds
- integer (omp_lock_kind), intent (out) :: lock
+ integer (omp_lock_kind), intent (out) :: svar
end subroutine omp_init_lock
end interface
interface
- subroutine omp_init_nest_lock (lock)
+ subroutine omp_init_nest_lock (nvar)
use omp_lib_kinds
- integer (omp_nest_lock_kind), intent (out) :: lock
+ integer (omp_nest_lock_kind), intent (out) :: nvar
end subroutine omp_init_nest_lock
end interface
interface
- subroutine omp_destroy_lock (lock)
+ subroutine omp_destroy_lock (svar)
use omp_lib_kinds
- integer (omp_lock_kind), intent (inout) :: lock
+ integer (omp_lock_kind), intent (inout) :: svar
end subroutine omp_destroy_lock
end interface
interface
- subroutine omp_destroy_nest_lock (lock)
+ subroutine omp_destroy_nest_lock (nvar)
use omp_lib_kinds
- integer (omp_nest_lock_kind), intent (inout) :: lock
+ integer (omp_nest_lock_kind), intent (inout) :: nvar
end subroutine omp_destroy_nest_lock
end interface
interface
- subroutine omp_set_lock (lock)
+ subroutine omp_set_lock (svar)
use omp_lib_kinds
- integer (omp_lock_kind), intent (inout) :: lock
+ integer (omp_lock_kind), intent (inout) :: svar
end subroutine omp_set_lock
end interface
interface
- subroutine omp_set_nest_lock (lock)
+ subroutine omp_set_nest_lock (nvar)
use omp_lib_kinds
- integer (omp_nest_lock_kind), intent (inout) :: lock
+ integer (omp_nest_lock_kind), intent (inout) :: nvar
end subroutine omp_set_nest_lock
end interface
interface
- subroutine omp_unset_lock (lock)
+ subroutine omp_unset_lock (svar)
use omp_lib_kinds
- integer (omp_lock_kind), intent (inout) :: lock
+ integer (omp_lock_kind), intent (inout) :: svar
end subroutine omp_unset_lock
end interface
interface
- subroutine omp_unset_nest_lock (lock)
+ subroutine omp_unset_nest_lock (nvar)
use omp_lib_kinds
- integer (omp_nest_lock_kind), intent (inout) :: lock
+ integer (omp_nest_lock_kind), intent (inout) :: nvar
end subroutine omp_unset_nest_lock
end interface
interface omp_set_dynamic
- subroutine omp_set_dynamic (set)
- logical (4), intent (in) :: set
+ subroutine omp_set_dynamic (dynamic_threads)
+ logical (4), intent (in) :: dynamic_threads
end subroutine omp_set_dynamic
- subroutine omp_set_dynamic_8 (set)
- logical (8), intent (in) :: set
+ subroutine omp_set_dynamic_8 (dynamic_threads)
+ logical (8), intent (in) :: dynamic_threads
end subroutine omp_set_dynamic_8
end interface
interface omp_set_nested
- subroutine omp_set_nested (set)
- logical (4), intent (in) :: set
+ subroutine omp_set_nested (nested)
+ logical (4), intent (in) :: nested
end subroutine omp_set_nested
- subroutine omp_set_nested_8 (set)
- logical (8), intent (in) :: set
+ subroutine omp_set_nested_8 (nested)
+ logical (8), intent (in) :: nested
end subroutine omp_set_nested_8
end interface
interface omp_set_num_threads
- subroutine omp_set_num_threads (set)
- integer (4), intent (in) :: set
+ subroutine omp_set_num_threads (num_threads)
+ integer (4), intent (in) :: num_threads
end subroutine omp_set_num_threads
- subroutine omp_set_num_threads_8 (set)
- integer (8), intent (in) :: set
+ subroutine omp_set_num_threads_8 (num_threads)
+ integer (8), intent (in) :: num_threads
end subroutine omp_set_num_threads_8
end interface
end interface
interface
- function omp_test_lock (lock)
+ function omp_test_lock (svar)
use omp_lib_kinds
logical (4) :: omp_test_lock
- integer (omp_lock_kind), intent (inout) :: lock
+ integer (omp_lock_kind), intent (inout) :: svar
end function omp_test_lock
end interface
end interface
interface
- function omp_test_nest_lock (lock)
+ function omp_test_nest_lock (nvar)
use omp_lib_kinds
integer (4) :: omp_test_nest_lock
- integer (omp_nest_lock_kind), intent (inout) :: lock
+ integer (omp_nest_lock_kind), intent (inout) :: nvar
end function omp_test_nest_lock
end interface