C COMMENT SECTION C C FM109 C C THIS ROUTINE TESTS THE BASIC OPTIONS REGARDING THE SIMPLE C FORMATTED WRITE STATEMENT OF FORM C WRITE (U,F) OR C WRITE (U,F) L C WHERE U IS A LOGICAL UNIT NUMBER C F IS A FORMAT STATEMENT LABEL, AND C L IS A LIST OF INTEGER VARIABLES. C THE FORMAT STATEMENT F CONTAINS NH HOLLERITH FIELD DESCRIPTORS, C NX BLANK FIELD DESCRIPTORS AND IW NUMERIC FIELD DESCRIPTORS. C C THIS ROUTINE TESTS WHETHER THE FIRST CHARACTER OF A FORMAT C RECORD FOR PRINTER OUTPUT DETERMINES VERTICAL SPACING AS FOLLOWS C 1 - ADVANCE TO FIRST LINE OF NEXT PAGE C BLANK - ONE LINE C 0 - ADVANCE TWO LINES BEFORE PRINTING C + - DO NOT ADVANCE BEFORE PRINTING - ADVANCE 0 C C REFERENCES C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, C X3.9-1978 C C SECTION 8, SPECIFICATION STATEMENTS C SECTION 9, DATA STATEMENT C SECTION 11.10, DO STATEMENT C SECTION 12, INPUT/OUTPUT STATEMENTS C SECTION 12.8.2, INPUT/OUTPUT LIST C SECTION 12.9.5.2, FORMATTED DATA TRANSFER C SECTION 13, FORMAT STATEMENT C SECTION 13.2.1, EDIT DESCRIPTORS C C ALL OF THE RESULTS OF THIS ROUTINE MUST BE VISUALLY CHECKED C ON THE OUTPUT REPORT. THE USUAL TEST CODE FOR PASS, FAIL, OR C DELETE DOES NOT APPLY TO THIS ROUTINE. IF ANY TEST IS TO BE C DELETED, CHANGE THE OFFENDING WRITE OR FORMAT STATEMENT TO A C COMMENT. THE PERSON RESPONSIBLE FOR CHECKING THE OUTPUT MUST ALSO C CHECK THE COMPILER LISTING TO SEE IF ANY STATEMENTS HAVE BEEN C CHANGED TO COMMENTS. C C C ********************************************************** C C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT C OF EXECUTING THESE TESTS. C C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. C C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - C C DEPARTMENT OF THE NAVY C FEDERAL COBOL COMPILER TESTING SERVICE C WASHINGTON, D.C. 20376 C C ********************************************************** C C C C INITIALIZATION SECTION C C INITIALIZE CONSTANTS C ************** C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. I01 = 5 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. I02 = 6 C SYSTEM ENVIRONMENT SECTION C CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 C (UNIT NUMBER FOR CARD READER). CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. C CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 C (UNIT NUMBER FOR PRINTER). CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. C IVPASS=0 IVFAIL=0 IVDELE=0 ICZERO=0 C C WRITE PAGE HEADERS WRITE (I02,90000) WRITE (I02,90001) WRITE (I02,90002) WRITE (I02, 90002) WRITE (I02,90003) WRITE (I02,90002) WRITE (I02,90004) WRITE (I02,90002) WRITE (I02,90011) WRITE (I02,90002) WRITE (I02,90002) WRITE (I02,90006) WRITE (I02,90002) C IVTNUM = 156 C **** TEST 156 **** C TEST 156 - VERTICAL SPACING TEST C 1 IN FIRST CHARACTER OF FORMATTED PRINT RECORD MEANS C RECORD IS FIRST LINE AT TOP OF NEXT PAGE. C IF (ICZERO) 31560, 1560, 31560 1560 CONTINUE WRITE (I02,80001) IVTNUM WRITE (I02,80331) 80331 FORMAT (5X,22HLAST LINE ON THIS PAGE) WRITE (I02,80330) 80330 FORMAT (1H1,31H THIS IS FIRST LINE ON PAGE) GO TO 1571 31560 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1571 CONTINUE IVTNUM = 157 C C **** TEST 157 **** C TEST 157 - VERTICAL SPACING TEST C PRINT BLANK LINES C C IF (ICZERO) 31570, 1570, 31570 1570 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80340) 80340 FORMAT (1H , 10X) WRITE (I02,80341) 80341 FORMAT (41H THERE IS ONE BLANK LINE BEFORE THIS LINE) WRITE (I02,80342) WRITE (I02,80342) 80342 FORMAT (11H ) WRITE (I02,80343) 80343 FORMAT (43H THERE ARE TWO BLANK LINES BEFORE THIS LINE) WRITE (I02,80344) WRITE (I02,80344) WRITE (I02,80344) 80344 FORMAT (11X) WRITE (I02,80345) 80345 FORMAT (45H THERE ARE THREE BLANK LINES BEFORE THIS LINE) GO TO 1581 31570 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1581 CONTINUE IVTNUM = 158 C C **** TEST 158 **** C TEST 158 - PRINT 54 CHARACTERS C C IF (ICZERO) 31580, 1580, 31580 1580 CONTINUE WRITE (I02,90002) WRITE (I02,80001)IVTNUM WRITE (I02,80351) 80351 FORMAT (33H NEXT LINE CONTAINS 54 CHARACTERS) WRITE (I02,80350) 80350 FORMAT(55H 123456789012345678901234567890123456789012345678901234) GO TO 1591 31580 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1591 CONTINUE IVTNUM = 159 C C **** TEST 159 **** C TEST 159 - NUMERIC FIELD DESCRIPTOR I1 C IF (ICZERO) 31590, 1590, 31590 1590 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80361) 80361 FORMAT (1H ,10X,38HTHIS TEST PRINTS 3 UNDER I1 DESCRIPTOR) IVON01 = 3 WRITE (I02,80360) IVON01 80360 FORMAT (1H ,10X,I1) GO TO 1601 31590 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1601 CONTINUE IVTNUM = 160 C C **** TEST 160 **** C TEST 160 - NUMERIC FIELD DESCRIPTOR I2 C IF (ICZERO) 31600, 1600, 31600 1600 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80371) 80371 FORMAT (11X,39HTHIS TEST PRINTS 15 UNDER I2 DESCRIPTOR) IVON01 = 15 WRITE (I02,80370) IVON01 80370 FORMAT (1H ,10X,I2) GO TO 1611 31600 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1611 CONTINUE IVTNUM = 161 C C **** TEST 161 **** C TEST 161 - NUMERIC FIELD DESCRIPTOR I3 C IF (ICZERO) 31610, 1610, 31610 1610 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80381) 80381 FORMAT (11X,40HTHIS TEST PRINTS 291 UNDER I3 DESCRIPTOR) IVON01 = 291 WRITE (I02,80380) IVON01 80380 FORMAT (11X,I3) GO TO 1621 31610 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1621 CONTINUE IVTNUM = 162 C C **** TEST 162 **** C TEST 162 - NUMERIC FIELD DESCRIPTOR I4 C IF (ICZERO) 31620, 1620, 31620 1620 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80391) 80391 FORMAT (11X,41HTHIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR) IVON01 = 4321 WRITE (I02,80390) IVON01 80390 FORMAT (11X,I4) GO TO 1631 31620 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1631 CONTINUE IVTNUM = 163 C C **** TEST 163 **** C TEST 163 - NUMERIC FIELD DESCRIPTOR I5 C IF (ICZERO) 31630, 1630, 31630 1630 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80401) 80401 FORMAT (1H ,10X,42HTHIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR) IVON01 = 12345 WRITE (I02,80400) IVON01 80400 FORMAT (1H ,10X,I5) GO TO 1641 31630 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1641 CONTINUE IVTNUM = 164 C C **** TEST 164 **** C TEST 164 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION C IF (ICZERO) 31640, 1640, 31640 1640 CONTINUE IVON01 = 1 IVON02 = 22 IVON03 = 333 IVON04 = 4444 IVON05 = 25555 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80411) 80411 FORMAT (3X,50HTHIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER) WRITE (I02,80412) 80412 FORMAT (10X,32H(10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)) WRITE (I02,80410) IVON01, IVON02, IVON03, IVON04, IVON05 80410 FORMAT (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5) GO TO 1651 31640 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1651 CONTINUE IVTNUM = 165 C C **** TEST 165 **** C TEST 165 - HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS C COMBINE HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS IN C ONE FORMAT STATEMENT C IF (ICZERO) 31650, 1650, 31650 1650 CONTINUE IVON01=113 IVON02=8 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80421) 80421 FORMAT (10X,28HNEXT TWO LINES ARE IDENTICAL) WRITE (I02,80422) 80422 FORMAT (35H IVON01 = 113 IVON02 = 8) WRITE (I02,80420) IVON01, IVON02 80420 FORMAT (6X,8HIVON01 =,I5,3X,8HIVON02 =,I5) GO TO 1661 31650 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1661 CONTINUE IVTNUM = 166 C C **** TEST 166 **** C TEST 166 - NUMERIC FIELD DESCRIPTOR I2 C PRINT NEGATIVE INTEGER C IF (ICZERO) 31660, 1660, 31660 1660 CONTINUE IVON01 = -1 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80431) 80431 FORMAT (11X,39HTHIS TEST PRINTS -1 UNDER I2 DESCRIPTOR) WRITE (I02,80430) IVON01 80430 FORMAT (11X,I2) GO TO 1671 31660 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1671 CONTINUE IVTNUM = 167 C C **** TEST 167 **** C TEST 167 - NUMERIC FIELD DESCRIPTOR I3 C PRINT NEGATIVE INTEGER C IF (ICZERO) 31670, 1670, 31670 1670 CONTINUE IVON01 = -22 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80441) 80441 FORMAT (11X,40HTHIS TEST PRINTS -22 UNDER I3 DESCRIPTOR) WRITE (I02,80440) IVON01 80440 FORMAT (11X,I3) GO TO 1681 31670 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1681 CONTINUE IVTNUM = 168 C C **** TEST 168 **** C TEST 168 - NUMERIC FIELD DESCRIPTOR I4 C PRINT NEGATIVE INTEGER C IF (ICZERO) 31680, 1680, 31680 1680 CONTINUE IVON01 = -333 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80451) 80451 FORMAT (11X,41HTHIS TEST PRINTS -333 UNDER I4 DESCRIPTOR) WRITE (I02,80450) IVON01 80450 FORMAT (11X,I4) GO TO 1691 31680 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1691 CONTINUE IVTNUM = 169 C C **** TEST 169 **** C TEST 169 - NUMERIC FIELD DESCRIPTOR I5 C PRINT NEGATIVE INTEGER C IF (ICZERO) 31690, 1690, 31690 1690 CONTINUE IVON01 = -4444 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80461) 80461 FORMAT (11X,42HTHIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR) WRITE (I02,80460) IVON01 80460 FORMAT (11X,I5) GO TO 1701 31690 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1701 CONTINUE IVTNUM = 170 C C **** TEST 170 **** C TEST 170 - NUMERIC FIELD DESCRIPTOR I6 C PRINT NEGATIVE INTEGER C IF (ICZERO) 31700, 1700, 31700 1700 CONTINUE IVON01 = -15555 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80471) 80471 FORMAT (11X,43HTHIS TEST PRINTS -15555 UNDER DESCRIPTOR I6) WRITE (I02,80470) IVON01 80470 FORMAT (11X,I6) GO TO 1711 31700 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1711 CONTINUE IVTNUM = 171 C C **** TEST 171 **** C TEST 171 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION C PRINT NEGATIVE INTEGERS C IF (ICZERO) 31710, 1710, 31710 1710 CONTINUE IVON01 = -9 IVON02 = -88 IVON03 = -777 IVON04 = -6666 IVON05 = -25555 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80481) 80481 FORMAT (8X,49HTHIS TEST PRINTS -9, -88, -777, -6666, AND -25555) WRITE (I02,80482) 80482 FORMAT (11X,43HUNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) WRITE (I02,80480) IVON01,IVON02,IVON03,IVON04,IVON05 80480 FORMAT (10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) GO TO 1721 31710 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1721 CONTINUE IVTNUM = 172 C C **** TEST 172 **** C TEST 172 - NUMERIC FIELD DESCRIPTOR I5 C MIX POSITIVE AND NEGATIVE INTEGER OUTPUT IN ONE FORMAT C STATEMENT ALL UNDER I5 DESCRIPTOR C IF (ICZERO) 31720, 1720, 31720 1720 CONTINUE IVON01 =5 IVON02 = -54 IVON03 = 543 IVON04 = -5432 IVON05=32000 WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,80491) 80491 FORMAT (18X,46HTHIS TEST PRINTS 5, -54, 543, -5432, AND 32000) WRITE (I02,80492) 80492 FORMAT (11X,33HUNDER I5 NUMERIC FIELD DESCRIPTOR) WRITE (I02,80490) IVON01,IVON02,IVON03,IVON04,IVON05 80490 FORMAT (11X,I5,3X,I5,3X,I5,3X,I5,3X,I5) GO TO 1731 31720 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1731 CONTINUE IVTNUM = 173 C C **** TEST 173 **** C TEST 173 - VERTICAL SPACING TEST USING THE 1H0 AS A DOUBLE C SPACE BEFORE PRINT ( ADVANCE TWO LINES BEFORE WRITING ). THE 0 C AS A CARRIAGE CONTROL CHARACTER IS USED WITH THE BLANK CHARACTER C TO GET AN ODD NUMBER OF LINES TO ADVANCE BEFORE WRITING. C IF (ICZERO) 31730, 1730, 31730 1730 CONTINUE WRITE (I02,90002) WRITE (I02,80001) IVTNUM WRITE (I02,81730) 81730 FORMAT (1H , 10X) WRITE (I02,81731) 81731 FORMAT (41H THERE IS ONE BLANK LINE BEFORE THIS LINE) WRITE ( I02, 81732 ) 81732 FORMAT ( 1H0,10X) WRITE ( I02, 81733 ) 81733 FORMAT (43H THERE ARE TWO BLANK LINES BEFORE THIS LINE) WRITE ( I02, 81730 ) WRITE ( I02, 81732 ) WRITE ( I02, 81735 ) 81735 FORMAT (45H THERE ARE THREE BLANK LINES BEFORE THIS LINE) WRITE ( I02, 81732 ) WRITE ( I02, 81732 ) WRITE ( I02, 81736 ) 81736 FORMAT (45H THERE ARE FOUR BLANK LINES BEFORE THIS LINE) GO TO 1741 31730 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1741 CONTINUE IVTNUM = 174 C C **** TEST 174 **** C TEST 174 - VERTICAL SPACING TEST USING THE + CHARACTER TO C SUPPRESS ADVANCING BEFORE THE PRINT AND THIS SHOULD CAUSE TWO AND C THEN THREE SUCCESSIVE LINES TO OVERPRINT C IF (ICZERO) 31740, 1740, 31740 1740 CONTINUE WRITE ( I02, 90002 ) WRITE ( I02, 80001 ) IVTNUM WRITE ( I02, 81740 ) 81740 FORMAT ( 1H ) WRITE ( I02, 81741 ) 81741 FORMAT ( 1H ,10X, 19H1ST LINE - AABBCCDD) WRITE ( I02, 81742 ) 81742 FORMAT ( 1H+, 25X, 30HWWXXYYZZ OVERPRINTS - 2ND LINE) WRITE ( I02, 81743 ) 81743 FORMAT ( /////1H ) C SKIP DOWN A FEW LINES TO GET SET - OK AWAY WE GO.. WRITE ( I02, 81740 ) WRITE ( I02, 81744 ) 81744 FORMAT ( 1H , 10X, 29H11 44 1ST LINE) WRITE ( I02, 81745 ) 81745 FORMAT ( 1H+, 10X, 20H 22 55 2ND) WRITE ( I02, 81746 ) 81746 FORMAT ( 1H+, 10X, 24H 33 66 3RD) GO TO 1751 31740 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1751 CONTINUE IVTNUM = 175 C C **** TEST 175 **** C TEST 175 - NUMERIC FIELD DESCRIPTOR F3.0 C IF (ICZERO) 31750, 1750, 31750 1750 CONTINUE WRITE ( I02, 90002 ) WRITE ( I02, 80001 ) IVTNUM WRITE ( I02, 81751 ) 81751 FORMAT (1H ,10X,42HTHIS TESTS PRINTS 3. UNDER F3.0 DESCRIPTOR) RVON01 = 3. WRITE ( I02, 81752 ) RVON01 81752 FORMAT ( 1H ,10X, F3.0 ) GO TO 1761 31750 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1761 CONTINUE IVTNUM = 176 C C **** TEST 176 **** C TEST 176 - SIGNED NUMERIC FIELD DESCRIPTOR F4.0 C IF (ICZERO) 31760, 1760, 31760 1760 CONTINUE WRITE ( I02, 90002 ) WRITE ( I02, 80001 ) IVTNUM WRITE ( I02, 81761 ) 81761 FORMAT ( 1H ,10X,43HTHIS TEST PRINTS -15. WITH F4.0 DESCRIPTOR) RVON01 = -15. WRITE ( I02, 81762 ) RVON01 81762 FORMAT ( 1H ,10X, F4.0) GO TO 1771 31760 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1771 CONTINUE IVTNUM = 177 C C **** TEST 177 **** C TEST 177 - SIGNED NUMERIC FIELD DESCRIPTOR E12.5 C IF (ICZERO) 31770, 1770, 31770 1770 CONTINUE WRITE ( I02, 90002 ) WRITE ( I02, 80001 ) IVTNUM WRITE ( I02, 81771 ) 81771 FORMAT ( 1H , 10X,41HTHIS TEST PRINTS -0.12345E+03 USING E12.5) RVON01 = -123.45 WRITE ( I02, 81772 ) RVON01 81772 FORMAT ( 1H , 10X, E12.5 ) GO TO 1781 31770 IVDELE = IVDELE + 1 WRITE (I02,80003) IVTNUM 1781 CONTINUE C C WRITE PAGE FOOTINGS 99999 CONTINUE WRITE (I02,90002) WRITE (I02,90006) WRITE (I02,90002) WRITE (I02,90007) C C TERMINATE ROUTINE EXECUTION STOP C C FORMAT STATEMENTS FOR PAGE HEADERS 90000 FORMAT (1H1) 90002 FORMAT (1H ) 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 90003 FORMAT (1H ,21X,11HVERSION 1.0) 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 90006 FORMAT (1H ,5X,46H----------------------------------------------) 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) C FORMAT STATEMENTS FOR THIS ROUTINE 80001 FORMAT (10X,5HTEST ,I5) 80003 FORMAT ( 1H ,4X,I5,7X,7HDELETED) 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM109) END