Hi Jakub,

> ! { dg-do run }
> ! { dg-additional-options "-fdefault-integer-8" }
>
> program set_num_teams_8
>    use omp_lib
>    omp_set_num_teams (42)
>    if (omp_get_num_teams () .ne. 42) stop 1
> end program

I modified your suggested test case a bit:

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

I tested it with/without the fix and the test passed/failed as expected.

Hope, that's ok?

Marcel
-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955