![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm001.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests|
Return to fm001.f CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: c comment section ! 2: c ! 3: c fm001 ! 4: c ! 5: c this routine contains the boilerplate source coding which ! 6: c is used to print the report headings and run summaries for each ! 7: c of the elementary routines. ! 8: c ! 9: c three tests are included which contain the procedures for ! 10: c testing the language features and deleting tests. ! 11: c ! 12: c test 1 checks the pass procedure ! 13: c test 2 checks the fail procedure ! 14: c test 3 checks the delete procedure ! 15: c ! 16: c if this routine does not execute correctly, then no other ! 17: c routines will be run. there is no use in trying to validate a ! 18: c fortran compiler which cannot handle such basic statements. ! 19: c ! 20: c ********************************************************** ! 21: c ! 22: c a compiler validation system for the fortran language ! 23: c based on specifications as defined in american national standard ! 24: c programming language fortran x3.9-1978, has been developed by the ! 25: c federal cobol compiler testing service. the fortran compiler ! 26: c validation system (fcvs) consists of audit routines, their related ! 27: c data, and an executive system. each audit routine is a fortran ! 28: c program, subprogram or function which includes tests of specific ! 29: c language elements and supporting procedures indicating the result ! 30: c of executing these tests. ! 31: c ! 32: c this particular program/subprogram/function contains features ! 33: c found only in the subset as defined in x3.9-1978. ! 34: c ! 35: c suggestions and comments should be forwarded to - ! 36: c ! 37: c department of the navy ! 38: c federal cobol compiler testing service ! 39: c washington, d.c. 20376 ! 40: c ! 41: c ********************************************************** ! 42: c ! 43: c ! 44: c ! 45: c initialization section ! 46: c ! 47: c initialize constants ! 48: c ************** ! 49: c i01 contains the logical unit number for the card reader. ! 50: i01 = 5 ! 51: c i02 contains the logical unit number for the printer. ! 52: i02 = 6 ! 53: c system environment section ! 54: c ! 55: cx010 this card is replaced by contents of fexec x-010 control card. ! 56: c the cx010 card is for overriding the program default i01 = 5 ! 57: c (unit number for card reader). ! 58: cx011 this card is replaced by contents of fexec x-011 control card. ! 59: c the cx011 card is for systems which require additional ! 60: c fortran statements for files associated with cx010 above. ! 61: c ! 62: cx020 this card is replaced by contents of fexec x-020 control card. ! 63: c the cx020 card is for overriding the program default i02 = 6 ! 64: c (unit number for printer). ! 65: cx021 this card is replaced by contents of fexec x-021 control card. ! 66: c the cx021 card is for systems which require additional ! 67: c fortran statements for files associated with cx020 above. ! 68: c ! 69: ivpass=0 ! 70: ivfail=0 ! 71: ivdele=0 ! 72: iczero=0 ! 73: c ! 74: c write page headers ! 75: write (i02,90000) ! 76: write (i02,90001) ! 77: write (i02,90002) ! 78: write (i02, 90002) ! 79: write (i02,90003) ! 80: write (i02,90002) ! 81: write (i02,90004) ! 82: write (i02,90002) ! 83: write (i02,90011) ! 84: write (i02,90002) ! 85: write (i02,90002) ! 86: write (i02,90005) ! 87: write (i02,90006) ! 88: write (i02,90002) ! 89: c test section ! 90: c ! 91: 11 continue ! 92: c ! 93: c **** test 001 **** ! 94: c test 001 - basic procedure for coding tests ! 95: c also checks continue statement which should not have ! 96: c any affect on execution sequence ! 97: c ! 98: if (iczero) 30010, 10, 30010 ! 99: 10 continue ! 100: ivtnum=1 ! 101: go to 40010 ! 102: 30010 ivdele=ivdele+1 ! 103: write (i02,80003) ivtnum ! 104: if (iczero) 40010, 21, 40010 ! 105: 40010 if (ivtnum - 1) 20010, 10010, 20010 ! 106: 10010 ivpass=ivpass+1 ! 107: write (i02,80001) ivtnum ! 108: go to 21 ! 109: 20010 ivfail=ivfail+1 ! 110: ivcomp=ivtnum ! 111: ivcorr=1 ! 112: write (i02,80004) ivtnum, ivcomp, ivcorr ! 113: 21 continue ! 114: c ! 115: c **** test 002 **** ! 116: c test - 002 force fail code to be executed ! 117: c ! 118: if (iczero) 30020,20,30020 ! 119: 20 continue ! 120: ivtnum=2 ! 121: go to 40020 ! 122: 30020 ivdele=ivdele+1 ! 123: write (i02,80003) ivtnum ! 124: if (iczero) 40020,31,40020 ! 125: 40020 if (ivtnum-1) 20020, 10020, 20020 ! 126: 10020 ivpass=ivpass+1 ! 127: write (i02,80001) ivtnum ! 128: go to 31 ! 129: 20020 ivfail=ivfail+1 ! 130: ivcomp=ivtnum ! 131: ivcorr=2 ! 132: write (i02,80004) ivtnum, ivcomp, ivcorr ! 133: 31 continue ! 134: c ! 135: c **** test 003 **** ! 136: c test 003 - delete procedure tested ! 137: c ! 138: if (iczero) 30030,30,30030 ! 139: 30 continue ! 140: c ivtnum=5000 ! 141: c go to 40030 ! 142: 30030 ivdele=ivdele+1 ! 143: ivtnum=3 ! 144: write (i02,80003) ivtnum ! 145: if (iczero) 40030,99999,40030 ! 146: 40030 if (ivtnum - 5000) 20030,10030,20030 ! 147: 10030 ivpass=ivpass +1 ! 148: write (i02,80001) ivtnum ! 149: go to 99999 ! 150: 20030 ivfail=ivfail+1 ! 151: ivcomp=ivtnum ! 152: ivcorr=5000 ! 153: write (i02,80004) ivtnum, ivcomp, ivcorr ! 154: c ! 155: c write page footings and run summaries ! 156: 99999 continue ! 157: write (i02,90002) ! 158: write (i02,90006) ! 159: write (i02,90002) ! 160: write (i02,90002) ! 161: write (i02,90007) ! 162: write (i02,90002) ! 163: write (i02,90008) ivfail ! 164: write (i02,90009) ivpass ! 165: write (i02,90010) ivdele ! 166: c ! 167: c ! 168: c special output statements for this routine ! 169: write (i02,90000) ! 170: write (i02,90002) ! 171: write (i02,80031) ! 172: write (i02,90002) ! 173: write (i02,80010) ! 174: write (i02,80020) ! 175: write (i02,80030) ! 176: write (i02,80032) ! 177: c ! 178: c terminate routine execution ! 179: stop ! 180: c ! 181: c format statements for page headers ! 182: 90000 format (1h1) ! 183: 90002 format (1h ) ! 184: 90001 format (1h ,10x,34hfortran compiler validation system) ! 185: 90003 format (1h ,21x,11hversion 1.0) ! 186: 90004 format (1h ,10x,38hfor official use only - copyright 1978) ! 187: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect) ! 188: 90006 format (1h ,5x,46h----------------------------------------------) ! 189: 90011 format (1h ,18x,17hsubset level test) ! 190: c ! 191: c format statements for run summaries ! 192: 90008 format (1h ,15x,i5,19h errors encountered) ! 193: 90009 format (1h ,15x,i5,13h tests passed) ! 194: 90010 format (1h ,15x,i5,14h tests deleted) ! 195: c ! 196: c format statements for test results ! 197: 80001 format (1h ,4x,i5,7x,4hpass) ! 198: 80002 format (1h ,4x,i5,7x,4hfail) ! 199: 80003 format (1h ,4x,i5,7x,7hdeleted) ! 200: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6) ! 201: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5) ! 202: c ! 203: c formats for current routine ! 204: 80031 format (1h ,10x,39hthe program fm001 executed correctly if) ! 205: 80010 format (1h ,15x,13htest 1 passed) ! 206: 80020 format (1h ,15x,42htest 2 failed with computed and correct =2) ! 207: 80030 format (1h ,15x,18htest 3 was deleted) ! 208: 80032 format (1h ,15x,34hthe run summary totals all equal 1) ! 209: 90007 format (1h ,20x,20hend of program fm001) ! 210: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.