test.i ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96 4095 12285 531 LINES ANALYSED SIZE= 15896 ** Unassigned variable ** Entered from line 7110 of routine/fn/map brectrip starting at line 7098 Local variables opern = 180 optype = 81 flags = 32768 (X'00008000') opnd1 = Record(x'00810051 00000002 81818181 00000000 00000007 81818181') opnd2 = Record(x'00000051 00000507 00000000 00000001 00000005 00000000') cell = 14 test = 2 currt = Invalid Address 40141258 Diagnostics Entered from line 3751 of routine/fn/map cui starting at line 3614 Local variables code = 1 pt =-2122219135 (X'81818181') marker =-2122219135 (X'81818181') j = 5 lname =-2122219135 (X'81818181') typep =-2122219135 (X'81818181') precp =-2122219135 (X'81818181') alt = 7 kk = 0 opnd1 = Record(x'00810051 00000002 81818181 00000000 00000007 81818181') head1 = 0 bot1 = 0 nops = 2 rpop = Record(x'83000000 00000000 00000000 00000002 00000000 00000000') Entered from line 3839 of routine/fn/map cifthen starting at line 3763 Local variables markiu = 1 markc = 3742 (X'00000E9E') markui = 3833 (X'00000EF9') marke = 3854 (X'00000F0E') markr = 3830 (X'00000EF6') skip = 0 altui = 7 ccres = 0 elres =-2122219135 (X'81818181') thenlab = 29972 (X'00007514') elselab = 0 userlab =-1 report = 0 start = 0 elsealt =-2122219135 (X'81818181') k =-2122219135 (X'81818181') j =-2122219135 (X'81818181') cs = 1 linetrip = 1 Entered from line 839 of routine/fn/map css starting at line 698 Local variables pinit = 3738 (X'00000E9A') p = 3854 (X'00000F0E') sndisp = 0 acc = 1 k = 8 kform = 0 stname =-1 midcell = 0 tcell = 12161 (X'00002F81') 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 = 141 base = 1 area =-2122219135 (X'81818181') access = 3 disp = 0 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 = 3739 (X'00000E9B') markui = 3833 (X'00000EF9') markc = 3742 (X'00000E9E') marke = 3854 (X'00000F0E') markr = 3830 (X'00000EF6') inaformat = 0 litl = 0 rout = 0 nam = 0 arr = 0 prec = 5 type = 1 expopnd = Record(x'00000051 00000507 00000000 00000001 00000005 00000000') nameopnd = Record(x'08001C31 00000009 00000000 00000051 00000507 00000000') mlopnd = Record(x'07000061 00010008 00000000 08001C31 00000009 00000000') Entered from line 693 of routine/fn/map compileastm starting at line 685 Local variables i = 3733 (X'00000E95') Entered from line 655 of Block starting at line 594 Local variables currinf = Invalid Address 40279114 twsphead = 0 forcnt = 2 fordpth = 0 forcecnt = 7 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 = 15896 (X'00003E18') starsize = 122 asl = 12155 (X'00002F7B') arsize = 785364 (X'000BFBD4') oldline = 0 nextp = 3855 (X'00000F0F') snum = 0 rlevel = 1 nmax = 32 plabel = 29971 (X'00007513') level = 2 profaad =-2122219135 (X'81818181') lastinst = 0 line = 148 n = 292 (X'00000124') bfflag = 0 rbase = 1 q = 3638 (X'00000E36') r = 15896 (X'00003E18') fname =-2122219135 (X'81818181') stmts = 68 filesize = 18960 (X'00004A10') bimstr = 0 maxulab = 20479 (X'00004FFF') sflabel = 20991 (X'000051FF') nexttrip = 15 sstl = 56 ustptr = 0 mainep = "s#go" parm = Record(x'018B0076 00000100 00000002 00000000 00000000 02000000') worka = Record(x'00000FFF 0003FE00 00000000 00002FFD 00002F0D 00000008') No Global variables Entered from line 2554 of routine/fn/map compile starting at line 2519 Local variables argc = 4 argv =-1073744044 (X'BFFFF754') 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 = 18928 (X'000049F0') 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