Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
exponent_2.f90
blob: 1b917066cd0b326855901bce09a065eda0380cfe [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-fdefault-integer-8"
}
!
PR fortran
/
32942
!
Testcase
contributed
by
Dominique
d
'Humieres <dominiq@lps.ens.fr>.
integer i
real x
x = 3.0
if (2 /= exponent(x)) call abort
i = exponent (x)
if (i /= 2) call abort
end