mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
15 lines
232 B
Fortran
15 lines
232 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-O" }
|
|
program p
|
|
real(4) :: a, b
|
|
integer(4) :: n, m
|
|
equivalence (a, n)
|
|
a = 1024.0
|
|
m = 8
|
|
a = 1024.0
|
|
b = set_exponent(a, m)
|
|
n = 8
|
|
a = f(a, n)
|
|
b = set_exponent(a, m)
|
|
end
|