gcc/testsuite/g77.f-torture/compile/20010321-1.f - gcc - Git at Google

 # 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
	# 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