skimpe.i ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96 4095 12285 411 LINES ANALYSED SIZE= 15136 ** Address error ** Entered from line 6255 of routine/fn/map cname starting at line 6119 Local variables z = 2 jj = 14 kk =-2122219135 (X'81818181') levelp = 0 dispp = 12196 (X'00002FA4') namep = 1485 (X'000005CD') pp = 5162 (X'0000142A') savesl = 256 (X'00000100') fname = 1485 (X'000005CD') topnd = Record(x'81818181 81818181 81818181 000005CD 00000100 0000142A') Diagnostics Entered from line 2459 of routine/fn/map strop starting at line 2413 Local variables opnd = Record(x'00000000 00000000 00000000 01000035 0000141F 00000007') ctype =-2122219135 (X'81818181') mode = 1 i =-2122219135 (X'81818181') Entered from line 2368 of routine/fn/map cstrexp starting at line 2325 Local variables mode = 0 pp = 5145 (X'00001419') wkarea = 0 dots = 0 err = 0 keepwa = 0 fnam = 0 i =-2122219135 (X'81818181') endflag = 0 opnd1 = Record(x'07000035 00000000 0000010C 00000000 81818181 00000000') opnd2 = Record(x'01000035 0000141F 00000007 07000035 00000000 0000010C') opnd3 = Record(x'00000000 00000000 00000000 01000035 0000141F 00000007') Entered from line 6631 of Block starting at line 6512 Local variables Entered from line 6631 of routine/fn/map crcall starting at line 6493 Local variables rtname = 699 (X'000002BB') ii = 5 iii = 3 qqq = 0 jj = 0 jjj = 14 nparms = 1 pt = 36864 (X'00009000') lp = 0 psize = 64 twsp = 0 parmno = 1 errno =-2122219135 (X'81818181') fptr = 0 typep = 0 precp = 0 namp = 0 tl = 1 clink = 12198 (X'00002FA6') pspeced = 1 outp = 5197 (X'0000144D') pptype =-2122219135 (X'81818181') opnd = Record(x'02810035 000002BB 01002FA6 81818181 0000144D 00000001') opnd1 = Record(x'81818181 81818181 81818181 02810035 000002BB 01002FA6') opnd2 = Record(x'81818181 81818181 81818181 81818181 81818181 81818181') lcell = Invalid Address 40270A68 Entered from line 6255 of routine/fn/map cname starting at line 6119 Local variables z = 0 jj = 14 kk =-2122219135 (X'81818181') levelp = 0 dispp = 12198 (X'00002FA6') namep = 699 (X'000002BB') pp = 5142 (X'00001416') savesl = 0 fname = 699 (X'000002BB') topnd = Record(x'81818181 81818181 81818181 000002BB 00000000 00001416') Entered from line 3634 of routine/fn/map cui starting at line 3614 Local variables code = 0 pt =-2122219135 (X'81818181') marker = 5199 (X'0000144F') j =-2122219135 (X'81818181') 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 = 5136 (X'00001410') p = 5162 (X'0000142A') sndisp = 21 acc = 256 (X'00000100') k = 12196 (X'00002FA4') kform = 0 stname =-2122219135 (X'81818181') midcell = 16777237 (X'01000015') tcell = 12195 (X'00002FA3') jj =-2122219135 (X'81818181') jjj =-2122219135 (X'81818181') kk =-2122219135 (X'81818181') qq =-2122219135 (X'81818181') marker = 5201 (X'00001451') 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 = 7 ptype = 36917 (X'00009035') i = 0 j = 14 oldi = 1 usebits = 2 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 = 2 rout = 1 nam = 0 arr = 0 prec = 3 type = 5 expopnd = Record(x'00000000 00000000 00000000 00000005 00000003 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 = 5131 (X'0000140B') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 1 skipcode = 0 finishar = 5240 (X'00001478') oldnextp = 5131 (X'0000140B') oldline = 158 Entered from line 3833 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 5092 (X'000013E4') markui = 0 marke = 0 markr = 5126 (X'00001406') skip = 0 altui = 0 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29975 (X'00007517') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 0 linetrip = 102 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 5088 (X'000013E0') p = 5127 (X'00001407') sndisp = 0 acc = 4 k = 64 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12129 (X'00002F61') 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 = 2 area =-2122219135 (X'81818181') access = 3 disp = 64 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 2 j = 1 oldi = 1 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 5089 (X'000013E1') markui = 0 markc = 5092 (X'000013E4') marke = 0 markr = 5126 (X'00001406') inaformat = 0 litl = 3 rout = 0 nam = 0 arr = 1 prec = 5 type = 1 expopnd = Record(x'08000051 0000006B 00000000 00000001 00000005 00000001') nameopnd = Record(x'0800C151 0000006A 00000000 08000051 0000006B 00000000') mlopnd = Record(x'00000000 00000000 00000000 0800C151 0000006A 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 5083 (X'000013DB') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 1 skipcode = 0 finishar = 5277 (X'0000149D') oldnextp = 5083 (X'000013DB') oldline = 156 Entered from line 3833 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 5049 (X'000013B9') markui = 0 marke = 0 markr = 5078 (X'000013D6') skip = 0 altui = 0 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29976 (X'00007518') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 0 linetrip = 98 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 5045 (X'000013B5') p = 5079 (X'000013D7') sndisp = 0 acc = 4 k = 72 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12131 (X'00002F63') 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 = 131 base = 2 area =-2122219135 (X'81818181') access = 0 disp = 72 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 2 j = 0 oldi = 3 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 5046 (X'000013B6') markui = 0 markc = 5049 (X'000013B9') marke = 0 markr = 5078 (X'000013D6') inaformat = 0 litl = 0 rout = 0 nam = 0 arr = 0 prec = 5 type = 1 expopnd = Record(x'08000051 00000064 80000000 00000001 00000005 00000000') nameopnd = Record(x'02000051 000008BC 80000000 08000051 00000064 80000000') mlopnd = Record(x'00000000 00000000 00000000 02000051 000008BC 80000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 5040 (X'000013B0') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 2 skipcode = 0 finishar = 5579 (X'000015CB') oldnextp = 5040 (X'000013B0') oldline = 154 Entered from line 3862 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 4900 (X'00001324') markui = 0 marke = 4984 (X'00001378') markr = 4934 (X'00001346') skip = 0 altui = 0 ccres = 0 elres = 1 thenlab = 29979 (X'0000751B') elselab = 29977 (X'00007519') userlab =-1 report = 1 start = 1 elsealt = 1 k = 2 j =-2122219135 (X'81818181') cs = 1 linetrip = 74 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 4896 (X'00001320') p = 4985 (X'00001379') sndisp = 0 acc = 4 k = 68 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12135 (X'00002F67') 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 = 2 area =-2122219135 (X'81818181') access = 3 disp = 68 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 2 j = 1 oldi = 1 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 4897 (X'00001321') markui = 0 markc = 4900 (X'00001324') marke = 0 markr = 4934 (X'00001346') inaformat = 0 litl = 3 rout = 0 nam = 0 arr = 2 prec = 5 type = 1 expopnd = Record(x'08000051 0000004E 00000000 00000001 00000005 00000002') nameopnd = Record(x'0800C251 0000004D 00000000 08000051 0000004E 00000000') mlopnd = Record(x'00000000 00000000 00000000 0800C251 0000004D 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 4891 (X'0000131B') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 1 skipcode = 0 finishar = 5586 (X'000015D2') oldnextp = 4891 (X'0000131B') oldline = 145 Entered from line 3833 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 4714 (X'0000126A') markui = 0 marke = 0 markr = 4748 (X'0000128C') skip = 0 altui = 0 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29980 (X'0000751C') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 0 linetrip = 46 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 4710 (X'00001266') p = 4749 (X'0000128D') sndisp = 0 acc = 4 k = 48 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12124 (X'00002F5C') 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 = 2 area =-2122219135 (X'81818181') access = 3 disp = 48 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 2 j = 1 oldi = 1 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 4711 (X'00001267') markui = 0 markc = 4714 (X'0000126A') marke = 0 markr = 4748 (X'0000128C') inaformat = 0 litl = 3 rout = 0 nam = 0 arr = 1 prec = 5 type = 1 expopnd = Record(x'08000051 00000033 00000000 00000001 00000005 00000001') nameopnd = Record(x'0800C151 00000032 00000000 08000051 00000033 00000000') mlopnd = Record(x'00000000 00000000 00000000 0800C151 00000032 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 4705 (X'00001261') Entered from line 3948 of routine/fn/map ccycbody starting at line 3934 Local variables ua = 1 elab = 20990 (X'000051FE') clab = 20989 (X'000051FD') finishar = 6242 (X'00001862') oldline = 143 savee = 0 savec = 0 Entered from line 4009 of routine/fn/map cloop starting at line 3956 Local variables alt = 0 markc = 4700 (X'0000125C') markui = 4700 (X'0000125C') l1 = 20989 (X'000051FD') l2 = 20990 (X'000051FE') l3 = 20988 (X'000051FC') l4 =-2122219135 (X'81818181') ccres =-2122219135 (X'81818181') elres = 1 fline =-2122219135 (X'81818181') trip =-2122219135 (X'81818181') fot =-2122219135 (X'81818181') pp = 6248 (X'00001868') debj =-2122219135 (X'81818181') jj =-2122219135 (X'81818181') fstrip =-2122219135 (X'81818181') forname =-2122219135 (X'81818181') initp =-2122219135 (X'81818181') stepp =-2122219135 (X'81818181') repmask =-2122219135 (X'81818181') forpt =-2122219135 (X'81818181') forwords =-2122219135 (X'81818181') forbits = 0 initopnd = Record(x'00000000 00000000 00000000 00000000 81818181 81818181') stepopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') finalopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') diffopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') zopnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') opnd = Record(x'00000000 00000000 00000000 00000000 00000000 00000000') currt = Invalid Address 81818181 Entered from line 806 of routine/fn/map css starting at line 698 Local variables pinit = 4699 (X'0000125B') p = 4700 (X'0000125C') sndisp =-2122219135 (X'81818181') acc = 4 k = 0 kform =-2122219135 (X'81818181') stname =-2122219135 (X'81818181') midcell =-2122219135 (X'81818181') tcell =-2122219135 (X'81818181') 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 =-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 = 87 i = 0 j = 0 oldi =-2122219135 (X'81818181') usebits =-2122219135 (X'81818181') 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 = 7 expopnd = Record(x'00000000 00000000 00000000 00000007 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 = 4694 (X'00001256') Entered from line 655 of Block starting at line 594 Local variables currinf = Invalid Address 40279190 twsphead = 0 forcnt = 2 fordpth = 1 forcecnt = 23 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 = 15136 (X'00003B20') starsize = 71 asl = 12091 (X'00002F3B') arsize = 785364 (X'000BFBD4') oldline = 0 nextp = 5202 (X'00001452') snum = 0 rlevel = 2 nmax = 16 plabel = 29975 (X'00007517') level = 3 profaad =-2122219135 (X'81818181') lastinst = 0 line = 159 n = 76 bfflag = 0 rbase = 2 q = 3052 (X'00000BEC') r = 15136 (X'00003B20') fname =-2122219135 (X'81818181') stmts = 132 filesize = 13925 (X'00003665') bimstr = 0 maxulab = 20479 (X'00004FFF') sflabel = 20988 (X'000051FC') nexttrip = 111 sstl = 504 (X'000001F8') ustptr = 0 mainep = "s#go" parm = Record(x'018B0076 00000100 00000002 00000000 00000000 02000000') worka = Record(x'00000FFF 0003FE00 00000000 00002FFD 00002F0D 00000038') 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 = 13893 (X'00003645') 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