forums.silverfrost.com

KennyT · Joined: 02 Aug 2005 Posts: 317

hi,

we make use of the following unusual syntax (for reasons too complicated to explain here!):

LOC(VARIABLE) = IADDRESS

and it works well, but fails to compile under /undef with the following error:

ERROR 215: Invalid expression on left hand side of assignment

I realise it's an unusual use of the LOC function but we'd still like to be able to compile code with /undef during testing.

K

PaulLaidler · Posted: Wed Apr 29, 2015 2:03 pm Post subject:

This code looks strange to me.
Can you post a small program that illustrates the context and describe what it should do.

LitusSaxonicum · Posted: Wed Apr 29, 2015 2:17 pm Post subject:

KennyT · Joined: 02 Aug 2005 Posts: 317

ok...

Essentially, we have a routine that stores addresses of variables used in our dialogues thus:

SUBROUTINE SETADDR( ISCREEN, IFIELD, A)
INTEGER IADDRESS(MAXSCR,MAXFLD)
COMMON/BLAH/ IADDRESS
IADDRESS(ISCREEN, IFIELD) = LOC(A)

Then in the dialogue handling code we may want to do some "sense checking" so we reverse the usage:

SUBROUTINE CHECKFIELD (ISCREEN, IFIELD, AMIN, AMAX, IRET)
INTEGER IADDRESS(MAXSCR,MAXFLD)
COMMON/BLAH/ IADDRESS
LOC(A) = IADDRESS(ISCREEN, IFIELD)
IRET = 0
IF( A.LT.AMIN .OR. A.GT.AMAX) THEN
WRITE(*,*) "Entered value outside limits"
IRET = 1
ENDIF

is that enough info?

K

PaulLaidler · Posted: Wed Apr 29, 2015 7:47 pm Post subject:

Could you supply simpler and complete code.
For example, the following is a working program in a similar context...

davidb · Joined: 17 Jul 2009 Posts: 560 Location: UK

KennyT · Joined: 02 Aug 2005 Posts: 317

Here's a complete example with a comment that FCORE4 doesn't do the business:

mecej4 · Joined: 31 Oct 2006 Posts: 1886

Uncompilable code snippets with the author's own assessment of what the code is doing (or what it is not doing) are problematic. Here is a slight modification of the subroutine above http://forums.silverfrost.com/posting.php?mode=quote&p=18057

mecej4 · Joined: 31 Oct 2006 Posts: 1886

Uncompilable code snippets with the author's own assessment of what the code is doing (or what it is not doing) are problematic. Here is a slight modification of the subroutine above http://forums.silverfrost.com/posting.php?mode=quote&p=18057

mecej4 · Joined: 31 Oct 2006 Posts: 1886

Uncompilable code snippets with the author's own assessment of what the code is doing (or what it is not doing) are problematic. Here is a slight modification of the subroutine above http://forums.silverfrost.com/posting.php?mode=quote&p=18057

mecej4 · Joined: 31 Oct 2006 Posts: 1886

Sorry about the multiple "replies". The forum server replied "Debug Mode, try submitting later", which I did.

Here is a screenshot:

https://www.dropbox.com/s/4cot0e0aih0si0z/dbgmode.png?dl=0

MODERATOR: Please keep the first copy and delete the rest, and delete this apology.

mecej4 · Joined: 31 Oct 2006 Posts: 1886

Sorry about the multiple "replies". The forum server replied "Debug Mode, try submitting later", which I did. Here is a screenshot:

https://www.dropbox.com/s/4cot0e0aih0si0z/dbgmode.png?dl=0

MODERATOR: Please keep the first copy and delete the rest, and delete this apology.

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

Kenny,

I am struggling to understand your problem.

I think you could use an expression like "cm%r1 = fcore4(IAD)" for a real*4 component of type (CMAP), but not equating a real*4 value to a type(CMAP) CM.

All the core intrinsic functions are effective virtual arrays of the memory for the intrinsic data types. They are effectively arrays, whose argument is the memory byte address and can be used as arrays on either the left or right of =.

Also, your use of loc (CM) also has problems, as you can not guarantee the order and placement of intrinsic data types within the CMAP structure. All that " = fcore4(IAD)" provides is the 4 bytes, starting from memory address IAD, as a real*4 variable.

You would need to develop a type (CMAP) function CMAP CORE N, that transfers the n bytes of the CMAP structure, starting from memory byte address IAD, but again, I don't think you can make assumptions of the byte order of intrinsic variables within the TYPE (CMAP).

Is this what you are trying to do ?

John

KennyT · Joined: 02 Aug 2005 Posts: 317

I'll reply with more detail later.

note to the mods:

i've checked the "notify me" box but, after the initial notification of the first reply from Paul, i'm no longer getting the emails? (which is why i didn't reply earlier!)

K

John-Silver · Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley

I've been having the same problem as mecej4 with the same error message he got.
This happens from time to time I've noticed and usually a quick check and you'll find the post has actually been done OK !!!!! (so no need then to re-post).
... but its still very annoying.