[gcc r12-7674] OpenMP, Fortran: Bugfix for omp_set_num_teams.

[Marcel Vollweiler <marcel@gcc.gnu.org>]

https://gcc.gnu.org/g:be093b8dcc9cf5c9f99479ec68f1abe95aa38a83

commit r12-7674-gbe093b8dcc9cf5c9f99479ec68f1abe95aa38a83
Author: Marcel Vollweiler <marcel@codesourcery.com>
Date:   Wed Mar 16 07:38:54 2022 -0700

    OpenMP, Fortran: Bugfix for omp_set_num_teams.
    
    This patch fixes a small bug in the omp_set_num_teams implementation.
    
    libgomp/ChangeLog:
    
            * fortran.c (omp_set_num_teams_8_): Call omp_set_num_teams instead of
            omp_set_max_active_levels.
            * testsuite/libgomp.fortran/icv-8.f90: New test.

Diff:
---
 libgomp/fortran.c                           |  2 +-
 libgomp/testsuite/libgomp.fortran/icv-8.f90 | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/libgomp/fortran.c b/libgomp/fortran.c
index 8c1cfd10971..d984ce5c6f8 100644
--- a/libgomp/fortran.c
+++ b/libgomp/fortran.c
@@ -491,7 +491,7 @@ omp_set_num_teams_ (const int32_t *num_teams)
 void
 omp_set_num_teams_8_ (const int64_t *num_teams)
 {
-  omp_set_max_active_levels (TO_INT (*num_teams));
+  omp_set_num_teams (TO_INT (*num_teams));
 }
 
 int32_t
diff --git a/libgomp/testsuite/libgomp.fortran/icv-8.f90 b/libgomp/testsuite/libgomp.fortran/icv-8.f90
new file mode 100644
index 00000000000..9478c158596
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/icv-8.f90
@@ -0,0 +1,10 @@
+! This tests 'set_num_teams_8' function.
+
+program set_num_teams_8
+  use omp_lib
+  use, intrinsic :: iso_fortran_env
+  integer(int64) :: x
+  x = 42
+  call omp_set_num_teams (x)
+  if (omp_get_max_teams () .ne. 42) stop 1
+end program