ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96 4095 12285 886 LINES ANALYSED SIZE= 31976 ? Warning :- Name i not used at line No 299 ? Warning :- Name work not used at line No 345 ? Warning :- Name dim not used at line No 608 ? Warning :- Name regs not used at line No 608 ** Address error ** Entered from line 6255 of routine/fn/map cname starting at line 6119 Local variables z = 2 jj = 0 kk =-2122219135 (X'81818181') levelp = 0 dispp = 12164 (X'00002F84') namep = 1485 (X'000005CD') pp = 22384 (X'00005770') savesl = 256 (X'00000100') fname = 1485 (X'000005CD') topnd = Record(x'81818181 81818181 81818181 000005CD 00000100 00005770') Diagnostics Entered from line 2459 of routine/fn/map strop starting at line 2413 Local variables opnd = Record(x'00000000 00000000 00000000 07000035 00000000 0000010C') ctype =-2122219135 (X'81818181') mode = 1 i =-2122219135 (X'81818181') Entered from line 2352 of routine/fn/map cstrexp starting at line 2325 Local variables mode = 0 pp = 22379 (X'0000576B') wkarea = 0 dots = 0 err = 72 keepwa = 0 fnam = 0 i =-2122219135 (X'81818181') endflag = 0 opnd1 = Record(x'07000035 00000000 0000010C 00000000 81818181 00000000') opnd2 = Record(x'00000000 00000000 00000000 07000035 00000000 0000010C') opnd3 = Record(x'81818181 81818181 81818181 00000000 00000000 00000000') 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 = 2584 (X'00000A18') ii = 5 iii = 3 qqq = 0 jj = 0 jjj = 0 nparms = 4 pt = 36864 (X'00009000') lp = 0 psize = 8 twsp = 0 parmno = 1 errno =-2122219135 (X'81818181') fptr = 0 typep = 0 precp = 0 namp = 0 tl = 1 clink = 12155 (X'00002F7B') pspeced = 4 outp = 22400 (X'00005780') pptype =-2122219135 (X'81818181') opnd = Record(x'02810035 00000A18 01002F7B 81818181 00005780 00000004') opnd1 = Record(x'81818181 81818181 81818181 02810035 00000A18 01002F7B') opnd2 = Record(x'81818181 81818181 81818181 81818181 81818181 81818181') lcell = Invalid Address 402707B8 Entered from line 6255 of routine/fn/map cname starting at line 6119 Local variables z = 0 jj = 0 kk =-2122219135 (X'81818181') levelp = 0 dispp = 12155 (X'00002F7B') namep = 2584 (X'00000A18') pp = 22346 (X'0000574A') savesl = 0 fname = 2584 (X'00000A18') topnd = Record(x'81818181 81818181 81818181 00000A18 00000000 0000574A') Entered from line 3634 of routine/fn/map cui starting at line 3614 Local variables code = 0 pt =-2122219135 (X'81818181') marker = 22402 (X'00005782') 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 = 22340 (X'00005744') p = 22384 (X'00005770') sndisp = 33 acc = 256 (X'00000100') k = 12164 (X'00002F84') kform = 0 stname =-2122219135 (X'81818181') midcell = 16777249 (X'01000021') tcell = 12157 (X'00002F7D') jj =-2122219135 (X'81818181') jjj =-2122219135 (X'81818181') kk =-2122219135 (X'81818181') qq =-2122219135 (X'81818181') marker = 22404 (X'00005784') 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 = 0 ptype = 36917 (X'00009035') i = 0 j = 0 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 = 22335 (X'0000573F') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 1 skipcode = 0 finishar = 22405 (X'00005785') oldnextp = 22335 (X'0000573F') oldline = 690 (X'000002B2') Entered from line 3833 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 22296 (X'00005718') markui = 0 marke = 0 markr = 22330 (X'0000573A') skip = 0 altui = 0 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29857 (X'000074A1') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 1 linetrip = 15 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 22292 (X'00005714') p = 22331 (X'0000573B') sndisp = 0 acc = 4 k = 80 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12078 (X'00002F2E') 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 = 80 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 = 22293 (X'00005715') markui = 0 markc = 22296 (X'00005718') marke = 0 markr = 22330 (X'0000573A') inaformat = 0 litl = 3 rout = 0 nam = 0 arr = 2 prec = 5 type = 1 expopnd = Record(x'08000051 00000013 00000000 00000001 00000005 00000002') nameopnd = Record(x'0800C251 00000012 00000000 08000051 00000013 00000000') mlopnd = Record(x'00000000 00000000 00000000 0800C251 00000012 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 22287 (X'0000570F') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 2 skipcode = 0 finishar = 24597 (X'00006015') oldnextp = 22287 (X'0000570F') oldline = 685 (X'000002AD') Entered from line 3862 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 2 markc = 22000 (X'000055F0') markui = 22105 (X'00005659') marke = 22144 (X'00005680') markr = 22102 (X'00005656') skip = 0 altui = 1 ccres = 0 elres = 1 thenlab = 29860 (X'000074A4') elselab = 29858 (X'000074A2') userlab =-1 report = 1 start = 0 elsealt = 1 k = 2 j =-2122219135 (X'81818181') cs = 1 linetrip = 168 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 21996 (X'000055EC') p = 22145 (X'00005681') sndisp = 24 acc = 0 k = 12161 (X'00002F81') kform = 0 stname =-2122219135 (X'81818181') midcell = 24 tcell = 12163 (X'00002F83') 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 = 8 base = 1 area =-2122219135 (X'81818181') access = 3 disp = 96 extrn =-2122219135 (X'81818181') currinst = 0 value = 0 stringl = 0 ptype = 36864 (X'00009000') i = 0 j = 0 oldi = 1 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 21997 (X'000055ED') markui = 22105 (X'00005659') markc = 22000 (X'000055F0') marke = 22144 (X'00005680') markr = 22102 (X'00005656') inaformat = 0 litl = 0 rout = 1 nam = 0 arr = 0 prec = 0 type = 0 expopnd = Record(x'01000035 00005665 00000015 00000000 00000000 00000000') nameopnd = Record(x'0800C151 000000B8 00000000 01000035 00005665 00000015') mlopnd = Record(x'00000000 00000000 00000000 0800C151 000000B8 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 21991 (X'000055E7') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 2 skipcode = 0 finishar = 24604 (X'0000601C') oldnextp = 21991 (X'000055E7') oldline = 679 (X'000002A7') Entered from line 3862 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 21749 (X'000054F5') markui = 21781 (X'00005515') marke = 21820 (X'0000553C') markr = 21778 (X'00005512') skip = 0 altui = 1 ccres = 0 elres = 1 thenlab = 29862 (X'000074A6') elselab = 29861 (X'000074A5') userlab =-1 report = 1 start = 0 elsealt = 1 k = 2 j =-2122219135 (X'81818181') cs = 0 linetrip = 134 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 21745 (X'000054F1') p = 21821 (X'0000553D') sndisp = 0 acc = 5 k = 24 kform = 0 stname =-2122219135 (X'81818181') midcell = 327680 (X'00050000') tcell = 12101 (X'00002F45') 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 = 24 extrn =-2122219135 (X'81818181') currinst = 0 value = 0 stringl = 0 ptype = 53 i = 1 j = 0 oldi = 2 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 21746 (X'000054F2') markui = 21781 (X'00005515') markc = 21749 (X'000054F5') marke = 21820 (X'0000553C') markr = 21778 (X'00005512') inaformat = 0 litl = 0 rout = 0 nam = 0 arr = 0 prec = 3 type = 5 expopnd = Record(x'01000035 00005538 00000001 00000005 00000003 00000000') nameopnd = Record(x'02000035 00000FA4 80000000 01000035 00005538 00000001') mlopnd = Record(x'00000051 00000004 00000000 02000035 00000FA4 80000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 21740 (X'000054EC') Entered from line 3948 of routine/fn/map ccycbody starting at line 3934 Local variables ua = 1 elab = 20968 (X'000051E8') clab = 20967 (X'000051E7') finishar = 25259 (X'000062AB') oldline = 676 (X'000002A4') savee = 0 savec = 0 Entered from line 4009 of routine/fn/map cloop starting at line 3956 Local variables alt = 0 markc = 21695 (X'000054BF') markui = 21695 (X'000054BF') l1 = 20967 (X'000051E7') l2 = 20968 (X'000051E8') l3 = 20966 (X'000051E6') l4 =-2122219135 (X'81818181') ccres =-2122219135 (X'81818181') elres = 1 fline =-2122219135 (X'81818181') trip =-2122219135 (X'81818181') fot =-2122219135 (X'81818181') pp = 25265 (X'000062B1') 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 = 21694 (X'000054BE') p = 21695 (X'000054BF') 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 = 21689 (X'000054B9') Entered from line 3923 of routine/fn/map cstart starting at line 3903 Local variables ccres = 0 code = 2 skipcode = 0 finishar = 25266 (X'000062B2') oldnextp = 21689 (X'000054B9') oldline = 672 (X'000002A0') Entered from line 3862 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 21356 (X'0000536C') markui = 0 marke = 21489 (X'000053F1') markr = 21379 (X'00005383') skip = 0 altui = 0 ccres = 0 elres = 1 thenlab = 29867 (X'000074AB') elselab = 29864 (X'000074A8') userlab =-1 report = 1 start = 1 elsealt = 1 k = 2 j =-2122219135 (X'81818181') cs = 1 linetrip = 67 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 21352 (X'00005368') p = 21490 (X'000053F2') sndisp = 0 acc = 4 k = 68 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12144 (X'00002F70') 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 = 0 disp = 68 extrn =-2122219135 (X'81818181') currinst = 0 value =-2122219135 (X'81818181') stringl =-2122219135 (X'81818181') ptype = 81 i = 1 j = 0 oldi = 2 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 21353 (X'00005369') markui = 0 markc = 21356 (X'0000536C') marke = 0 markr = 21379 (X'00005383') inaformat = 0 litl = 0 rout = 0 nam = 0 arr = 0 prec = 5 type = 1 expopnd = Record(x'08000051 00000044 80000000 00000001 00000005 00000000') nameopnd = Record(x'02000051 000001DD 80000000 08000051 00000044 80000000') mlopnd = Record(x'00000000 00000000 00000000 02000051 000001DD 80000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 21347 (X'00005363') Entered from line 655 of Block starting at line 594 Local variables currinf = Invalid Address 40279114 twsphead = 0 forcnt = 3 fordpth = 1 forcecnt = 123 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 = 31976 (X'00007CE8') starsize = 70 asl = 12049 (X'00002F11') arsize = 785364 (X'000BFBD4') oldline = 0 nextp = 22405 (X'00005785') snum = 0 rlevel = 1 nmax = 12 plabel = 29857 (X'000074A1') level = 2 profaad =-2122219135 (X'81818181') lastinst = 0 line = 691 (X'000002B3') n = 1188 (X'000004A4') bfflag = 0 rbase = 1 q = 20750 (X'0000510E') r = 31976 (X'00007CE8') fname =-2122219135 (X'81818181') stmts = 591 (X'0000024F') filesize = 30049 (X'00007561') bimstr = 0 maxulab = 20479 (X'00004FFF') sflabel = 20966 (X'000051E6') nexttrip = 23 sstl = 576 (X'00000240') ustptr = 396 (X'0000018C') mainep = "s#go" parm = Record(x'018B0076 00000100 00000002 00000000 00000000 02000000') worka = Record(x'00000FFF 0003FE00 00000000 00002FFD 00002D0D 00000044') 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 = 30017 (X'00007541') 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