1! { dg-do compile } 2! { dg-options "-O" } 3program p 4 real(4) :: a, b 5 integer(4) :: n, m 6 equivalence (a, n) 7 a = 1024.0 8 m = 8 9 a = 1024.0 10 b = set_exponent(a, m) 11 n = 8 12 a = f(a, n) 13 b = set_exponent(a, m) 14end 15