PROGRAM CANDF implicit none real a,b,c a = 1.2 b = 3.4 call test(a,b,c) write(*,*)c end
#includevoid test_(float *a,float *b,float *c) { *c = *a+*b; printf("%lg,%lg,%lg\n",*a,*b,*c); }
candf: candf.o test.o pgf77 *.o -o candf candf.o: candf.f pgf77 -c candf.f test.o: test.c g77 -c test.c clean: rm -f Makefile~ *.c~ *.f~ *.o~ *.o candf