Re: f2cl trouble with common block -- function make-<block name> undefined

Hi Ray, thanks for your help.

On 1/23/06, Raymond Toy <[email protected]> wrote:

>     Robert> g77 compiles this program and when executed it yields BAR IS =
12345.
>     Robert> I translate this with (f2cl::f2cl "tmp.f" :declare-common t)
>     Robert> (same problem with (f2cl::f2cl "tmp.f" :declare-common t :com=
mon-as-array t)
>     Robert> by the way). The translation is apparently successful.
>     Robert> However, (load "tmp.lisp") complains "undefined function
>     Robert> FORTRAN-TO-LISP::MAKE-MYCOMN".
>
> Does the result work?  I also get these warnings when I compile the
> lisp code with cmucl.  But the resulting compiled code does work.

When I try (load "tmp.lisp") in Clisp,
I get the error message, it dumps me into the debugger.
If I skip over the offending form, there aren't any more
errors, but then if I try (FORTRAN-TO-LISP::FOO) to run
the program I get "undefined function FORTRAN-TO-LISP::MYCOMN-PART-0".
Examining tmp.lisp, I don't see a definition for MYCOMN-PART-0.

SBCL doesn't get that far; FOO is undefined.
GCL fails to load f2cl1.l so that's not in the running.

Are there some examples (containing common blocks or not)
which are known to work? I looked around in the cvs
repository but I didn't find anything like that.

Thanks for your help,
Robert Dodier


-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642