gcc/testsuite/gfortran.dg/pr94708.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { dg-do compile { target aarch64*-*-* } }
! { dg-options "-O2 -funsafe-math-optimizations -fdump-rtl-combine" }

subroutine f(vara,varb,varc,res)
      REAL, INTENT(IN) :: vara,varb,varc
      REAL, INTENT(out) :: res

      res = vara
      if (res .lt. varb)  res = varb
      if (res .gt. varc)  res = varc
end subroutine

! { dg-final { scan-rtl-dump-not "smin" "combine" } }