Re: [Patch] Add libgomp.fortran/order-reproducible-*.f90 [Re: [committed] openmp: Differentiate between order(concurrent) and order(reproducible:concurrent)]

[Jakub Jelinek <jakub@redhat.com>]

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