gcc/testsuite/gfortran.dg/pr98974.F90

   1 ! PR middle-end/98974
   2 ! { dg-do compile }
   3 ! { dg-options "-Ofast" }
   4 ! { dg-additional-options "-mcpu=neoverse-v1" { target aarch64*-*-* } }
   5
   6 module module_foobar
   7   integer,parameter :: fp_kind = selected_real_kind(15)
   8 contains
   9  subroutine foobar( foo, ix ,jx ,kx,iy,ky)
  10    real, dimension( ix, kx, jx )  :: foo
  11    real(fp_kind), dimension( iy, ky, 3 ) :: bar, baz
  12        do k=1,ky
  13           do i=1,iy
  14                 if ( baz(i,k,1) > 0. ) then
  15                   bar(i,k,1) = 0
  16                 endif
  17                 foo(i,nk,j) = baz0 *  bar(i,k,1)
  18           enddo
  19        enddo
  20  end
  21 end