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
= max (a
, b
, c
, d
, e
, f
, g
, h
)
9 subroutine foof (a
, b
, c
, d
, e
, f
, g
, h
)
10 real (kind
=4) :: a
, b
, c
, d
, e
, f
, g
, h
11 a
= max (a
, b
, c
, d
, e
, f
, g
, h
)
15 ! { dg-final { scan-tree-dump-times "MAX_EXPR " 14 "optimized" } }