Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
integer_exponentiation_7.f90
blob: fde221938ff73c21c43fdd8f17cf5fc268a4b5fa [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Winteger-division"
}
program main
print
*,
10
**(-
3
)
!
{
dg
-
warning
"Negative exponent of integer has zero result"
}
end
program main
