On Sat, Oct 02, 2021 at 09:52:29AM +0200, Tobias Burnus wrote:
> --- /dev/null
> +++ b/libgomp/testsuite/libgomp.fortran/order-reproducible-1.f90
> @@ -0,0 +1,72 @@
> +! { dg-additional-sources my-usleep.c }
> +! { dg-prune-output "command-line option '-fintrinsic-modules-path=.*' is
> valid for Fortran but not for C" }
> +program main
> + implicit none
> + interface
> + subroutine usleep(t) bind(C, name="my_usleep")
> + use iso_c_binding
> + integer(c_int), value :: t
> + end subroutine
> + end interface
> +
> + integer :: a(128)
> + integer :: i
> +
> + !$omp teams num_teams(5)
> + !$omp loop bind(teams)
> + do i = 1, 128
> + a(i) = i
> + if (i == 0) then
i will never be 0, change it to some other number.
Otherwise LGTM, thanks.
Jakub
