forums.silverfrost.com

mike.smartcam · Posted: Wed Sep 17, 2014 11:55 am Post subject: Compiler error msg

Hi Group,

I am getting a compiler error msg which reads:

PaulLaidler · Posted: Wed Sep 17, 2014 12:33 pm Post subject:

It works OK for me. Here is my test...

LitusSaxonicum · Posted: Wed Sep 17, 2014 1:12 pm Post subject:

When I did cut'n'paste I got that last line to run to col 70. Is there maybe a tab in the original source that extends the line over col 72?

E

mike.smartcam · Posted: Wed Sep 17, 2014 1:26 pm Post subject:

Hi E,

I have checked the source for none printable chars and whilst it originally contained LF chars it seems to be clean.

I assume from your comment that the syntax appears ok to you?

Thank you for your comments
_________________
Regards

Mike

LitusSaxonicum · Posted: Thu Sep 18, 2014 1:46 pm Post subject:

Mike,

I tried compiling the code you sent me, and with FTN95 v6.35 it compiles with no errors (after I'd sorted out the INCLUDEs) Using version 7.00 PE it throws the error message you noted. This seems to me to be something for Paul to look at with your code and includes as his little demo works.

Eddie

mike.smartcam · Posted: Thu Sep 18, 2014 1:55 pm Post subject:

Thank you for your time Eddie, how do I get the code to Paul doyou have an email address ?

Is there a version 6.35 PE which I could download?
_________________
Regards

Mike

mike.smartcam · Posted: Thu Sep 18, 2014 2:20 pm Post subject:

Hi Paul,

I have uploaded the problem files to dropbox with the following link:

https://www.dropbox.com/sh/rx7cam71dnhp7nz/AABPTwDXAkD_kRrQKAXda442a?dl=0

From the thread I am sure you will see that the problem appears to be caused when using v7 PE of the FTN95 compiler.

Should you have any problems or require further details please let me know.
_________________
Regards

Mike

PaulLaidler · Posted: Thu Sep 18, 2014 5:47 pm Post subject:

I have had a quick look at your code and initial problems are

a) DIP is used as both the name of a common block and the name of a variable

b) LEN is the name of a standard intrinsic and also the name of a variable.

If you change these then you may be able to make progress.

LitusSaxonicum · Posted: Thu Sep 18, 2014 7:20 pm Post subject:

Compiled with v6.35 though!

Eddie

PaulLaidler · Posted: Thu Sep 18, 2014 8:55 pm Post subject:

I get the same error reports with v6.35.

LitusSaxonicum · Posted: Thu Sep 18, 2014 9:21 pm Post subject:

Bizarre. Paul, you may be right about the duplication of names thing.

I renamed Mike's file to M.f95, put the INCLUDEs in the same folder and edited the paths to fit, and used the command line:

FTN95 -c M.f95

I'll have another look tomorrow, just in case I have multiple M.F95s somewhere in my path.

Eddie

mecej4 · Joined: 31 Oct 2006 Posts: 1886

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

As CDIP is a character function, I replaced:
WRITE(4,*)'@WIN /R CUTEDITJ '//CDIP(25,L)(:L)//FLE1

with
character cdip_result*60
cdip_result = CDIP(25,L)
WRITE(4,*)'@WIN /R CUTEDITJ '//cdip_result(:L)//FLE1

It then linked ok, but I could not run it, as I did not have the initial settings.

It may be a deficiency of FTN95 not to support the function expression "CDIP(25,L)(:L)" in a write statement, but it did report the problem.

Perhaps you could use "trim(CDIP(25,L))" as an alternative.

John

LitusSaxonicum · Posted: Fri Sep 19, 2014 9:56 am Post subject:

Yes, I found another M somewhere else.

Eddie