C PAT010.FOR C NAB/SLA/1736 01-MAR-79/ C RT-11 SOFTWARE DISPATCH JANUARY 1979 C FORTRAN IV/RT-11 V2 SEQ 12 M C THIS PROGRAM VERIFIES FORTRAN SYSTEM PATCH 10. VIRTUAL X(10) DO 10 I=1,10 10 X(I)=3.0 TYPE 20,X 20 FORMAT (' ',' --->',F) STOP END