Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr31025.f90
blob: 53fecf864abeba01b1189d20f2f3f2b5c11b5d74 [
file
] [
log
] [
blame
]
!
{
dg
-
options
"-O2"
}
real
*
8
function
f
(
x
)
t1
=
g
(
0
)
if
(
x
.
eq
.
0
)
then
f
=
0
else
if
(
x
.
eq
.
1
)
then
f
=
t1
*
log
(
t1
)
end
if
end
