From 01501fc82cfc15d61e577b88295734f684e939c9 Mon Sep 17 00:00:00 2001
From: Jakub Jelinek <jakub@redhat.com>
Date: Wed, 11 Jun 2008 09:06:14 +0200
Subject: [PATCH] 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
---
libgomp/ChangeLog | 4 ++++
libgomp/omp_lib.f90.in | 4 ++--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index ca5d3c0dce54..5a1cac157beb 100644
--- 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 a31a94567eae..c61b93f8145e 100644
--- 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
--
GitLab