Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
error_recovery_4.f90
blob: 31e0e3b9a313bf601668807d0595d23925201f2a [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR33609 ICE on arithmetic overflow
!
Before
patch
,
this
segfaulted
.
print
*,
real
(
huge
(
1.0
_8
),
4
)
!
{
dg
-
error
"Arithmetic overflow"
}
end