![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM109.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM109.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C COMMENT SECTION 00010109 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C 00020109 ! 6: C FM109 00030109 ! 7: C 00040109 ! 8: C THIS ROUTINE TESTS THE BASIC OPTIONS REGARDING THE SIMPLE 00050109 ! 9: C FORMATTED WRITE STATEMENT OF FORM 00060109 ! 10: C WRITE (U,F) OR 00070109 ! 11: C WRITE (U,F) L 00080109 ! 12: C WHERE U IS A LOGICAL UNIT NUMBER 00090109 ! 13: C F IS A FORMAT STATEMENT LABEL, AND 00100109 ! 14: C L IS A LIST OF INTEGER VARIABLES. 00110109 ! 15: C THE FORMAT STATEMENT F CONTAINS NH HOLLERITH FIELD DESCRIPTORS, 00120109 ! 16: C NX BLANK FIELD DESCRIPTORS AND IW NUMERIC FIELD DESCRIPTORS. 00130109 ! 17: C 00140109 ! 18: C THIS ROUTINE TESTS WHETHER THE FIRST CHARACTER OF A FORMAT 00150109 ! 19: C RECORD FOR PRINTER OUTPUT DETERMINES VERTICAL SPACING AS FOLLOWS 00160109 ! 20: C 1 - ADVANCE TO FIRST LINE OF NEXT PAGE 00170109 ! 21: C BLANK - ONE LINE 00180109 ! 22: C 0 - ADVANCE TWO LINES BEFORE PRINTING 00190109 ! 23: C + - DO NOT ADVANCE BEFORE PRINTING - ADVANCE 0 00200109 ! 24: C 00210109 ! 25: C REFERENCES 00220109 ! 26: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00230109 ! 27: C X3.9-1978 00240109 ! 28: C 00250109 ! 29: C SECTION 8, SPECIFICATION STATEMENTS 00260109 ! 30: C SECTION 9, DATA STATEMENT 00270109 ! 31: C SECTION 11.10, DO STATEMENT 00280109 ! 32: C SECTION 12, INPUT/OUTPUT STATEMENTS 00290109 ! 33: C SECTION 12.8.2, INPUT/OUTPUT LIST 00300109 ! 34: C SECTION 12.9.5.2, FORMATTED DATA TRANSFER 00310109 ! 35: C SECTION 13, FORMAT STATEMENT 00320109 ! 36: C SECTION 13.2.1, EDIT DESCRIPTORS 00330109 ! 37: C 00340109 ! 38: C ALL OF THE RESULTS OF THIS ROUTINE MUST BE VISUALLY CHECKED 00350109 ! 39: C ON THE OUTPUT REPORT. THE USUAL TEST CODE FOR PASS, FAIL, OR 00360109 ! 40: C DELETE DOES NOT APPLY TO THIS ROUTINE. IF ANY TEST IS TO BE 00370109 ! 41: C DELETED, CHANGE THE OFFENDING WRITE OR FORMAT STATEMENT TO A 00380109 ! 42: C COMMENT. THE PERSON RESPONSIBLE FOR CHECKING THE OUTPUT MUST ALSO00390109 ! 43: C CHECK THE COMPILER LISTING TO SEE IF ANY STATEMENTS HAVE BEEN 00400109 ! 44: C CHANGED TO COMMENTS. 00410109 ! 45: C 00420109 ! 46: C 00430109 ! 47: C ********************************************************** 00440109 ! 48: C 00450109 ! 49: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00460109 ! 50: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00470109 ! 51: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00480109 ! 52: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00490109 ! 53: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00500109 ! 54: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00510109 ! 55: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00520109 ! 56: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00530109 ! 57: C OF EXECUTING THESE TESTS. 00540109 ! 58: C 00550109 ! 59: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00560109 ! 60: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00570109 ! 61: C 00580109 ! 62: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00590109 ! 63: C 00600109 ! 64: C DEPARTMENT OF THE NAVY 00610109 ! 65: C FEDERAL COBOL COMPILER TESTING SERVICE 00620109 ! 66: C WASHINGTON, D.C. 20376 00630109 ! 67: C 00640109 ! 68: C ********************************************************** 00650109 ! 69: C 00660109 ! 70: C 00670109 ! 71: C 00680109 ! 72: C INITIALIZATION SECTION 00690109 ! 73: C 00700109 ! 74: C INITIALIZE CONSTANTS 00710109 ! 75: C ************** 00720109 ! 76: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00730109 ! 77: I01 = 5 00740109 ! 78: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00750109 ! 79: I02 = 6 00760109 ! 80: C SYSTEM ENVIRONMENT SECTION 00770109 ! 81: C 00780109 ! 82: I01 = 5 00790109 ! 83: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00800109 ! 84: C (UNIT NUMBER FOR CARD READER). 00810109 ! 85: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00820109 ! 86: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00830109 ! 87: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00840109 ! 88: C 00850109 ! 89: I02 = 6 00860109 ! 90: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00870109 ! 91: C (UNIT NUMBER FOR PRINTER). 00880109 ! 92: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00890109 ! 93: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00900109 ! 94: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00910109 ! 95: C 00920109 ! 96: IVPASS=0 00930109 ! 97: IVFAIL=0 00940109 ! 98: IVDELE=0 00950109 ! 99: ICZERO=0 00960109 ! 100: C 00970109 ! 101: C WRITE PAGE HEADERS 00980109 ! 102: WRITE (I02,90000) 00990109 ! 103: WRITE (I02,90001) 01000109 ! 104: WRITE (I02,90002) 01010109 ! 105: WRITE (I02, 90002) 01020109 ! 106: WRITE (I02,90003) 01030109 ! 107: WRITE (I02,90002) 01040109 ! 108: WRITE (I02,90004) 01050109 ! 109: WRITE (I02,90002) 01060109 ! 110: WRITE (I02,90011) 01070109 ! 111: WRITE (I02,90002) 01080109 ! 112: WRITE (I02,90002) 01090109 ! 113: WRITE (I02,90006) 01100109 ! 114: WRITE (I02,90002) 01110109 ! 115: C 01120109 ! 116: IVTNUM = 156 01130109 ! 117: C **** TEST 156 **** 01140109 ! 118: C TEST 156 - VERTICAL SPACING TEST 01150109 ! 119: C 1 IN FIRST CHARACTER OF FORMATTED PRINT RECORD MEANS 01160109 ! 120: C RECORD IS FIRST LINE AT TOP OF NEXT PAGE. 01170109 ! 121: C 01180109 ! 122: IF (ICZERO) 31560, 1560, 31560 01190109 ! 123: 1560 CONTINUE 01200109 ! 124: WRITE (I02,80001) IVTNUM 01210109 ! 125: WRITE (I02,80331) 01220109 ! 126: 80331 FORMAT (5X,22HLAST LINE ON THIS PAGE) 01230109 ! 127: WRITE (I02,80330) 01240109 ! 128: 80330 FORMAT (1H1,31H THIS IS FIRST LINE ON PAGE) 01250109 ! 129: GO TO 1571 01260109 ! 130: 31560 IVDELE = IVDELE + 1 01270109 ! 131: WRITE (I02,80003) IVTNUM 01280109 ! 132: 1571 CONTINUE 01290109 ! 133: IVTNUM = 157 01300109 ! 134: C 01310109 ! 135: C **** TEST 157 **** 01320109 ! 136: C TEST 157 - VERTICAL SPACING TEST 01330109 ! 137: C PRINT BLANK LINES 01340109 ! 138: C 01350109 ! 139: C 01360109 ! 140: IF (ICZERO) 31570, 1570, 31570 01370109 ! 141: 1570 CONTINUE 01380109 ! 142: WRITE (I02,90002) 01390109 ! 143: WRITE (I02,80001) IVTNUM 01400109 ! 144: WRITE (I02,80340) 01410109 ! 145: 80340 FORMAT (1H , 10X) 01420109 ! 146: WRITE (I02,80341) 01430109 ! 147: 80341 FORMAT (41H THERE IS ONE BLANK LINE BEFORE THIS LINE) 01440109 ! 148: WRITE (I02,80342) 01450109 ! 149: WRITE (I02,80342) 01460109 ! 150: 80342 FORMAT (11H ) 01470109 ! 151: WRITE (I02,80343) 01480109 ! 152: 80343 FORMAT (43H THERE ARE TWO BLANK LINES BEFORE THIS LINE) 01490109 ! 153: WRITE (I02,80344) 01500109 ! 154: WRITE (I02,80344) 01510109 ! 155: WRITE (I02,80344) 01520109 ! 156: 80344 FORMAT (11X) 01530109 ! 157: WRITE (I02,80345) 01540109 ! 158: 80345 FORMAT (45H THERE ARE THREE BLANK LINES BEFORE THIS LINE) 01550109 ! 159: GO TO 1581 01560109 ! 160: 31570 IVDELE = IVDELE + 1 01570109 ! 161: WRITE (I02,80003) IVTNUM 01580109 ! 162: 1581 CONTINUE 01590109 ! 163: IVTNUM = 158 01600109 ! 164: C 01610109 ! 165: C **** TEST 158 **** 01620109 ! 166: C TEST 158 - PRINT 54 CHARACTERS 01630109 ! 167: C 01640109 ! 168: C 01650109 ! 169: IF (ICZERO) 31580, 1580, 31580 01660109 ! 170: 1580 CONTINUE 01670109 ! 171: WRITE (I02,90002) 01680109 ! 172: WRITE (I02,80001)IVTNUM 01690109 ! 173: WRITE (I02,80351) 01700109 ! 174: 80351 FORMAT (33H NEXT LINE CONTAINS 54 CHARACTERS) 01710109 ! 175: WRITE (I02,80350) 01720109 ! 176: 80350 FORMAT(55H 123456789012345678901234567890123456789012345678901234)01730109 ! 177: GO TO 1591 01740109 ! 178: 31580 IVDELE = IVDELE + 1 01750109 ! 179: WRITE (I02,80003) IVTNUM 01760109 ! 180: 1591 CONTINUE 01770109 ! 181: IVTNUM = 159 01780109 ! 182: C 01790109 ! 183: C **** TEST 159 **** 01800109 ! 184: C TEST 159 - NUMERIC FIELD DESCRIPTOR I1 01810109 ! 185: C 01820109 ! 186: IF (ICZERO) 31590, 1590, 31590 01830109 ! 187: 1590 CONTINUE 01840109 ! 188: WRITE (I02,90002) 01850109 ! 189: WRITE (I02,80001) IVTNUM 01860109 ! 190: WRITE (I02,80361) 01870109 ! 191: 80361 FORMAT (1H ,10X,38HTHIS TEST PRINTS 3 UNDER I1 DESCRIPTOR) 01880109 ! 192: IVON01 = 3 01890109 ! 193: WRITE (I02,80360) IVON01 01900109 ! 194: 80360 FORMAT (1H ,10X,I1) 01910109 ! 195: GO TO 1601 01920109 ! 196: 31590 IVDELE = IVDELE + 1 01930109 ! 197: WRITE (I02,80003) IVTNUM 01940109 ! 198: 1601 CONTINUE 01950109 ! 199: IVTNUM = 160 01960109 ! 200: C 01970109 ! 201: C **** TEST 160 **** 01980109 ! 202: C TEST 160 - NUMERIC FIELD DESCRIPTOR I2 01990109 ! 203: C 02000109 ! 204: IF (ICZERO) 31600, 1600, 31600 02010109 ! 205: 1600 CONTINUE 02020109 ! 206: WRITE (I02,90002) 02030109 ! 207: WRITE (I02,80001) IVTNUM 02040109 ! 208: WRITE (I02,80371) 02050109 ! 209: 80371 FORMAT (11X,39HTHIS TEST PRINTS 15 UNDER I2 DESCRIPTOR) 02060109 ! 210: IVON01 = 15 02070109 ! 211: WRITE (I02,80370) IVON01 02080109 ! 212: 80370 FORMAT (1H ,10X,I2) 02090109 ! 213: GO TO 1611 02100109 ! 214: 31600 IVDELE = IVDELE + 1 02110109 ! 215: WRITE (I02,80003) IVTNUM 02120109 ! 216: 1611 CONTINUE 02130109 ! 217: IVTNUM = 161 02140109 ! 218: C 02150109 ! 219: C **** TEST 161 **** 02160109 ! 220: C TEST 161 - NUMERIC FIELD DESCRIPTOR I3 02170109 ! 221: C 02180109 ! 222: IF (ICZERO) 31610, 1610, 31610 02190109 ! 223: 1610 CONTINUE 02200109 ! 224: WRITE (I02,90002) 02210109 ! 225: WRITE (I02,80001) IVTNUM 02220109 ! 226: WRITE (I02,80381) 02230109 ! 227: 80381 FORMAT (11X,40HTHIS TEST PRINTS 291 UNDER I3 DESCRIPTOR) 02240109 ! 228: IVON01 = 291 02250109 ! 229: WRITE (I02,80380) IVON01 02260109 ! 230: 80380 FORMAT (11X,I3) 02270109 ! 231: GO TO 1621 02280109 ! 232: 31610 IVDELE = IVDELE + 1 02290109 ! 233: WRITE (I02,80003) IVTNUM 02300109 ! 234: 1621 CONTINUE 02310109 ! 235: IVTNUM = 162 02320109 ! 236: C 02330109 ! 237: C **** TEST 162 **** 02340109 ! 238: C TEST 162 - NUMERIC FIELD DESCRIPTOR I4 02350109 ! 239: C 02360109 ! 240: IF (ICZERO) 31620, 1620, 31620 02370109 ! 241: 1620 CONTINUE 02380109 ! 242: WRITE (I02,90002) 02390109 ! 243: WRITE (I02,80001) IVTNUM 02400109 ! 244: WRITE (I02,80391) 02410109 ! 245: 80391 FORMAT (11X,41HTHIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR) 02420109 ! 246: IVON01 = 4321 02430109 ! 247: WRITE (I02,80390) IVON01 02440109 ! 248: 80390 FORMAT (11X,I4) 02450109 ! 249: GO TO 1631 02460109 ! 250: 31620 IVDELE = IVDELE + 1 02470109 ! 251: WRITE (I02,80003) IVTNUM 02480109 ! 252: 1631 CONTINUE 02490109 ! 253: IVTNUM = 163 02500109 ! 254: C 02510109 ! 255: C **** TEST 163 **** 02520109 ! 256: C TEST 163 - NUMERIC FIELD DESCRIPTOR I5 02530109 ! 257: C 02540109 ! 258: IF (ICZERO) 31630, 1630, 31630 02550109 ! 259: 1630 CONTINUE 02560109 ! 260: WRITE (I02,90002) 02570109 ! 261: WRITE (I02,80001) IVTNUM 02580109 ! 262: WRITE (I02,80401) 02590109 ! 263: 80401 FORMAT (1H ,10X,42HTHIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR) 02600109 ! 264: IVON01 = 12345 02610109 ! 265: WRITE (I02,80400) IVON01 02620109 ! 266: 80400 FORMAT (1H ,10X,I5) 02630109 ! 267: GO TO 1641 02640109 ! 268: 31630 IVDELE = IVDELE + 1 02650109 ! 269: WRITE (I02,80003) IVTNUM 02660109 ! 270: 1641 CONTINUE 02670109 ! 271: IVTNUM = 164 02680109 ! 272: C 02690109 ! 273: C **** TEST 164 **** 02700109 ! 274: C TEST 164 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION 02710109 ! 275: C 02720109 ! 276: IF (ICZERO) 31640, 1640, 31640 02730109 ! 277: 1640 CONTINUE 02740109 ! 278: IVON01 = 1 02750109 ! 279: IVON02 = 22 02760109 ! 280: IVON03 = 333 02770109 ! 281: IVON04 = 4444 02780109 ! 282: IVON05 = 25555 02790109 ! 283: WRITE (I02,90002) 02800109 ! 284: WRITE (I02,80001) IVTNUM 02810109 ! 285: WRITE (I02,80411) 02820109 ! 286: 80411 FORMAT (3X,50HTHIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER) 02830109 ! 287: WRITE (I02,80412) 02840109 ! 288: 80412 FORMAT (10X,32H(10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)) 02850109 ! 289: WRITE (I02,80410) IVON01, IVON02, IVON03, IVON04, IVON05 02860109 ! 290: 80410 FORMAT (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5) 02870109 ! 291: GO TO 1651 02880109 ! 292: 31640 IVDELE = IVDELE + 1 02890109 ! 293: WRITE (I02,80003) IVTNUM 02900109 ! 294: 1651 CONTINUE 02910109 ! 295: IVTNUM = 165 02920109 ! 296: C 02930109 ! 297: C **** TEST 165 **** 02940109 ! 298: C TEST 165 - HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS 02950109 ! 299: C COMBINE HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS IN 02960109 ! 300: C ONE FORMAT STATEMENT 02970109 ! 301: C 02980109 ! 302: IF (ICZERO) 31650, 1650, 31650 02990109 ! 303: 1650 CONTINUE 03000109 ! 304: IVON01=113 03010109 ! 305: IVON02=8 03020109 ! 306: WRITE (I02,90002) 03030109 ! 307: WRITE (I02,80001) IVTNUM 03040109 ! 308: WRITE (I02,80421) 03050109 ! 309: 80421 FORMAT (10X,28HNEXT TWO LINES ARE IDENTICAL) 03060109 ! 310: WRITE (I02,80422) 03070109 ! 311: 80422 FORMAT (35H IVON01 = 113 IVON02 = 8) 03080109 ! 312: WRITE (I02,80420) IVON01, IVON02 03090109 ! 313: 80420 FORMAT (6X,8HIVON01 =,I5,3X,8HIVON02 =,I5) 03100109 ! 314: GO TO 1661 03110109 ! 315: 31650 IVDELE = IVDELE + 1 03120109 ! 316: WRITE (I02,80003) IVTNUM 03130109 ! 317: 1661 CONTINUE 03140109 ! 318: IVTNUM = 166 03150109 ! 319: C 03160109 ! 320: C **** TEST 166 **** 03170109 ! 321: C TEST 166 - NUMERIC FIELD DESCRIPTOR I2 03180109 ! 322: C PRINT NEGATIVE INTEGER 03190109 ! 323: C 03200109 ! 324: IF (ICZERO) 31660, 1660, 31660 03210109 ! 325: 1660 CONTINUE 03220109 ! 326: IVON01 = -1 03230109 ! 327: WRITE (I02,90002) 03240109 ! 328: WRITE (I02,80001) IVTNUM 03250109 ! 329: WRITE (I02,80431) 03260109 ! 330: 80431 FORMAT (11X,39HTHIS TEST PRINTS -1 UNDER I2 DESCRIPTOR) 03270109 ! 331: WRITE (I02,80430) IVON01 03280109 ! 332: 80430 FORMAT (11X,I2) 03290109 ! 333: GO TO 1671 03300109 ! 334: 31660 IVDELE = IVDELE + 1 03310109 ! 335: WRITE (I02,80003) IVTNUM 03320109 ! 336: 1671 CONTINUE 03330109 ! 337: IVTNUM = 167 03340109 ! 338: C 03350109 ! 339: C **** TEST 167 **** 03360109 ! 340: C TEST 167 - NUMERIC FIELD DESCRIPTOR I3 03370109 ! 341: C PRINT NEGATIVE INTEGER 03380109 ! 342: C 03390109 ! 343: IF (ICZERO) 31670, 1670, 31670 03400109 ! 344: 1670 CONTINUE 03410109 ! 345: IVON01 = -22 03420109 ! 346: WRITE (I02,90002) 03430109 ! 347: WRITE (I02,80001) IVTNUM 03440109 ! 348: WRITE (I02,80441) 03450109 ! 349: 80441 FORMAT (11X,40HTHIS TEST PRINTS -22 UNDER I3 DESCRIPTOR) 03460109 ! 350: WRITE (I02,80440) IVON01 03470109 ! 351: 80440 FORMAT (11X,I3) 03480109 ! 352: GO TO 1681 03490109 ! 353: 31670 IVDELE = IVDELE + 1 03500109 ! 354: WRITE (I02,80003) IVTNUM 03510109 ! 355: 1681 CONTINUE 03520109 ! 356: IVTNUM = 168 03530109 ! 357: C 03540109 ! 358: C **** TEST 168 **** 03550109 ! 359: C TEST 168 - NUMERIC FIELD DESCRIPTOR I4 03560109 ! 360: C PRINT NEGATIVE INTEGER 03570109 ! 361: C 03580109 ! 362: IF (ICZERO) 31680, 1680, 31680 03590109 ! 363: 1680 CONTINUE 03600109 ! 364: IVON01 = -333 03610109 ! 365: WRITE (I02,90002) 03620109 ! 366: WRITE (I02,80001) IVTNUM 03630109 ! 367: WRITE (I02,80451) 03640109 ! 368: 80451 FORMAT (11X,41HTHIS TEST PRINTS -333 UNDER I4 DESCRIPTOR) 03650109 ! 369: WRITE (I02,80450) IVON01 03660109 ! 370: 80450 FORMAT (11X,I4) 03670109 ! 371: GO TO 1691 03680109 ! 372: 31680 IVDELE = IVDELE + 1 03690109 ! 373: WRITE (I02,80003) IVTNUM 03700109 ! 374: 1691 CONTINUE 03710109 ! 375: IVTNUM = 169 03720109 ! 376: C 03730109 ! 377: C **** TEST 169 **** 03740109 ! 378: C TEST 169 - NUMERIC FIELD DESCRIPTOR I5 03750109 ! 379: C PRINT NEGATIVE INTEGER 03760109 ! 380: C 03770109 ! 381: IF (ICZERO) 31690, 1690, 31690 03780109 ! 382: 1690 CONTINUE 03790109 ! 383: IVON01 = -4444 03800109 ! 384: WRITE (I02,90002) 03810109 ! 385: WRITE (I02,80001) IVTNUM 03820109 ! 386: WRITE (I02,80461) 03830109 ! 387: 80461 FORMAT (11X,42HTHIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR) 03840109 ! 388: WRITE (I02,80460) IVON01 03850109 ! 389: 80460 FORMAT (11X,I5) 03860109 ! 390: GO TO 1701 03870109 ! 391: 31690 IVDELE = IVDELE + 1 03880109 ! 392: WRITE (I02,80003) IVTNUM 03890109 ! 393: 1701 CONTINUE 03900109 ! 394: IVTNUM = 170 03910109 ! 395: C 03920109 ! 396: C **** TEST 170 **** 03930109 ! 397: C TEST 170 - NUMERIC FIELD DESCRIPTOR I6 03940109 ! 398: C PRINT NEGATIVE INTEGER 03950109 ! 399: C 03960109 ! 400: IF (ICZERO) 31700, 1700, 31700 03970109 ! 401: 1700 CONTINUE 03980109 ! 402: IVON01 = -15555 03990109 ! 403: WRITE (I02,90002) 04000109 ! 404: WRITE (I02,80001) IVTNUM 04010109 ! 405: WRITE (I02,80471) 04020109 ! 406: 80471 FORMAT (11X,43HTHIS TEST PRINTS -15555 UNDER DESCRIPTOR I6) 04030109 ! 407: WRITE (I02,80470) IVON01 04040109 ! 408: 80470 FORMAT (11X,I6) 04050109 ! 409: GO TO 1711 04060109 ! 410: 31700 IVDELE = IVDELE + 1 04070109 ! 411: WRITE (I02,80003) IVTNUM 04080109 ! 412: 1711 CONTINUE 04090109 ! 413: IVTNUM = 171 04100109 ! 414: C 04110109 ! 415: C **** TEST 171 **** 04120109 ! 416: C TEST 171 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION 04130109 ! 417: C PRINT NEGATIVE INTEGERS 04140109 ! 418: C 04150109 ! 419: IF (ICZERO) 31710, 1710, 31710 04160109 ! 420: 1710 CONTINUE 04170109 ! 421: IVON01 = -9 04180109 ! 422: IVON02 = -88 04190109 ! 423: IVON03 = -777 04200109 ! 424: IVON04 = -6666 04210109 ! 425: IVON05 = -25555 04220109 ! 426: WRITE (I02,90002) 04230109 ! 427: WRITE (I02,80001) IVTNUM 04240109 ! 428: WRITE (I02,80481) 04250109 ! 429: 80481 FORMAT (8X,49HTHIS TEST PRINTS -9, -88, -777, -6666, AND -25555) 04260109 ! 430: WRITE (I02,80482) 04270109 ! 431: 80482 FORMAT (11X,43HUNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) 04280109 ! 432: WRITE (I02,80480) IVON01,IVON02,IVON03,IVON04,IVON05 04290109 ! 433: 80480 FORMAT (10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) 04300109 ! 434: GO TO 1721 04310109 ! 435: 31710 IVDELE = IVDELE + 1 04320109 ! 436: WRITE (I02,80003) IVTNUM 04330109 ! 437: 1721 CONTINUE 04340109 ! 438: IVTNUM = 172 04350109 ! 439: C 04360109 ! 440: C **** TEST 172 **** 04370109 ! 441: C TEST 172 - NUMERIC FIELD DESCRIPTOR I5 04380109 ! 442: C MIX POSITIVE AND NEGATIVE INTEGER OUTPUT IN ONE FORMAT 04390109 ! 443: C STATEMENT ALL UNDER I5 DESCRIPTOR 04400109 ! 444: C 04410109 ! 445: IF (ICZERO) 31720, 1720, 31720 04420109 ! 446: 1720 CONTINUE 04430109 ! 447: IVON01 =5 04440109 ! 448: IVON02 = -54 04450109 ! 449: IVON03 = 543 04460109 ! 450: IVON04 = -5432 04470109 ! 451: IVON05=32000 04480109 ! 452: WRITE (I02,90002) 04490109 ! 453: WRITE (I02,80001) IVTNUM 04500109 ! 454: WRITE (I02,80491) 04510109 ! 455: 80491 FORMAT (18X,46HTHIS TEST PRINTS 5, -54, 543, -5432, AND 32000) 04520109 ! 456: WRITE (I02,80492) 04530109 ! 457: 80492 FORMAT (11X,33HUNDER I5 NUMERIC FIELD DESCRIPTOR) 04540109 ! 458: WRITE (I02,80490) IVON01,IVON02,IVON03,IVON04,IVON05 04550109 ! 459: 80490 FORMAT (11X,I5,3X,I5,3X,I5,3X,I5,3X,I5) 04560109 ! 460: GO TO 1731 04570109 ! 461: 31720 IVDELE = IVDELE + 1 04580109 ! 462: WRITE (I02,80003) IVTNUM 04590109 ! 463: 1731 CONTINUE 04600109 ! 464: IVTNUM = 173 04610109 ! 465: C 04620109 ! 466: C **** TEST 173 **** 04630109 ! 467: C TEST 173 - VERTICAL SPACING TEST USING THE 1H0 AS A DOUBLE 04640109 ! 468: C SPACE BEFORE PRINT ( ADVANCE TWO LINES BEFORE WRITING ). THE 0 04650109 ! 469: C AS A CARRIAGE CONTROL CHARACTER IS USED WITH THE BLANK CHARACTER 04660109 ! 470: C TO GET AN ODD NUMBER OF LINES TO ADVANCE BEFORE WRITING. 04670109 ! 471: C 04680109 ! 472: IF (ICZERO) 31730, 1730, 31730 04690109 ! 473: 1730 CONTINUE 04700109 ! 474: WRITE (I02,90002) 04710109 ! 475: WRITE (I02,80001) IVTNUM 04720109 ! 476: WRITE (I02,81730) 04730109 ! 477: 81730 FORMAT (1H , 10X) 04740109 ! 478: WRITE (I02,81731) 04750109 ! 479: 81731 FORMAT (41H THERE IS ONE BLANK LINE BEFORE THIS LINE) 04760109 ! 480: WRITE ( I02, 81732 ) 04770109 ! 481: 81732 FORMAT ( 1H0,10X) 04780109 ! 482: WRITE ( I02, 81733 ) 04790109 ! 483: 81733 FORMAT (43H THERE ARE TWO BLANK LINES BEFORE THIS LINE) 04800109 ! 484: WRITE ( I02, 81730 ) 04810109 ! 485: WRITE ( I02, 81732 ) 04820109 ! 486: WRITE ( I02, 81735 ) 04830109 ! 487: 81735 FORMAT (45H THERE ARE THREE BLANK LINES BEFORE THIS LINE) 04840109 ! 488: WRITE ( I02, 81732 ) 04850109 ! 489: WRITE ( I02, 81732 ) 04860109 ! 490: WRITE ( I02, 81736 ) 04870109 ! 491: 81736 FORMAT (45H THERE ARE FOUR BLANK LINES BEFORE THIS LINE) 04880109 ! 492: GO TO 1741 04890109 ! 493: 31730 IVDELE = IVDELE + 1 04900109 ! 494: WRITE (I02,80003) IVTNUM 04910109 ! 495: 1741 CONTINUE 04920109 ! 496: IVTNUM = 174 04930109 ! 497: C 04940109 ! 498: C **** TEST 174 **** 04950109 ! 499: C TEST 174 - VERTICAL SPACING TEST USING THE + CHARACTER TO 04960109 ! 500: C SUPPRESS ADVANCING BEFORE THE PRINT AND THIS SHOULD CAUSE TWO AND 04970109 ! 501: C THEN THREE SUCCESSIVE LINES TO OVERPRINT 04980109 ! 502: C 04990109 ! 503: IF (ICZERO) 31740, 1740, 31740 05000109 ! 504: 1740 CONTINUE 05010109 ! 505: WRITE ( I02, 90002 ) 05020109 ! 506: WRITE ( I02, 80001 ) IVTNUM 05030109 ! 507: WRITE ( I02, 81740 ) 05040109 ! 508: 81740 FORMAT ( 1H ) 05050109 ! 509: WRITE ( I02, 81741 ) 05060109 ! 510: 81741 FORMAT ( 1H ,10X, 19H1ST LINE - AABBCCDD) 05070109 ! 511: WRITE ( I02, 81742 ) 05080109 ! 512: 81742 FORMAT ( 1H+, 25X, 30HWWXXYYZZ OVERPRINTS - 2ND LINE) 05090109 ! 513: WRITE ( I02, 81743 ) 05100109 ! 514: 81743 FORMAT ( /////1H ) 05110109 ! 515: C SKIP DOWN A FEW LINES TO GET SET - OK AWAY WE GO.. 05120109 ! 516: WRITE ( I02, 81740 ) 05130109 ! 517: WRITE ( I02, 81744 ) 05140109 ! 518: 81744 FORMAT ( 1H , 10X, 29H11 44 1ST LINE) 05150109 ! 519: WRITE ( I02, 81745 ) 05160109 ! 520: 81745 FORMAT ( 1H+, 10X, 20H 22 55 2ND) 05170109 ! 521: WRITE ( I02, 81746 ) 05180109 ! 522: 81746 FORMAT ( 1H+, 10X, 24H 33 66 3RD) 05190109 ! 523: GO TO 1751 05200109 ! 524: 31740 IVDELE = IVDELE + 1 05210109 ! 525: WRITE (I02,80003) IVTNUM 05220109 ! 526: 1751 CONTINUE 05230109 ! 527: IVTNUM = 175 05240109 ! 528: C 05250109 ! 529: C **** TEST 175 **** 05260109 ! 530: C TEST 175 - NUMERIC FIELD DESCRIPTOR F3.0 05270109 ! 531: C 05280109 ! 532: IF (ICZERO) 31750, 1750, 31750 05290109 ! 533: 1750 CONTINUE 05300109 ! 534: WRITE ( I02, 90002 ) 05310109 ! 535: WRITE ( I02, 80001 ) IVTNUM 05320109 ! 536: WRITE ( I02, 81751 ) 05330109 ! 537: 81751 FORMAT (1H ,10X,42HTHIS TESTS PRINTS 3. UNDER F3.0 DESCRIPTOR) 05340109 ! 538: RVON01 = 3. 05350109 ! 539: WRITE ( I02, 81752 ) RVON01 05360109 ! 540: 81752 FORMAT ( 1H ,10X, F3.0 ) 05370109 ! 541: GO TO 1761 05380109 ! 542: 31750 IVDELE = IVDELE + 1 05390109 ! 543: WRITE (I02,80003) IVTNUM 05400109 ! 544: 1761 CONTINUE 05410109 ! 545: IVTNUM = 176 05420109 ! 546: C 05430109 ! 547: C **** TEST 176 **** 05440109 ! 548: C TEST 176 - SIGNED NUMERIC FIELD DESCRIPTOR F4.0 05450109 ! 549: C 05460109 ! 550: IF (ICZERO) 31760, 1760, 31760 05470109 ! 551: 1760 CONTINUE 05480109 ! 552: WRITE ( I02, 90002 ) 05490109 ! 553: WRITE ( I02, 80001 ) IVTNUM 05500109 ! 554: WRITE ( I02, 81761 ) 05510109 ! 555: 81761 FORMAT ( 1H ,10X,43HTHIS TEST PRINTS -15. WITH F4.0 DESCRIPTOR) 05520109 ! 556: RVON01 = -15. 05530109 ! 557: WRITE ( I02, 81762 ) RVON01 05540109 ! 558: 81762 FORMAT ( 1H ,10X, F4.0) 05550109 ! 559: GO TO 1771 05560109 ! 560: 31760 IVDELE = IVDELE + 1 05570109 ! 561: WRITE (I02,80003) IVTNUM 05580109 ! 562: 1771 CONTINUE 05590109 ! 563: IVTNUM = 177 05600109 ! 564: C 05610109 ! 565: C **** TEST 177 **** 05620109 ! 566: C TEST 177 - SIGNED NUMERIC FIELD DESCRIPTOR E12.5 05630109 ! 567: C 05640109 ! 568: IF (ICZERO) 31770, 1770, 31770 05650109 ! 569: 1770 CONTINUE 05660109 ! 570: WRITE ( I02, 90002 ) 05670109 ! 571: WRITE ( I02, 80001 ) IVTNUM 05680109 ! 572: WRITE ( I02, 81771 ) 05690109 ! 573: 81771 FORMAT ( 1H , 10X,41HTHIS TEST PRINTS -0.12345E+03 USING E12.5) 05700109 ! 574: RVON01 = -123.45 05710109 ! 575: WRITE ( I02, 81772 ) RVON01 05720109 ! 576: 81772 FORMAT ( 1H , 10X, E12.5 ) 05730109 ! 577: GO TO 1781 05740109 ! 578: 31770 IVDELE = IVDELE + 1 05750109 ! 579: WRITE (I02,80003) IVTNUM 05760109 ! 580: 1781 CONTINUE 05770109 ! 581: C 05780109 ! 582: C WRITE PAGE FOOTINGS 05790109 ! 583: 99999 CONTINUE 05800109 ! 584: WRITE (I02,90002) 05810109 ! 585: WRITE (I02,90006) 05820109 ! 586: WRITE (I02,90002) 05830109 ! 587: WRITE (I02,90007) 05840109 ! 588: C 05850109 ! 589: C TERMINATE ROUTINE EXECUTION 05860109 ! 590: STOP 05870109 ! 591: C 05880109 ! 592: C FORMAT STATEMENTS FOR PAGE HEADERS 05890109 ! 593: 90000 FORMAT (1H1) 05900109 ! 594: 90002 FORMAT (1H ) 05910109 ! 595: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05920109 ! 596: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 05930109 ! 597: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 05940109 ! 598: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 05950109 ! 599: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 05960109 ! 600: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 05970109 ! 601: C FORMAT STATEMENTS FOR THIS ROUTINE 05980109 ! 602: 80001 FORMAT (10X,5HTEST ,I5) 05990109 ! 603: 80003 FORMAT ( 1H ,4X,I5,7X,7HDELETED) 06000109 ! 604: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM109) 06010109 ! 605: END 06020109
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.