Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
compile
/
pr45738.f90
blob: b0541e357722385752155811fe94151ec6a5dc65 [
file
] [
log
] [
blame
]
PROGRAM
TestInfinite
integer
(
8
)
::
bit_pattern_NegInf_i8
=
-
4503599627370496
_8
integer
(
8
)
::
i
real
(
8
)
::
r
r
=
transfer
(
bit_pattern_NegInf_i8_p
,
r
)
i
=
transfer
(
r
,
i
)
END
PROGRAM
TestInfinite