RosettaCodeData/Task/Call-a-function-in-a-shared-library/Fortran/call-a-function-in-a-shared-library-1.f

double add_n(double* a, double* b)
{
return *a + *b;
}