OSDN Git Service

2004-07-17 Jeroen Frijters <jeroen@frijters.net>
[pf3gnuchains/gcc-fork.git] / 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