Commit 01501fc8 by Jakub Jelinek Committed by Jakub Jelinek

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
parent 60c9cf8d
2008-06-11 Jakub Jelinek <jakub@redhat.com> 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 PR libgomp/36469
* configure.ac: Add AC_CHECK_FUNCS (strtoull). * configure.ac: Add AC_CHECK_FUNCS (strtoull).
* configure: Regenerated. * configure: Regenerated.
......
...@@ -268,7 +268,7 @@ ...@@ -268,7 +268,7 @@
function omp_get_ancestor_thread_num_8 (level) function omp_get_ancestor_thread_num_8 (level)
use omp_lib_kinds use omp_lib_kinds
integer (8), intent (in) :: level 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 function omp_get_ancestor_thread_num_8
end interface end interface
...@@ -281,7 +281,7 @@ ...@@ -281,7 +281,7 @@
function omp_get_team_size_8 (level) function omp_get_team_size_8 (level)
use omp_lib_kinds use omp_lib_kinds
integer (8), intent (in) :: level 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 function omp_get_team_size_8
end interface end interface
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment