skimpb.i ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96 4095 12285 654 LINES ANALYSED SIZE= 25808 ** Address error ** Entered from line 6826 of routine/fn/map skipapp starting at line 6819 Local variables pin = 3391 (X'00000D3F') Diagnostics Entered from line 4483 of routine/fn/map torp starting at line 4413 Local variables head = 0 bot = 0 nops = 262145 (X'00040001') rphead = 0 passhead = 0 savehead = 0 real = 0 realop = 0 operator =-2122219135 (X'81818181') opprec =-2122219135 (X'81818181') opnd = 1 c = 4 d =-2122219135 (X'81818181') e =-2122219135 (X'81818181') bdisp = 0 opname = 632 (X'00000278') opmask = 0 rpbot = 0 opstk = 0 oppstk = 0 passbot =-2122219135 (X'81818181') lcell = Invalid Address 40270B28 rpop = Record(x'03000000 00000D3D 00000278 40270B28 81818181 00000000') Entered from line 4273 of routine/fn/map assign starting at line 4226 Local variables assop = 2 p1 = 3378 (X'00000D32') q =-2122219135 (X'81818181') kk = 44 typep = 1 precp = 5 ptypep = 81 jjj =-2122219135 (X'81818181') p2 = 3384 (X'00000D38') jj = 0 b =-2122219135 (X'81818181') d =-2122219135 (X'81818181') head2 = 0 bot2 = 0 accp = 4 ii = 1 head1 = 12052 (X'00002F14') nops = 262145 (X'00040001') tpcell = 12104 (X'00002F48') lvl = 2 bot1 = 12052 (X'00002F14') lhname = 4091 (X'00000FFB') rhname =-2122219135 (X'81818181') a1 =-2122219135 (X'81818181') a2 =-2122219135 (X'81818181') lhcell = Invalid Address 40270488 opnd1 = Record(x'03000051 00000000 00000000 40270488 81818181 81818181') opnd2 = Record(x'81818181 81818181 81818181 03000051 00000000 00000000') Entered from line 3631 of routine/fn/map cui starting at line 3614 Local variables code = 0 pt =-2122219135 (X'81818181') marker = 3382 (X'00000D36') j = 3378 (X'00000D32') lname =-2122219135 (X'81818181') typep =-2122219135 (X'81818181') precp =-2122219135 (X'81818181') alt = 1 kk =-2122219135 (X'81818181') opnd1 = Record(x'81818181 81818181 81818181 81818181 00000001 81818181') head1 =-2122219135 (X'81818181') bot1 =-2122219135 (X'81818181') nops =-2122219135 (X'81818181') rpop = Record(x'81818181 81818181 81818181 81818181 81818181 81818181') Entered from line 789 of routine/fn/map css starting at line 698 Local variables pinit = 3372 (X'00000D2C') p = 3392 (X'00000D40') sndisp = 0 acc = 4 k = 44 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12104 (X'00002F48') jj =-2122219135 (X'81818181') jjj =-2122219135 (X'81818181') kk =-2122219135 (X'81818181') qq =-2122219135 (X'81818181') marker = 3412 (X'00000D54') reportui = 0 xdisp =-2122219135 (X'81818181') mask =-2122219135 (X'81818181') base = 0 area =-2122219135 (X'81818181') access =-2122219135 (X'81818181') disp = 0 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype =-16047 (X'FFFFC151') i = 1 j = 0 oldi = 2 usebits = 0 strfnres =-2122219135 (X'81818181') markiu =-2122219135 (X'81818181') markui =-2122219135 (X'81818181') markc =-2122219135 (X'81818181') marke =-2122219135 (X'81818181') markr =-2122219135 (X'81818181') inaformat = 0 litl = 0 rout = 0 nam = 0 arr = 0 prec = 5 type = 1 expopnd = Record(x'00000000 00000000 00000000 00000001 00000005 00000000') nameopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') mlopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 3367 (X'00000D27') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 2 skipcode = 0 finishar = 3453 (X'00000D7D') oldnextp = 3367 (X'00000D27') oldline = 103 Entered from line 3862 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 3294 (X'00000CDE') markui = 3331 (X'00000D03') marke = 3362 (X'00000D22') markr = 3328 (X'00000D00') skip = 0 altui = 1 ccres = 0 elres = 1 thenlab = 29983 (X'0000751F') elselab = 29982 (X'0000751E') userlab =-1 report = 1 start = 0 elsealt = 1 k = 3 j =-2122219135 (X'81818181') cs = 1 linetrip = 77 Entered from line 3874 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 3222 (X'00000C96') markui = 3331 (X'00000D03') marke = 3362 (X'00000D22') markr = 3328 (X'00000D00') skip = 0 altui = 1 ccres = 0 elres = 1 thenlab = 29985 (X'00007521') elselab = 29984 (X'00007520') userlab =-1 report = 1 start = 0 elsealt = 2 k = 0 j = 77 cs = 1 linetrip = 61 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 3218 (X'00000C92') p = 3363 (X'00000D23') sndisp = 0 acc = 4 k = 152 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12077 (X'00002F2D') jj =-2122219135 (X'81818181') jjj =-2122219135 (X'81818181') kk =-2122219135 (X'81818181') qq =-2122219135 (X'81818181') marker =-2122219135 (X'81818181') reportui = 0 xdisp =-2147483648 (X'80000000') mask = 135 base = 1 area =-2122219135 (X'81818181') access = 0 disp = 152 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 36864 (X'00009000') i = 1 j = 0 oldi = 2 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 3219 (X'00000C93') markui = 3259 (X'00000CBB') markc = 3222 (X'00000C96') marke = 3290 (X'00000CDA') markr = 3256 (X'00000CB8') inaformat = 0 litl = 0 rout = 1 nam = 0 arr = 0 prec = 0 type = 0 expopnd = Record(x'08000051 00000052 00000000 00000000 00000000 00000000') nameopnd = Record(x'08000051 00000057 00000000 08000051 00000052 00000000') mlopnd = Record(x'00000000 00000000 00000000 08000051 00000057 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 3213 (X'00000C8D') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 1 skipcode = 0 finishar = 4307 (X'000010D3') oldnextp = 3213 (X'00000C8D') oldline = 100 Entered from line 3833 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 3130 (X'00000C3A') markui = 0 marke = 0 markr = 3208 (X'00000C88') skip = 0 altui = 0 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29988 (X'00007524') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 0 linetrip = 42 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 3126 (X'00000C36') p = 3209 (X'00000C89') sndisp = 0 acc = 4 k = 36 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12106 (X'00002F4A') jj =-2122219135 (X'81818181') jjj =-2122219135 (X'81818181') kk =-2122219135 (X'81818181') qq =-2122219135 (X'81818181') marker =-2122219135 (X'81818181') reportui =-2122219135 (X'81818181') xdisp =-2147483648 (X'80000000') mask = 135 base = 1 area =-2122219135 (X'81818181') access = 3 disp = 36 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 1 j = 1 oldi = 1 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 3127 (X'00000C37') markui = 0 markc = 3130 (X'00000C3A') marke = 0 markr = 3208 (X'00000C88') inaformat = 0 litl = 3 rout = 0 nam = 0 arr = 1 prec = 5 type = 1 expopnd = Record(x'08000051 00000039 00000000 00000001 00000005 00000001') nameopnd = Record(x'0800C151 00000038 00000000 08000051 00000039 00000000') mlopnd = Record(x'00000000 00000000 00000000 0800C151 00000038 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 3121 (X'00000C31') Entered from line 655 of Block starting at line 594 Local variables currinf = Invalid Address 40279114 twsphead = 0 forcnt = 0 fordpth = 0 forcecnt = 3 Entered from line 655 of routine/fn/map icl9cezdrsi starting at line 10 Local variables i = 31 k = 256 (X'00000100') dummyformat= 12285 (X'00002FFD') p1size = 25808 (X'000064D0') starsize = 46 asl = 12051 (X'00002F13') arsize = 785364 (X'000BFBD4') oldline = 0 nextp = 3413 (X'00000D55') snum = 0 rlevel = 1 nmax = 12 plabel = 29982 (X'0000751E') level = 2 profaad =-2122219135 (X'81818181') lastinst = 0 line = 104 n = 176 bfflag = 0 rbase = 1 q = 1722 (X'000006BA') r = 25808 (X'000064D0') fname =-2122219135 (X'81818181') stmts = 88 filesize = 23479 (X'00005BB7') bimstr = 0 maxulab = 20479 (X'00004FFF') sflabel = 20999 (X'00005207') nexttrip = 94 sstl = 288 (X'00000120') ustptr = 296 (X'00000128') mainep = "s#go" parm = Record(x'018B0076 00000100 00000002 00000000 00000000 02000000') worka = Record(x'00000FFF 0003FE00 00000000 00002FFD 00002D0D 00000026') No Global variables Entered from line 2554 of routine/fn/map compile starting at line 2519 Local variables argc = 4 argv =-1073745068 (X'BFFFF354') s = CONTAINS UNPRINTABLE CHARS i =-2122219135 (X'81818181') Global variables rcsid = "$What: <@(#) ftncomp.i,v 63.0> $" copyright = " Copyright (c) 1987, 1989 Edinburgh Portable Compilers Ltd. All Rights Reserved." dwarfversio= "EPC Fortran77 (88000) 2.6.6" xoptimiseop= 0 poptimiseop= 0 unasscheck = 0 srclink = 135444552 (X'0812B848') workad = 1075056648 (X'40141008') srcid = 4 srcsize = 23447 (X'00005B97') targetvaria= 7 cgoptions = 16778752 (X'01000600') botraceopti= 0 boinhibopti= 0 gisproc = 0 gisfraglow = 0 gisfraghigh= 0 gisbuffzone= 0 gisfullopt = 0 gistrace = 0 gisinhib = 0 rangeregion=-1 syntaxcheck= 0 monopt = 0 mmon = 0 adcstr = 135424816 (X'08126B30') includedir = "" includepath= "" f77parm =-2147482857 (X'80000317') control = 2 options1 = 0 options2 = 0 srcflags = 0 optflags = 0 liststream =-1 diagstream =-2 consolestre= 0 End of diagnostics Program stopped