Interfacing a subprogram from C.

["Pedro Jose Garcia Gil" <pggil@isa.upv.es>]

Hello.

I want to use a function in C to program in Ada95.

For example (I have included all the realized steps.):

%%%%%%%%%%%% file "pepe.c" %%%%%
#include <stdio.h>
void pintar(int a){
printf("The number is : %d \n",a);
}
%%%%%%%%%%%%

$gcc -c pepe.c

%%%%%%%%%%% file prueba.adb %%%
with Ada.Text_IO; use Ada.Text_IO;

procedure prueba is
 pragma linker_options("prueba.o");

 procedure pintar(dato: integer);
 pragma import(C,pintar,"pintar");
 a: integer:=7;

begin
 pintar(a);
end prueba;

%%%%%%%%%%%%%%

$gnatmake prueba.adb
>>>>>>>>>>>>>>>>>>>>>>>>>
gnatbind -x prueba.ali
gnatlink prueba.ali
prueba.o: In function `_ada_prueba':
prueba.o(.text+0x0): multiple definition of `_ada_prueba'
./prueba.o(.text+0x0): first defined here
./prueba.o: In function `_ada_prueba':
./prueba.o(.text+0x10): undefined reference to `pintar'
prueba.o: In function `_ada_prueba':
prueba.o(.text+0x10): undefined reference to `pintar'
gnatmake: *** link failed.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


What am I doing wrong?.

It's necessary to compile with other options or include some file in
somewhere?.

Thank you very much.

Pedro.