! PR middle-end/98974
! { dg-do compile }
! { dg-options "-Ofast" }
! { dg-additional-options "-mcpu=neoverse-v1" { target aarch64*-*-* } }

module module_foobar
  integer,parameter :: fp_kind = selected_real_kind(15)
contains
 subroutine foobar( foo, ix ,jx ,kx,iy,ky)
   real, dimension( ix, kx, jx )  :: foo
   real(fp_kind), dimension( iy, ky, 3 ) :: bar, baz
       do k=1,ky
          do i=1,iy
                if ( baz(i,k,1) > 0. ) then
                  bar(i,k,1) = 0
                endif
                foo(i,nk,j) = baz0 *  bar(i,k,1)
          enddo
       enddo
 end
end