forums.silverfrost.com

[WDG]

Program MegaMoney
CHARACTER*10 FUNCTION DATE@()
CHARACTER*10 DRAW_DATE

DRAW_DATE = DATE@()
PRINT *,'PROGRAM RUN ON',DRAW-DATE

Stop
END PROGRAM MegaMoney

What is wrong with this SYNTAX?

C:\Projects\MegaMoney.FOR(2) : error 28 - CHARACTER cannot be declared inside PROGRAM block (perhaps missing CONTAINS or END statement?)

[IanLambley]

Remove ther word "FUNCTION"

It is shown in the help as

CHARACTER*10 FUNCTION DATE@()

as that is effectively the first line of the function - it tells you it is a function and returns a character result rather than a subroutine, but you must not define it that way in your program. You just need to define it as

CHARACTER*10 DATE@

You have also used an underscore in the definition of DRAW_DATE, but when you print it, you have put a hyphen, the result would be DRAW minus DATE, where DRAW and DATE are two real numbers, possibly initialised to zero if you used /zeroise in the compile command, and therefore it will print
PROGRAM RUN ON 0.000000000

Regards

Ian

[WDG]