1 ! { dg-do compile { target aarch64*-*-* } }
2 ! { dg-options "-O2 -fdump-tree-optimized" }
4 subroutine foo (a
, b
, c
, d
, e
, f
, g
, h
)
5 real (kind
=8) :: a
, b
, c
, d
, e
, f
, g
, h
6 a
= min (a
, b
, c
, d
, e
, f
, g
, h
)
10 subroutine foof (a
, b
, c
, d
, e
, f
, g
, h
)
11 real (kind
=4) :: a
, b
, c
, d
, e
, f
, g
, h
12 a
= min (a
, b
, c
, d
, e
, f
, g
, h
)
15 ! { dg-final { scan-tree-dump-times "\.FMIN " 14 "optimized" } }