есть сишная либа:
//fact.c
int fact(int n)
{
int i,p;
p=1;
for(i=1;i<n;i++){
p=p*i;
}
return p;
}
gcc -c fact.c -o fact.o
ar cr libfact.a fact.o
пытаемся ее скормить фортрановскому коду:
# main.f
program demofactorial
integer*4 fact, n
print *, "What is n?"
read *, n
print *, "The value of", n, " factorial is", fact(n)
end
g77 -c main.f -o main.o
g77 main.o -L. -lfact -o demofact
получаем ошибку линковки:
main.o: In function `MAIN__':
main.f:(.text+0x170): undefined reference to `fact_'
collect2: ld returned 1 exit status
Внимание Вопрос! как слинковать это дело? Признательности за помощь не будет предела!!!
