Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
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