Break Points

[reneeculver]

Why are some breakpoints not honored?

ZCLYD = ICHAR('c')+256*(ICHAR('L')+ 256*(ICHAR('y')

1 +256*ICHAR('D')))

ALLSPACE = 32+256*(32+256*(32+256*32))

DO 1001 I=1,MAXLOC

IF(I.LE.MAXOBJ)PTEXT(I)=0

IF(I.LE.RTXSIZ)RTEXT(I)=0

IF(I.LE.CLSMAX)CTEXT(I)=0

IF(I.GT.LOCSIZ)GOTO 1001

STEXT(I)=0

LTEXT(I)=0

LOCCON(I)=0

1001 CONTINUE

DO 1278 I=1,MAXOBJ

POINTS(I)=0

1278 OBJCON(I)=0

Dim IOval

OPEN (UNIT=2,FILE='ADVDAT',STATUS='OLD',iostat = ioval) ! line 192

if ioval ne 0 then

dim a =2

end if

DO 1279 I=1,250

KEY(I) = 0

1279 CONTINUE

DO 1280 I = 1,50

1280 ADJKEY(I) = 0

Like a breapoint in front of the Open will not be honored. By the way, I found a .PDF of the fortran guide on the net.

Renee

[onkelhotte]

Maybe Visual Studio gives you a hint: Dont confuse me with spaghetti code ;-)

It would be better to post this as code and not as text (the orange pen left to thy omega symbol).

Normally the debugger wont set a breakpoint when the code line is not reachable or the line redundant (for example i=i).

Markus

[reneeculver]

I does in this case...

To make matters worse, the are two projects in the solution and I keep flippng back and forth as to which project it is that's blowing up because there is no source. The display does show Intel assembler reliably.

There are masssive pieces of the loader that probably are not being called....hmmm.

Renee

[jimdempseyatthecove]

Renee,

"dim" is an elemental intrinsic function
or "d" in column 1 can be debug line indicator.

"Dim IOval"
"if ioval ne 0 then"
"dim a=2"

From the way you posted the code, it is difficult to tell what is happening.
Also, some parens seem to be missing.

Jim Dempsey