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

[Robert D. <rob...@gm...>]

Hi Ray, thanks for your help.

On 1/23/06, Raymond Toy <ray...@er...> 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