diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2008-06-11 09:06:14 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2008-06-11 09:06:14 +0200 |
| commit | 01501fc82cfc15d61e577b88295734f684e939c9 (patch) | |
| tree | 8628c2c4c0cc6d1b3d67c3aeb7a9deaff3b4104d /libgomp/omp_lib.f90.in | |
| parent | 60c9cf8da6e48e31c522b923704eb0166e06ff69 (diff) | |
| download | gcc-01501fc82cfc15d61e577b88295734f684e939c9.tar.gz | |
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
Diffstat (limited to 'libgomp/omp_lib.f90.in')
| -rw-r--r-- | libgomp/omp_lib.f90.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/omp_lib.f90.in b/libgomp/omp_lib.f90.in index a31a94567ea..c61b93f8145 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 |