re PR libgomp/36471 (omp_get_ancestor_thread_num_8 has no implicit type.)

	PR libgomp/36471
	* omp_lib.f90.in (omp_get_ancestor_thread_num_8,
	omp_get_team_size_8): Fix pastos.

From-SVN: r136654

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index ca5d3c0dce54fdabf1ac3065120a6a522a91ed81..5a1cac157bebe51ba7804c0d29dfbb1e4ae7d5e1 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,5 +1,9 @@
 2008-06-11  Jakub Jelinek  <jakub@redhat.com>
 
+       PR libgomp/36471
+       * omp_lib.f90.in (omp_get_ancestor_thread_num_8,
+       omp_get_team_size_8): Fix pastos.
+
        PR libgomp/36469
        * configure.ac: Add AC_CHECK_FUNCS (strtoull).
        * configure: Regenerated.

diff --git a/libgomp/omp_lib.f90.in b/libgomp/omp_lib.f90.in
index a31a94567eae2f2594c11441e486991577174799..c61b93f8145ebf72d8617d17035abee9b77c078f 100644 (file)
--- a/libgomp/omp_lib.f90.in
+++ b/libgomp/omp_lib.f90.in
@@ -268,7 +268,7 @@
           function omp_get_ancestor_thread_num_8 (level)
             use omp_lib_kinds
             integer (8), intent (in) :: level
-            integer (omp_integer_kind) :: omp_get_ancestor_thread_num
+            integer (omp_integer_kind) :: omp_get_ancestor_thread_num_8
           end function omp_get_ancestor_thread_num_8
         end interface
 
@@ -281,7 +281,7 @@
           function omp_get_team_size_8 (level)
             use omp_lib_kinds
             integer (8), intent (in) :: level
-            integer (omp_integer_kind) :: omp_get_team_size
+            integer (omp_integer_kind) :: omp_get_team_size_8
           end function omp_get_team_size_8
         end interface