Sign in
gnu
/
gcc
/
57ea00136418991e847e46a6946a81a1df70c9a4
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20010321-1.f
blob: 3f3b5602737081ad4986f159d74ff931d83b14d1 [
file
] [
log
] [
blame
]
# 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