Re: what to use in place of old gnatbl in newer GNAT ?

["Nasser M. Abbasi" <nma@12000.org>]

On 7/5/2012 5:47 AM, Simon Wright wrote:

>
> I would use gnatmake!
>
> cxbi: cxbi.adb ifinc.o
>        gnatmake cxbi.adb -largs ifinc.o -lgfortran
>
> or if you prefer
>
> cxbi: cxbi.adb ifinc.o
>        gnatmake cxbi.adb =static -largs ifinc.o -lgfortran -lm
>

Thanks Simon!, yes this did it.

> However, neither seems to work! With GCC:
>
> Target: x86_64-apple-darwin11
<snip>
> gcc version 4.7.0 (GCC)
>
> I get
>
> $ ./cxbi
> Integer number passing:
> mode: in out in/out
> Ada send:
>            1          1          1
>   Fortran get:
>             1           1           1
>   Fortran send:
>             2           2           2
> Ada recieve:
>            1          2          2
> Ada send:
>           -1         -1         -1
>   Fortran get:
>            -1          -1          -1
>   Fortran send:
>             0           0           0
> Ada recieve:
>           -1          0          0
>

Yes, I got now the same result from the above one test. I am using
gfortran 5.6 and gnat 2012 on Linux.  But at least now it is possible
to build these tests, so now will be able to see what is the
problem. This lapack binding is _very_ old. It might have
bugs in it. It is also not complete, the lapada/test/interf/README
file mentions some issues not fixed at the end.

But at least one can build Ada program to call Lapack 77 function now.

I working on documenting all these things, and making
notes of all the changes made. When all is done, will make
a new tar file of the binding with the fixes (Assuming I can
fix the problems :)

-------------------------------------
>echo $LD_LIBRARY_PATH
/usr/lib/i386-linux-gnu/:/usr/lib/atlas-base/:/usr/lib/atlas-base/atlas/

>gnatmake -v
GNATMAKE GPL 2012 (20120509)

>gfortran -v
Thread model: posix
gcc version 4.6.3 (Ubuntu/Linaro 4.6.3-1ubuntu5)

>gnatmake cxbi.adb -largs ifinc.o -lgfortran -lm
gnatbind -x cxbi.ali
gnatlink cxbi.ali ifinc.o -lgfortran -lm

>./cxbi
Integer number passing:
mode: in out in/out
Ada send:
           1          1          1
  Fortran get:
            1           1           1
  Fortran send:
            2           2           2
Ada recieve:
           1          2          2
Ada send:
          -1         -1         -1
  Fortran get:
           -1          -1          -1
  Fortran send:
            0           0           0
Ada recieve:
          -1          0          0
>
-------------------------------


thanks again Simon for your help.

--Nasser