This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Fix omp_lib.f90 with -fimplicit-none (PR libgomp/36471)
- From: Jakub Jelinek <jakub at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 11 Jun 2008 03:11:58 -0400
- Subject: [PATCH] Fix omp_lib.f90 with -fimplicit-none (PR libgomp/36471)
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
Hi!
These pastos cause -fimplicit-none failures with omp_lib.f90.
Committed to trunk.
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.
--- libgomp/omp_lib.f90.in.jj 2008-06-06 12:38:08.000000000 +0200
+++ libgomp/omp_lib.f90.in 2008-06-11 08:58:35.000000000 +0200
@@ -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
Jakub