20010321-1.f

来自「gcc3.2.1源代码」· F 代码 · 共 9 行

# 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