gcc/testsuite/gfortran.dg/pr112406.f90

   1 ! { dg-do compile { target { aarch64-*-* || riscv*-*-* } } }
   2 ! { dg-options "-Ofast -w -fprofile-generate" }
   3 ! { dg-additional-options "-march=rv64gcv -mabi=lp64d" { target riscv*-*-* } }
   4 ! { dg-additional-options "-march=armv8-a+sve" { target aarch64-*-* } }
   5
   6 module brute_force
   7   integer, parameter :: r=9
   8    integer sudoku1(1, r)
   9   contains
  10 subroutine brute
  11 integer l(r), u(r)
  12    where(sudoku1(1, :) /= 1)
  13         l = 1
  14       u = 1
  15    end where
  16 do i1 = 1, u(1)
  17    do
  18       end do
  19    end do
  20 end
  21 end