ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96 4095 12285 124 LINES ANALYSED SIZE= 5080 ** Address error ** Entered from line 6826 of routine/fn/map skipapp starting at line 6819 Local variables pin = 1450 (X'000005AA') Diagnostics Entered from line 6811 of routine/fn/map skipexp starting at line 6790 Local variables optype = 1 pin = 1443 (X'000005A3') j =-2122219135 (X'81818181') Entered from line 5039 of routine/fn/map skipsc starting at line 5028 Local variables reversed = 0 alt = 1 Entered from line 4933 of routine/fn/map ccond starting at line 4889 Local variables cto = 1 iu = 1 farlab = 29998 (X'0000752E') jflags = 2 pin = 1442 (X'000005A2') pp =-2122219135 (X'81818181') ii =-2122219135 (X'81818181') l = 3 cptr = 1 cmax =-2122219135 (X'81818181') ll =-2122219135 (X'81818181') bitmask =-2122219135 (X'81818181') lla =-2122219135 (X'81818181') c1 = Invalid Address 40279FB0 c2 = Invalid Address 81818181 Entered from line 3821 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 1442 (X'000005A2') markui = 0 marke = 0 markr = 1477 (X'000005C5') skip = 0 altui = 0 ccres =-2122219135 (X'81818181') elres =-2122219135 (X'81818181') thenlab = 29998 (X'0000752E') elselab = 0 userlab =-1 report = 0 start = 1 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 0 linetrip = 56 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 1438 (X'0000059E') p = 1451 (X'000005AB') 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 = 1439 (X'0000059F') markui = 0 markc = 1442 (X'000005A2') marke = 0 markr = 1477 (X'000005C5') 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 = 1433 (X'00000599') Entered from line 3948 of routine/fn/map ccycbody starting at line 3934 Local variables ua = 0 elab = 20994 (X'00005202') clab = 20992 (X'00005200') finishar = 1578 (X'0000062A') oldline = 46 savee = 20998 (X'00005206') savec = 20996 (X'00005204') Entered from line 4134 of routine/fn/map cloop starting at line 3956 Local variables alt = 6 markc = 1386 (X'0000056A') markui = 1429 (X'00000595') l1 = 20993 (X'00005201') l2 = 20994 (X'00005202') l3 = 20992 (X'00005200') l4 = 20991 (X'000051FF') ccres =-2122219135 (X'81818181') elres = 1 fline =-2122219135 (X'81818181') trip =-2122219135 (X'81818181') fot = 2 pp =-2122219135 (X'81818181') debj = 0 jj = 2097154 (X'00200002') fstrip = 49 forname = 1155 (X'00000483') initp = 1388 (X'0000056C') stepp = 1404 (X'0000057C') repmask = 10 forpt = 81 forwords = 2 forbits = 524290 (X'00080002') initopnd = Record(x'08000051 0000002F 80000000 00080002 00000002 00000051') stepopnd = Record(x'00000051 00000001 00000000 08000051 0000002F 80000000') finalopnd = Record(x'08000051 0000002E 0000006C 00000051 00000001 00000000') diffopnd = Record(x'08000051 00000033 00000000 08000051 0000002E 0000006C') zopnd = Record(x'02000051 00000483 80000000 08000051 00000033 00000000') opnd = Record(x'08000051 00000036 00000000 02000051 00000483 80000000') currt = Invalid Address 401418C0 Entered from line 886 of routine/fn/map css starting at line 698 Local variables pinit = 1382 (X'00000566') p = 1429 (X'00000595') sndisp = 0 acc = 4 k = 76 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12162 (X'00002F82') 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 =-2122219135 (X'81818181') base = 1 area =-2122219135 (X'81818181') access = 0 disp = 76 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 = 1383 (X'00000567') markui =-2122219135 (X'81818181') markc = 1386 (X'0000056A') 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'08000051 0000002F 80000000 00000001 00000005 00000000') nameopnd = Record(x'02000051 000005C2 80000000 08000051 0000002F 80000000') mlopnd = Record(x'00000000 00000000 00000000 02000051 000005C2 80000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 1377 (X'00000561') Entered from line 3948 of routine/fn/map ccycbody starting at line 3934 Local variables ua = 0 elab = 20998 (X'00005206') clab = 20996 (X'00005204') finishar = 1631 (X'0000065F') oldline = 42 savee = 0 savec = 0 Entered from line 4134 of routine/fn/map cloop starting at line 3956 Local variables alt = 6 markc = 1263 (X'000004EF') markui = 1293 (X'0000050D') l1 = 20997 (X'00005205') l2 = 20998 (X'00005206') l3 = 20996 (X'00005204') l4 = 20995 (X'00005203') ccres =-2122219135 (X'81818181') elres = 1 fline =-2122219135 (X'81818181') trip =-2122219135 (X'81818181') fot = 2 pp =-2122219135 (X'81818181') debj = 0 jj = 1048578 (X'00100002') fstrip = 26 forname = 1474 (X'000005C2') initp = 1265 (X'000004F1') stepp = 1274 (X'000004FA') repmask = 10 forpt = 81 forwords = 2 forbits = 134742022 (X'08080006') initopnd = Record(x'00000051 00000001 00000000 08080006 00000002 00000051') stepopnd = Record(x'00000051 00000001 00000000 00000051 00000001 00000000') finalopnd = Record(x'08000051 00000018 00000064 00000051 00000001 00000000') diffopnd = Record(x'08000051 0000001C 00000000 08000051 00000018 00000064') zopnd = Record(x'02000051 000005C2 80000000 08000051 0000001C 00000000') opnd = Record(x'08000051 0000001F 00000000 02000051 000005C2 80000000') currt = Invalid Address 40141528 Entered from line 886 of routine/fn/map css starting at line 698 Local variables pinit = 1259 (X'000004EB') p = 1293 (X'0000050D') sndisp = 0 acc = 4 k = 72 kform = 0 stname =-2122219135 (X'81818181') midcell = 262144 (X'00040000') tcell = 12164 (X'00002F84') 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 =-2122219135 (X'81818181') base = 1 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 = 1 j = 0 oldi = 2 usebits = 2 strfnres =-2122219135 (X'81818181') markiu = 1260 (X'000004EC') markui =-2122219135 (X'81818181') markc = 1263 (X'000004EF') 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'00000051 00000001 00000000 00000001 00000005 00000000') nameopnd = Record(x'02000051 000006A1 80000000 00000051 00000001 00000000') mlopnd = Record(x'00000000 00000000 00000000 02000051 000006A1 80000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 1254 (X'000004E6') Entered from line 655 of Block starting at line 594 Local variables currinf = Invalid Address 40279114 twsphead = 0 forcnt = 2 fordpth = 2 forcecnt = 2 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 = 5080 (X'000013D8') starsize = 49 asl = 12150 (X'00002F76') arsize = 785364 (X'000BFBD4') oldline = 0 nextp = 1482 (X'000005CA') snum = 0 rlevel = 1 nmax = 20 plabel = 29998 (X'0000752E') level = 2 profaad =-2122219135 (X'81818181') lastinst = 0 line = 47 n = 116 bfflag = 0 rbase = 1 q = 452 (X'000001C4') r = 5080 (X'000013D8') fname =-2122219135 (X'81818181') stmts = 37 filesize = 4531 (X'000011B3') bimstr = 0 maxulab = 20479 (X'00004FFF') sflabel = 20991 (X'000051FF') nexttrip = 57 sstl = 324 (X'00000144') ustptr = 0 mainep = "s#go" parm = Record(x'018B0076 00000100 00000002 00000000 00000000 02000000') worka = Record(x'00000FFF 0003FE00 00000000 00002FFD 00002F0D 0000001A') 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 = 4499 (X'00001193') 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