#include
extern "C" { void myup_(int * i, int * n, int * summe);}
int main(){
int i; int n = 10;
int summe = 0;
myup_( &i, &n, &summe);
std::cout << "Die Summe der Zahlen von 1 bis " << n ;
std::cout << " ist " << summe << std::endl;
}
Das Fortran-90-Unterprogramm
subroutine myup(i,n,summe)
implicit none
integer :: i, n, summe
do i=1, n
summe = summe+i
end do
end subroutine myup