C PAT22.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 24 M C COMPILER C COMPLEX VARIABLE TO CONSTANT COMPARISON -- PATCH 22. COMPLEX A A=(0.0,1.0) IF (A .EQ. (0.0,0.0)) TYPE *, 'A IS ZERO' IF (A .NE. (0.0,0.0)) TYPE *, 'A IS NON-ZERO' END