Fortran calling Ada

Fortran calling Ada

[Gerd Reger]

I try to compile a Fortran main program which is calling an Ada procedure
with the follwing commands:

g77 -c *.for
gnatmake -c *.adb
gnatbind -C -n *.ali
gnatlink -C -lm -lg2c -o test *.ali *.o

I'm not able to link. 
I use Suse 8.1 with g77 3.2 and gnat 3.15.


Additional I can't debug an Ada program with this version
of gnat. There is no more gnatgdb.

Any advice is welcome 

Many thanks
Gerd

Re: Fortran calling Ada

[Samuel Tardieu]

>>>>> "Gerd" == Gerd Reger <Gerd.Reger@astrium-space.com> writes:

Gerd> I try to compile a Fortran main program which is calling an Ada
Gerd> procedure with the follwing commands:

Gerd> [...]
Gerd> gnatlink -C lm -lg2c -o test *.ali *.o

Gerd> I'm not able to link.

You need to press the return key at the end of the gnatlink
line. Seriously, if you don't give the error ("not able to link" can
be anything), your chances of getting a meaningful answer are small.

  Sam
-- 
Samuel Tardieu -- sam@rfc1149.net -- http://www.rfc1149.net/sam

Re: Fortran calling Ada

[Dr. Michael Paus]

Hi

Gerd Reger wrote:
> I try to compile a Fortran main program which is calling an Ada procedure
> with the follwing commands:

I always found it easier not use a Fortran main program when I was mixing
Ada and Fortran. It is a lot easier if you write a litte Ada main program
which does nothing else but to call a Fortran procedure which is equivalent
to your current Fortran main program. In this Ada main program you should
"with" all Ada packages that you are going to use. In this way you give
Ada a chance to get the elaboration of all your Ada packages right as well.
You can also compile and link then with just one gnatmake call where you
only have to provide the *.o files of your Fortran code in addition to
the normal Ada flags.

Hope that helps

Michael



> 
> g77 -c *.for
> gnatmake -c *.adb
> gnatbind -C -n *.ali
> gnatlink -C -lm -lg2c -o test *.ali *.o
> 
> I'm not able to link. 
> I use Suse 8.1 with g77 3.2 and gnat 3.15.
> 
> 
> Additional I can't debug an Ada program with this version
> of gnat. There is no more gnatgdb.
> 
> Any advice is welcome 
> 
> Many thanks
> Gerd

Re: Fortran calling Ada

[Christopher Dahnken]

<posted & mailed>

Samuel Tardieu wrote:

>>>>>> "Gerd" == Gerd Reger <Gerd.Reger@astrium-space.com> writes:
> 
> Gerd> I try to compile a Fortran main program which is calling an Ada
> Gerd> procedure with the follwing commands:
> 
> Gerd> [...]
> Gerd> gnatlink -C lm -lg2c -o test *.ali *.o
> 
> Gerd> I'm not able to link.
> 
> You need to press the return key at the end of the gnatlink
> line. Seriously, if you don't give the error ("not able to link" can
> be anything), your chances of getting a meaningful answer are small.
> 
>   Sam

Right. Fortran also likes to be called with an underscore in front or behind 
the function name (depends) in an other language, e.g. C. The error message
would help ...

        Chris