PROGRAM PAT05 C C PROGRAM TO TEST PATCH 5 TO FORTRAN C OPEN(UNIT=1,NAME='TT:',TYPE='NEW',CARRIAGECONTROL='LIST') WRITE(1,100) 100 FORMAT('0THIS LINE OUTPUT WITH CC="LIST"') CLOSE(UNIT=1) OPEN(UNIT=1,NAME='TT:',TYPE='NEW',CARRIAGECONTROL='FORTRAN') WRITE(1,200) 200 FORMAT('0THIS LINE OUTPUT WITH CC="FORTRAN"') CLOSE(UNIT=1) OPEN(UNIT=1,NAME='TT:',TYPE='NEW') WRITE(1,300) 300 FORMAT('0THIS LINE OUTPUT WITH NO CC SPECIFIED') CLOSE(UNIT=1) END