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