gcc/testsuite/gfortran.dg/g77/20010321-1.f

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