forums.silverfrost.com

[MarzAttax]

If Debug/Checking is off and I try to comile the code below, I get the error:
"error 137 - Operand incompatible with opcode"

If I use Integer*4 only, the error goes away.

Interestingly, if the line

! iDataL = i1DataL

is uncommented, the error goes away too - lol

Does IBSET only work for Integer*4?

Could someone help me with this - thanx.


!=======================================================================
!
PROGRAM Function BSET_MARE

!! Passed
Integer*2 i2BeforeP, i2AfterP
Integer*4 i4ArrayPosP

!! Locals
Integer*1 i1DataL
Integer*4 iDataL

Integer*1, ALLOCATABLE :: i1BitArrayG(
!
!=======================================================================
!
i2BeforeP = 0
i2AfterP = 1
i4ArrayPosP = 12

i1DataL = i1BitArrayG(i4ArrayPosP)
! iDataL = i1DataL

If(i2BeforeP.EQ.1) Then
iDataL = IBSET(iDataL, 0)
i1DataL = IBSET(i1DataL, 0)
Endif
If(i2AfterP.EQ.1) Then
iDataL = IBSET(iDataL, 1)
Endif
i1DataL = iDataL

i1BitArrayG(i4ArrayPosP) = i1DataL

End
!
!=======================================================================

[brucebowler]

Assuming that's a complete program, you don't allocate any space for i1BitArrayG. Since it's not allocated, it's not (to me) too surprising that things don't work quite as you expect. I *am* a bit surprised about the text of the error, I would have expected a different description of what went wrong...

[PaulLaidler]

Brian

You must have modified code before posting it here.
The posted code contains syntax errors as well as variables not allocated and not initialised.
I have done a simple test on IBIT using an INTEGER*1 and my test worked OK.

The error message you quoted indicates a compiler bug or at least a programming error with a poor diagnostic but you will need to post the actual code that gave the error.

[Anonymous]

I do not care about whether the variables are ALLOCATED and/or initialised

I am pointing out that I cannot "COMPILE" it, I do not CARE if it runs or not as the code is "MADE UP"

And NO I did not modify the code before I posted it.
Are you assuming that the code actually does something useful and runs.
Again, I am trying to show that the code does NOT compile under certain circumstances.

Could you tell me what the syntax errors are then, coz all I get is the compiler error I gave.



Bri

[brucebowler]

Syntax error #1 "Program function bset_mare" should be "program bset_mare".

Here's a much simpler (5 lines) program that also demonstrates the problem.

integer*1 a
integer*1 b
a = b
a = IBSET(a, 0)
end

Note that if you change the line a=b to a=1, the program does compile

[PaulLaidler]

Yes there is a compiler bug here.

The code optimiser is failing on the statement

a = IBSET(a,0)

The following is sufficient to inhibit the optimiser in this context

a = IBSET(a+0,0)

but there will be lots of ways of avoiding the problem.

[Anonymous]

Ok, I admit that was wrong.

However there is no Syntax error from my compiler v4.8

Yes I know a newer one is available )

Thanx for the demo