Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
20010321-1.f
blob: df003190cd2920f58811e7a77885a0650503d4ee [
file
] [
log
] [
blame
]
c
{
dg
-
do
compile
}
# 1 "20010321-1.f"
SUBROUTINE TWOEXP
# 1 "include/implicit.h" 1 3
IMPLICIT DOUBLE PRECISION
(
A
-
H
)
# 3 "20010321-1.f" 2 3
LOGICAL ANTI
ANTI
=
.
FALSE
.
END
