Return to fm008.f CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests

Annotation of 43BSDTahoe/usr.bin/f77/testf77/tests/fm008.f, revision 1.1

1.1     ! root        1: c     comment section.
        !             2: c
        !             3: c     fm008
        !             4: c
        !             5: c         this routine tests arithmetic assignment statements of the
        !             6: c     form          integer variable = arithmetic expression
        !             7: c     where the arithmetic expression is formed with the arithmetic
        !             8: c     operator + integer constants and positive integer variables.
        !             9: c     some of the tests use parentheses to group elements in the
        !            10: c     arithmetic expression.
        !            11: c
        !            12: c         there are tests where the arithmetic expression contains
        !            13: c            (1) two integer constants,
        !            14: c            (2) three integer constants,
        !            15: c            (3) three integer constants with parentheses to group
        !            16: c                   elements,
        !            17: c            (4) one integer variable and one integer constant,
        !            18: c            (5) one integer variable and two integer constants,
        !            19: c            (6) one integer variable and two integer constants with
        !            20: c                   parentheses to group elements.
        !            21: c
        !            22: c
        !            23: c      references
        !            24: c        american national standard programming language fortran,
        !            25: c              x3.9-1978
        !            26: c
        !            27: c        section 4.3, integer type
        !            28: c        section 4.3.1, integer constant
        !            29: c        section 6.1, arithmetic expressions
        !            30: c        section 10.1, arithmetic assignment statements
        !            31: c
        !            32: c
        !            33: c      **********************************************************
        !            34: c
        !            35: c         a compiler validation system for the fortran language
        !            36: c     based on specifications as defined in american national standard
        !            37: c     programming language fortran x3.9-1978, has been developed by the
        !            38: c     federal cobol compiler testing service.  the fortran compiler
        !            39: c     validation system (fcvs) consists of audit routines, their related
        !            40: c     data, and an executive system.  each audit routine is a fortran
        !            41: c     program, subprogram or function which includes tests of specific
        !            42: c     language elements and supporting procedures indicating the result
        !            43: c     of executing these tests.
        !            44: c
        !            45: c         this particular program/subprogram/function contains features
        !            46: c     found only in the subset as defined in x3.9-1978.
        !            47: c
        !            48: c         suggestions and comments should be forwarded to -
        !            49: c
        !            50: c                  department of the navy
        !            51: c                  federal cobol compiler testing service
        !            52: c                  washington, d.c.  20376
        !            53: c
        !            54: c      **********************************************************
        !            55: c
        !            56: c
        !            57: c
        !            58: c     initialization section
        !            59: c
        !            60: c     initialize constants
        !            61: c      **************
        !            62: c     i01 contains the logical unit number for the card reader.
        !            63:       i01 = 5
        !            64: c     i02 contains the logical unit number for the printer.
        !            65:       i02 = 6
        !            66: c     system environment section
        !            67: c
        !            68: cx010    this card is replaced by contents of fexec x-010 control card.
        !            69: c     the cx010 card is for overriding the program default i01 = 5
        !            70: c     (unit number for card reader).
        !            71: cx011    this card is replaced by contents of fexec x-011 control card.
        !            72: c     the cx011 card is for systems which require additional
        !            73: c     fortran statements for files associated with cx010 above.
        !            74: c
        !            75: cx020    this card is replaced by contents of fexec x-020 control card.
        !            76: c     the cx020 card is for overriding the program default i02 = 6
        !            77: c     (unit number for printer).
        !            78: cx021    this card is replaced by contents of fexec x-021 control card.
        !            79: c     the cx021 card is for systems which require additional
        !            80: c     fortran statements for files associated with cx020 above.
        !            81: c
        !            82:       ivpass=0
        !            83:       ivfail=0
        !            84:       ivdele=0
        !            85:       iczero=0
        !            86: c
        !            87: c     write page headers
        !            88:       write (i02,90000)
        !            89:       write (i02,90001)
        !            90:       write (i02,90002)
        !            91:       write (i02, 90002)
        !            92:       write (i02,90003)
        !            93:       write (i02,90002)
        !            94:       write (i02,90004)
        !            95:       write (i02,90002)
        !            96:       write (i02,90011)
        !            97:       write (i02,90002)
        !            98:       write (i02,90002)
        !            99:       write (i02,90005)
        !           100:       write (i02,90006)
        !           101:       write (i02,90002)
        !           102: c     test section
        !           103: c
        !           104: c         arithmetic assignment statement
        !           105: c
        !           106: c     test 200 through test 214 contain integer constants and operator +
        !           107: c     in arithmetic expression.
        !           108: c
        !           109: c     test 200 through test 206 - two integer constants
        !           110: c
        !           111:  2001 continue
        !           112:       ivtnum = 200
        !           113: c
        !           114: c      ****  test 200  ****
        !           115: c
        !           116:       if (iczero) 32000, 2000, 32000
        !           117:  2000 continue
        !           118:       ivcomp = 2+3
        !           119:       go to 42000
        !           120: 32000 ivdele = ivdele + 1
        !           121:       write (i02,80003) ivtnum
        !           122:       if (iczero) 42000, 2011, 42000
        !           123: 42000 if (ivcomp - 5) 22000,12000,22000
        !           124: 12000 ivpass = ivpass + 1
        !           125:       write (i02,80001) ivtnum
        !           126:       go to 2011
        !           127: 22000 ivfail = ivfail + 1
        !           128:       ivcorr = 5
        !           129:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           130:  2011 continue
        !           131:       ivtnum = 201
        !           132: c
        !           133: c      ****  test 201  ****
        !           134: c
        !           135:       if (iczero) 32010, 2010, 32010
        !           136:  2010 continue
        !           137:       ivcomp = 51 + 52
        !           138:       go to 42010
        !           139: 32010 ivdele = ivdele + 1
        !           140:       write (i02,80003) ivtnum
        !           141:       if (iczero) 42010, 2021, 42010
        !           142: 42010 if (ivcomp - 103) 22010,12010,22010
        !           143: 12010 ivpass = ivpass + 1
        !           144:       write (i02,80001) ivtnum
        !           145:       go to 2021
        !           146: 22010 ivfail = ivfail + 1
        !           147:       ivcorr = 103
        !           148:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           149:  2021 continue
        !           150:       ivtnum = 202
        !           151: c
        !           152: c      ****  test 202  ****
        !           153: c
        !           154:       if (iczero) 32020, 2020, 32020
        !           155:  2020 continue
        !           156:       ivcomp = 189 + 676
        !           157:       go to 42020
        !           158: 32020 ivdele = ivdele + 1
        !           159:       write (i02,80003) ivtnum
        !           160:       if (iczero) 42020, 2031, 42020
        !           161: 42020 if (ivcomp - 865) 22020,12020,22020
        !           162: 12020 ivpass = ivpass + 1
        !           163:       write (i02,80001) ivtnum
        !           164:       go to 2031
        !           165: 22020 ivfail = ivfail + 1
        !           166:       ivcorr = 865
        !           167:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           168:  2031 continue
        !           169:       ivtnum = 203
        !           170: c
        !           171: c      ****  test 203  ****
        !           172: c
        !           173:       if (iczero) 32030, 2030, 32030
        !           174:  2030 continue
        !           175:       ivcomp = 1358 + 8001
        !           176:       go to 42030
        !           177: 32030 ivdele = ivdele + 1
        !           178:       write (i02,80003) ivtnum
        !           179:       if (iczero) 42030, 2041, 42030
        !           180: 42030 if (ivcomp - 9359) 22030, 12030, 22030
        !           181: 12030 ivpass = ivpass + 1
        !           182:       write (i02,80001) ivtnum
        !           183:       go to 2041
        !           184: 22030 ivfail = ivfail + 1
        !           185:       ivcorr = 9359
        !           186:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           187:  2041 continue
        !           188:       ivtnum = 204
        !           189: c
        !           190: c      ****  test 204  ****
        !           191: c
        !           192:       if (iczero) 32040, 2040, 32040
        !           193:  2040 continue
        !           194:       ivcomp = 11112 + 10001
        !           195:       go to 42040
        !           196: 32040 ivdele = ivdele + 1
        !           197:       write (i02,80003) ivtnum
        !           198:       if (iczero) 42040, 2051, 42040
        !           199: 42040 if (ivcomp - 21113) 22040, 12040, 22040
        !           200: 12040 ivpass = ivpass + 1
        !           201:       write (i02,80001) ivtnum
        !           202:       go to 2051
        !           203: 22040 ivfail = ivfail + 1
        !           204:       ivcorr=21113
        !           205:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           206:  2051 continue
        !           207:       ivtnum = 205
        !           208: c
        !           209: c      ****  test 205  ****
        !           210: c
        !           211:       if (iczero) 32050, 2050, 32050
        !           212:  2050 continue
        !           213:       ivcomp = 189 + 9876
        !           214:       go to 42050
        !           215: 32050 ivdele = ivdele + 1
        !           216:       write (i02,80003) ivtnum
        !           217:       if (iczero) 42050, 2061, 42050
        !           218: 42050 if (ivcomp - 10065) 22050,12050,22050
        !           219: 12050 ivpass = ivpass + 1
        !           220:       write (i02,80001) ivtnum
        !           221:       go to 2061
        !           222: 22050 ivfail = ivfail + 1
        !           223:       ivcorr = 10065
        !           224:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           225:  2061 continue
        !           226:       ivtnum = 206
        !           227: c
        !           228: c      ****  test 206  ****
        !           229: c          requires 32767
        !           230: c
        !           231:       if (iczero) 32060, 2060, 32060
        !           232:  2060 continue
        !           233:       ivcomp = 32752 + 15
        !           234:       go to 42060
        !           235: 32060 ivdele = ivdele + 1
        !           236:       write (i02,80003) ivtnum
        !           237:       if (iczero) 42060, 2071, 42060
        !           238: 42060 if (ivcomp - 32767) 22060,12060,22060
        !           239: 12060 ivpass = ivpass + 1
        !           240:       write (i02,80001) ivtnum
        !           241:       go to 2071
        !           242: 22060 ivfail = ivfail + 1
        !           243:       ivcorr = 32767
        !           244:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           245: c
        !           246: c     test 207 through test 210 - three integer constants
        !           247: c
        !           248:  2071 continue
        !           249:       ivtnum = 207
        !           250: c
        !           251: c      ****  test 207  ****
        !           252: c
        !           253:       if (iczero) 32070, 2070, 32070
        !           254:  2070 continue
        !           255:       ivcomp = 2+3+4
        !           256:       go to 42070
        !           257: 32070 ivdele = ivdele + 1
        !           258:       write (i02,80003) ivtnum
        !           259:       if (iczero) 42070, 2081, 42070
        !           260: 42070 if (ivcomp - 9) 22070,12070,22070
        !           261: 12070 ivpass = ivpass + 1
        !           262:       write (i02,80001) ivtnum
        !           263:       go to 2081
        !           264: 22070 ivfail = ivfail + 1
        !           265:       ivcorr = 9
        !           266:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           267:  2081 continue
        !           268:       ivtnum = 208
        !           269: c
        !           270: c      ****  test 208  ****
        !           271: c
        !           272:       if (iczero) 32080, 2080, 32080
        !           273:  2080 continue
        !           274:       ivcomp = 51 + 52 + 53
        !           275:       go to 42080
        !           276: 32080 ivdele = ivdele + 1
        !           277:       write (i02,80003) ivtnum
        !           278:       if (iczero) 42080, 2091, 42080
        !           279: 42080 if (ivcomp - 156) 22080,12080,22080
        !           280: 12080 ivpass = ivpass + 1
        !           281:       write (i02,80001) ivtnum
        !           282:       go to 2091
        !           283: 22080 ivfail = ivfail + 1
        !           284:       ivcorr = 156
        !           285:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           286:  2091 continue
        !           287:       ivtnum = 209
        !           288: c
        !           289: c      ****  test 209  ****
        !           290: c
        !           291:       if (iczero) 32090, 2090, 32090
        !           292:  2090 continue
        !           293:       ivcomp = 189 +676+101
        !           294:       go to 42090
        !           295: 32090 ivdele = ivdele + 1
        !           296:       write (i02,80003) ivtnum
        !           297:       if (iczero) 42090, 2101, 42090
        !           298: 42090 if (ivcomp - 966) 22090,12090,22090
        !           299: 12090 ivpass = ivpass + 1
        !           300:       write (i02,80001) ivtnum
        !           301:       go to 2101
        !           302: 22090 ivfail = ivfail + 1
        !           303:       ivcorr = 966
        !           304:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           305:  2101 continue
        !           306:       ivtnum = 210
        !           307: c
        !           308: c      ****  test 210  ****
        !           309: c
        !           310:       if (iczero) 32100, 2100, 32100
        !           311:  2100 continue
        !           312:       ivcomp = 1358 + 8001 + 2189
        !           313:       go to 42100
        !           314: 32100 ivdele = ivdele + 1
        !           315:       write (i02,80003) ivtnum
        !           316:       if (iczero) 42100, 2111, 42100
        !           317: 42100 if (ivcomp - 11548) 22100,12100,22100
        !           318: 12100 ivpass = ivpass + 1
        !           319:       write (i02,80001) ivtnum
        !           320:       go to 2111
        !           321: 22100 ivfail = ivfail + 1
        !           322:       ivcorr = 11548
        !           323:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           324: c
        !           325: c     tests 211 through 214 are the same as 207 through 210 except
        !           326: c     parentheses are used to group the constants.
        !           327: c
        !           328:  2111 continue
        !           329:       ivtnum = 211
        !           330: c
        !           331: c      ****  test 211  ****
        !           332: c
        !           333:       if (iczero) 32110, 2110, 32110
        !           334:  2110 continue
        !           335:       ivcomp = (2+3)+4
        !           336:       go to 42110
        !           337: 32110 ivdele = ivdele + 1
        !           338:       write (i02,80003) ivtnum
        !           339:       if (iczero) 42110, 2121, 42110
        !           340: 42110 if (ivcomp -9) 22110,12110,22110
        !           341: 12110 ivpass = ivpass + 1
        !           342:       write (i02,80001) ivtnum
        !           343:       go to 2121
        !           344: 22110 ivfail = ivfail + 1
        !           345:       ivcorr = 9
        !           346:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           347:  2121 continue
        !           348:       ivtnum = 212
        !           349: c
        !           350: c      ****  test 212  ****
        !           351: c
        !           352:       if (iczero) 32120, 2120, 32120
        !           353:  2120 continue
        !           354:       ivcomp = 51+(52+53)
        !           355:       go to 42120
        !           356: 32120 ivdele = ivdele + 1
        !           357:       write (i02,80003) ivtnum
        !           358:       if (iczero) 42120, 2131, 42120
        !           359: 42120 if (ivcomp - 156) 22120,12120,22120
        !           360: 12120 ivpass = ivpass + 1
        !           361:       write (i02,80001) ivtnum
        !           362:       go to 2131
        !           363: 22120 ivfail = ivfail + 1
        !           364:       ivcorr = 156
        !           365:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           366:  2131 continue
        !           367:       ivtnum = 213
        !           368: c
        !           369: c      ****  test 213  ****
        !           370: c
        !           371:       if (iczero) 32130, 2130, 32130
        !           372:  2130 continue
        !           373:       ivcomp = 189 +(676+101)
        !           374:       go to 42130
        !           375: 32130 ivdele = ivdele + 1
        !           376:       write (i02,80003) ivtnum
        !           377:       if (iczero) 42130, 2141, 42130
        !           378: 42130 if (ivcomp - 966) 22130,12130,22130
        !           379: 12130 ivpass = ivpass + 1
        !           380:       write (i02,80001) ivtnum
        !           381:       go to 2141
        !           382: 22130 ivfail = ivfail + 1
        !           383:       ivcorr = 966
        !           384:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           385:  2141 continue
        !           386:       ivtnum = 214
        !           387: c
        !           388: c      ****  test 214  ****
        !           389: c
        !           390:       if (iczero) 32140, 2140, 32140
        !           391:  2140 continue
        !           392:       ivcomp = (1358+2189) + 8001
        !           393:       go to 42140
        !           394: 32140 ivdele = ivdele + 1
        !           395:       write (i02,80003) ivtnum
        !           396:       if (iczero) 42140, 2151, 42140
        !           397: 42140 if (ivcomp - 11548) 22140,12140,22140
        !           398: 12140 ivpass = ivpass + 1
        !           399:       write (i02,80001) ivtnum
        !           400:       go to 2151
        !           401: 22140 ivfail = ivfail + 1
        !           402:       ivcorr = 11548
        !           403:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           404: c
        !           405: c     test 215 through test 234 contain integer variables, integer
        !           406: c     constants and the operator + in arithmetic expression.
        !           407: c
        !           408: c     test 215 through test 219 - one integer variable and one integer
        !           409: c     constant in arithmetic expression.
        !           410: c
        !           411:  2151 continue
        !           412:       ivtnum = 215
        !           413: c
        !           414: c      ****  test 215  ****
        !           415: c
        !           416:       if (iczero) 32150, 2150, 32150
        !           417:  2150 continue
        !           418:       ivon01 = 2
        !           419:       ivcomp = ivon01 + 3
        !           420:       go to 42150
        !           421: 32150 ivdele = ivdele + 1
        !           422:       write (i02,80003) ivtnum
        !           423:       if (iczero) 42150, 2161, 42150
        !           424: 42150 if (ivcomp - 5) 22150,12150,22150
        !           425: 12150 ivpass = ivpass + 1
        !           426:       write (i02,80001) ivtnum
        !           427:       go to 2161
        !           428: 22150 ivfail = ivfail + 1
        !           429:       ivcorr=5
        !           430:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           431:  2161 continue
        !           432:       ivtnum = 216
        !           433: c
        !           434: c      ****  test 216  ****
        !           435: c
        !           436:       if (iczero) 32160, 2160, 32160
        !           437:  2160 continue
        !           438:       ivon01 = 3
        !           439:       ivcomp = 2 + ivon01
        !           440:       go to 42160
        !           441: 32160 ivdele = ivdele + 1
        !           442:       write (i02,80003) ivtnum
        !           443:       if (iczero) 42160, 2171, 42160
        !           444: 42160 if (ivcomp - 5) 22160,12160,22160
        !           445: 12160 ivpass = ivpass + 1
        !           446:       write (i02,80001) ivtnum
        !           447:       go to 2171
        !           448: 22160 ivfail = ivfail + 1
        !           449:       ivcorr = 5
        !           450:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           451:  2171 continue
        !           452:       ivtnum = 217
        !           453: c
        !           454: c      ****  test 217  ****
        !           455: c
        !           456:       if (iczero) 32170, 2170, 32170
        !           457:  2170 continue
        !           458:       ivon01 = 51
        !           459:       ivcomp = ivon01 +52
        !           460:       go to 42170
        !           461: 32170 ivdele = ivdele + 1
        !           462:       write (i02,80003) ivtnum
        !           463:       if (iczero) 42170, 2181, 42170
        !           464: 42170 if (ivcomp - 103) 22170,12170,22170
        !           465: 12170 ivpass = ivpass + 1
        !           466:       write (i02,80001) ivtnum
        !           467:       go to 2181
        !           468: 22170 ivfail = ivfail + 1
        !           469:       ivcorr = 103
        !           470:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           471:  2181 continue
        !           472:       ivtnum = 218
        !           473: c
        !           474: c      ****  test 218  ****
        !           475: c
        !           476:       if (iczero) 32180, 2180, 32180
        !           477:  2180 continue
        !           478:       ivon01 = 676
        !           479:       ivcomp = 189 + ivon01
        !           480:       go to 42180
        !           481: 32180 ivdele = ivdele + 1
        !           482:       write (i02,80003) ivtnum
        !           483:       if (iczero) 42180, 2191, 42180
        !           484: 42180 if (ivcomp - 865) 22180,12180,22180
        !           485: 12180 ivpass = ivpass + 1
        !           486:       write (i02,80001) ivtnum
        !           487:       go to 2191
        !           488: 22180 ivfail = ivfail + 1
        !           489:       ivcorr = 865
        !           490:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           491:  2191 continue
        !           492:       ivtnum = 219
        !           493: c
        !           494: c      ****  test 219  ****
        !           495: c
        !           496:       if (iczero) 32190, 2190, 32190
        !           497:  2190 continue
        !           498:       ivon01 = 1358
        !           499:       ivcomp = ivon01 + 8001
        !           500:       go to 42190
        !           501: 32190 ivdele = ivdele + 1
        !           502:       write (i02,80003) ivtnum
        !           503:       if (iczero) 42190, 2201, 42190
        !           504: 42190 if (ivcomp - 9359) 22190,12190,22190
        !           505: 12190 ivpass = ivpass + 1
        !           506:       write (i02,80001) ivtnum
        !           507:       go to 2201
        !           508: 22190 ivfail = ivfail + 1
        !           509:       ivcorr = 9359
        !           510:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           511: c
        !           512: c     test 220 through test 224 - one integer variable, two integer
        !           513: c     constants in arithmetic expression.
        !           514: c
        !           515:  2201 continue
        !           516:       ivtnum = 220
        !           517: c
        !           518: c      ****  test 220  ****
        !           519: c
        !           520:       if (iczero) 32200, 2200, 32200
        !           521:  2200 continue
        !           522:       ivon01 = 2
        !           523:       ivcomp = ivon01 +3 +4
        !           524:       go to 42200
        !           525: 32200 ivdele = ivdele + 1
        !           526:       write (i02,80003) ivtnum
        !           527:       if (iczero) 42200, 2211, 42200
        !           528: 42200 if (ivcomp - 9) 22200,12200,22200
        !           529: 12200 ivpass = ivpass + 1
        !           530:       write (i02,80001) ivtnum
        !           531:       go to 2211
        !           532: 22200 ivfail = ivfail + 1
        !           533:       ivcorr = 9
        !           534:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           535:  2211 continue
        !           536:       ivtnum = 221
        !           537: c
        !           538: c      ****  test 221  ****
        !           539: c
        !           540:       if (iczero) 32210, 2210, 32210
        !           541:  2210 continue
        !           542:       ivon01 = 3
        !           543:       ivcomp = 2+ivon01+4
        !           544:       go to 42210
        !           545: 32210 ivdele = ivdele + 1
        !           546:       write (i02,80003) ivtnum
        !           547:       if (iczero) 42210, 2221, 42210
        !           548: 42210 if (ivcomp - 9) 22210,12210,22210
        !           549: 12210 ivpass = ivpass + 1
        !           550:       write (i02,80001) ivtnum
        !           551:       go to 2221
        !           552: 22210 ivfail = ivfail + 1
        !           553:       ivcorr = 9
        !           554:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           555:  2221 continue
        !           556:       ivtnum = 222
        !           557: c
        !           558: c      ****  test 222  ****
        !           559: c
        !           560:       if (iczero) 32220, 2220, 32220
        !           561:  2220 continue
        !           562:       ivon01 = 4
        !           563:       ivcomp= 2+3+ivon01
        !           564:       go to 42220
        !           565: 32220 ivdele = ivdele + 1
        !           566:       write (i02,80003) ivtnum
        !           567:       if (iczero) 42220, 2231, 42220
        !           568: 42220 if (ivcomp - 9) 22220,12220,22220
        !           569: 12220 ivpass = ivpass + 1
        !           570:       write (i02,80001) ivtnum
        !           571:       go to 2231
        !           572: 22220 ivfail = ivfail + 1
        !           573:       ivcorr = 9
        !           574:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           575:  2231 continue
        !           576:       ivtnum = 223
        !           577: c
        !           578: c      ****  test 223  ****
        !           579: c
        !           580:       if (iczero) 32230, 2230, 32230
        !           581:  2230 continue
        !           582:       ivon01 = 2189
        !           583:       ivcomp = 1358+ivon01+8001
        !           584:       go to 42230
        !           585: 32230 ivdele = ivdele + 1
        !           586:       write (i02,80003) ivtnum
        !           587:       if (iczero) 42230, 2241, 42230
        !           588: 42230 if (ivcomp - 11548) 22230,12230,22230
        !           589: 12230 ivpass = ivpass + 1
        !           590:       write (i02,80001) ivtnum
        !           591:       go to 2241
        !           592: 22230 ivfail = ivfail + 1
        !           593:       ivcorr=11548
        !           594:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           595:  2241 continue
        !           596:       ivtnum = 224
        !           597: c
        !           598: c      ****  test 224  ****
        !           599: c
        !           600:       if (iczero) 32240, 2240, 32240
        !           601:  2240 continue
        !           602:       ivon01 = 11111
        !           603:       ivcomp = 11111 + ivon01 + 10111
        !           604:       go to 42240
        !           605: 32240 ivdele = ivdele + 1
        !           606:       write (i02,80003) ivtnum
        !           607:       if (iczero) 42240, 2251, 42240
        !           608: 42240 if (ivcomp - 32333) 22240,12240,22240
        !           609: 12240 ivpass = ivpass + 1
        !           610:       write (i02,80001) ivtnum
        !           611:       go to 2251
        !           612: 22240 ivfail = ivfail + 1
        !           613:       ivcorr = 32333
        !           614:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           615: c
        !           616: c     test 225 through test 234 use parentheses to group elements in
        !           617: c     an arithmetic expression. the results are the same as tests
        !           618: c     220 through 224.
        !           619: c
        !           620:  2251 continue
        !           621:       ivtnum = 225
        !           622: c
        !           623: c      ****  test 225  ****
        !           624: c
        !           625:       if (iczero) 32250, 2250, 32250
        !           626:  2250 continue
        !           627:        ivon01 = 2
        !           628:       ivcomp = (ivon01 +3) + 4
        !           629:       go to 42250
        !           630: 32250 ivdele = ivdele + 1
        !           631:       write (i02,80003) ivtnum
        !           632:       if (iczero) 42250, 2261, 42250
        !           633: 42250 if (ivcomp -9) 22250,12250,22250
        !           634: 12250 ivpass = ivpass + 1
        !           635:       write (i02,80001) ivtnum
        !           636:       go to 2261
        !           637: 22250 ivfail = ivfail + 1
        !           638:       ivcorr = 9
        !           639:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           640:  2261 continue
        !           641:       ivtnum = 226
        !           642: c
        !           643: c      ****  test 226  ****
        !           644: c
        !           645:       if (iczero) 32260, 2260, 32260
        !           646:  2260 continue
        !           647:       ivon01 = 2
        !           648:       ivcomp = ivon01 + (3+4)
        !           649:       go to 42260
        !           650: 32260 ivdele = ivdele + 1
        !           651:       write (i02,80003) ivtnum
        !           652:       if (iczero) 42260, 2271, 42260
        !           653: 42260 if (ivcomp - 9) 22260,12260,22260
        !           654: 12260 ivpass = ivpass + 1
        !           655:       write (i02,80001) ivtnum
        !           656:       go to 2271
        !           657: 22260 ivfail = ivfail + 1
        !           658:       ivcorr = 9
        !           659:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           660:  2271 continue
        !           661:       ivtnum = 227
        !           662: c
        !           663: c      ****  test 227  ****
        !           664: c
        !           665:       if (iczero) 32270, 2270, 32270
        !           666:  2270 continue
        !           667:       ivon01 = 3
        !           668:       ivcomp = (2+ivon01) + 4
        !           669:       go to 42270
        !           670: 32270 ivdele = ivdele + 1
        !           671:       write (i02,80003) ivtnum
        !           672:       if (iczero) 42270, 2281, 42270
        !           673: 42270 if (ivcomp - 9) 22270,12270,22270
        !           674: 12270 ivpass = ivpass + 1
        !           675:       write (i02,80001) ivtnum
        !           676:       go to 2281
        !           677: 22270 ivfail = ivfail + 1
        !           678:       ivcorr = 9
        !           679:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           680:  2281 continue
        !           681:       ivtnum = 228
        !           682: c
        !           683: c      ****  test 228  ****
        !           684: c
        !           685:       if (iczero) 32280, 2280, 32280
        !           686:  2280 continue
        !           687:       ivon01 = 3
        !           688:       ivcomp = 2 +(ivon01+4)
        !           689:       go to 42280
        !           690: 32280 ivdele = ivdele + 1
        !           691:       write (i02,80003) ivtnum
        !           692:       if (iczero) 42280, 2291, 42280
        !           693: 42280 if (ivcomp - 9) 22280, 12280, 22280
        !           694: 12280 ivpass = ivpass + 1
        !           695:       write (i02,80001) ivtnum
        !           696:       go to 2291
        !           697: 22280 ivfail = ivfail + 1
        !           698:       ivcorr = 9
        !           699:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           700:  2291 continue
        !           701:       ivtnum = 229
        !           702: c
        !           703: c      ****  test 229  ****
        !           704: c
        !           705:       if (iczero) 32290, 2290, 32290
        !           706:  2290 continue
        !           707:       ivon01 = 4
        !           708:       ivcomp = (2+3)+ivon01
        !           709:       go to 42290
        !           710: 32290 ivdele = ivdele + 1
        !           711:       write (i02,80003) ivtnum
        !           712:       if (iczero) 42290, 2301, 42290
        !           713: 42290 if (ivcomp - 9) 22290,12290,22290
        !           714: 12290 ivpass = ivpass + 1
        !           715:       write (i02,80001) ivtnum
        !           716:       go to 2301
        !           717: 22290 ivfail = ivfail + 1
        !           718:       ivcorr = 9
        !           719:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           720:  2301 continue
        !           721:       ivtnum = 230
        !           722: c
        !           723: c      ****  test 230  ****
        !           724: c
        !           725:       if (iczero) 32300, 2300, 32300
        !           726:  2300 continue
        !           727:       ivon01 = 2189
        !           728:       ivcomp = 1358 + (ivon01+8001)
        !           729:       go to 42300
        !           730: 32300 ivdele = ivdele + 1
        !           731:       write (i02,80003) ivtnum
        !           732:       if (iczero) 42300, 2311, 42300
        !           733: 42300 if (ivcomp - 11548) 22300,12300,22300
        !           734: 12300 ivpass = ivpass + 1
        !           735:       write (i02,80001) ivtnum
        !           736:       go to 2311
        !           737: 22300 ivfail = ivfail + 1
        !           738:       ivcorr = 11548
        !           739:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           740:  2311 continue
        !           741:       ivtnum = 231
        !           742: c
        !           743: c      ****  test 231  ****
        !           744: c
        !           745:       if (iczero) 32310, 2310, 32310
        !           746:  2310 continue
        !           747:       ivon01 = 2189
        !           748:       ivcomp = (1358+ivon01) + 8001
        !           749:       go to 42310
        !           750: 32310 ivdele = ivdele + 1
        !           751:       write (i02,80003) ivtnum
        !           752:       if (iczero) 42310, 2321, 42310
        !           753: 42310 if (ivcomp - 11548) 22310,12310,22310
        !           754: 12310 ivpass = ivpass + 1
        !           755:       write (i02,80001) ivtnum
        !           756:       go to 2321
        !           757: 22310 ivfail = ivfail + 1
        !           758:       ivcorr = 11548
        !           759:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           760:  2321 continue
        !           761:       ivtnum = 232
        !           762: c
        !           763: c      ****  test 232  ****
        !           764: c
        !           765:       if (iczero) 32320, 2320, 32320
        !           766:  2320 continue
        !           767:       ivon01 = 11111
        !           768:       ivcomp = (11111 + ivon01) + 10111
        !           769:       go to 42320
        !           770: 32320 ivdele = ivdele + 1
        !           771:       write (i02,80003) ivtnum
        !           772:       if (iczero) 42320, 2331, 42320
        !           773: 42320 if (ivcomp - 32333) 22320,12320,22320
        !           774: 12320 ivpass = ivpass + 1
        !           775:       write (i02,80001) ivtnum
        !           776:       go to 2331
        !           777: 22320 ivfail = ivfail + 1
        !           778:       ivcorr = 32333
        !           779:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           780:  2331 continue
        !           781:       ivtnum = 233
        !           782: c
        !           783: c      ****  test 233  ****
        !           784: c
        !           785:       if (iczero) 32330, 2330, 32330
        !           786:  2330 continue
        !           787:       ivon01 = 11111
        !           788:       ivcomp = (ivon01 + 10111) + 11111
        !           789:       go to 42330
        !           790: 32330 ivdele = ivdele + 1
        !           791:       write (i02,80003) ivtnum
        !           792:       if (iczero) 42330, 2341, 42330
        !           793: 42330 if (ivcomp - 32333) 22330,12330,22330
        !           794: 12330 ivpass = ivpass + 1
        !           795:       write (i02,80001) ivtnum
        !           796:       go to 2341
        !           797: 22330 ivfail = ivfail + 1
        !           798:       ivcorr = 32333
        !           799:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           800:  2341 continue
        !           801:       ivtnum = 234
        !           802: c
        !           803: c      ****  test 234  ****
        !           804: c
        !           805:       if (iczero) 32340, 2340, 32340
        !           806:  2340 continue
        !           807:       ivon01 = 10111
        !           808:       ivcomp = 11111 + (11111+ivon01)
        !           809:       go to 42340
        !           810: 32340 ivdele = ivdele + 1
        !           811:       write (i02,80003) ivtnum
        !           812:       if (iczero) 42340, 2351, 42340
        !           813: 42340 if (ivcomp - 32333) 22340,12340,22340
        !           814: 12340 ivpass = ivpass + 1
        !           815:       write (i02,80001) ivtnum
        !           816:       go to 2351
        !           817: 22340 ivfail = ivfail + 1
        !           818:       ivcorr = 32333
        !           819:       write (i02,80004) ivtnum, ivcomp ,ivcorr
        !           820:  2351 continue
        !           821: c
        !           822: c     write page footings and run summaries
        !           823: 99999 continue
        !           824:       write (i02,90002)
        !           825:       write (i02,90006)
        !           826:       write (i02,90002)
        !           827:       write (i02,90002)
        !           828:       write (i02,90007)
        !           829:       write (i02,90002)
        !           830:       write (i02,90008)  ivfail
        !           831:       write (i02,90009) ivpass
        !           832:       write (i02,90010) ivdele
        !           833: c
        !           834: c
        !           835: c     terminate routine execution
        !           836:       stop
        !           837: c
        !           838: c     format statements for page headers
        !           839: 90000 format (1h1)
        !           840: 90002 format (1h )
        !           841: 90001 format (1h ,10x,34hfortran compiler validation system)
        !           842: 90003 format (1h ,21x,11hversion 1.0)
        !           843: 90004 format (1h ,10x,38hfor official use only - copyright 1978)
        !           844: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
        !           845: 90006 format (1h ,5x,46h----------------------------------------------)
        !           846: 90011 format (1h ,18x,17hsubset level test)
        !           847: c
        !           848: c     format statements for run summaries
        !           849: 90008 format (1h ,15x,i5,19h errors encountered)
        !           850: 90009 format (1h ,15x,i5,13h tests passed)
        !           851: 90010 format (1h ,15x,i5,14h tests deleted)
        !           852: c
        !           853: c     format statements for test results
        !           854: 80001 format (1h ,4x,i5,7x,4hpass)
        !           855: 80002 format (1h ,4x,i5,7x,4hfail)
        !           856: 80003 format (1h ,4x,i5,7x,7hdeleted)
        !           857: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
        !           858: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
        !           859: c
        !           860: 90007 format (1h ,20x,20hend of program fm008)
        !           861:       end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.