Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr69055.f90
blob: 48b34424608991b7ba0fca21a939eb2f98e231f9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fsanitize=float-cast-overflow"
}
subroutine pr69055
implicit
none
integer
::
n
real
(
8
)
::
b
b
=
huge
(
1.0D0
)
n
=
b
end
subroutine pr69055