blob: 27e96df7e26d2a0053bc3803dfe0ee1e917db7d0 [file] [log] [blame]
! { dg-do compile { target { aarch64-*-* || riscv*-*-* } } }
! { dg-options "-Ofast -w -fprofile-generate" }
! { dg-additional-options "-march=rv64gcv -mabi=lp64d" { target riscv*-*-* } }
! { dg-additional-options "-march=armv8-a+sve" { target aarch64-*-* } }
module brute_force
integer, parameter :: r=9
integer sudoku1(1, r)
contains
subroutine brute
integer l(r), u(r)
where(sudoku1(1, :) /= 1)
l = 1
u = 1
end where
do i1 = 1, u(1)
do
end do
end do
end
end