gcc/testsuite/g77.f-torture/compile/20010321-1.f

   1 # 1 "20010321-1.f"
   2       SUBROUTINE TWOEXP
   3 # 1 "include/implicit.h" 1 3
   4       IMPLICIT DOUBLE PRECISION (A-H)
   5 # 3 "20010321-1.f" 2 3
   6       LOGICAL ANTI
   7       ANTI = .FALSE.
   8       END