RosettaCodeData/Task/Call-a-foreign-language-function/Fortran/call-a-foreign-language-function-1.f

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