XL Fortran Enterprise Edition for AIX : User's Guide - IBM

Mixing Fortran and C++
Most of the information in this section applies to Fortran, C, and Pascal —
languages with similar data types and naming schemes. However, to mix Fortran
and C++ in the same program, you must add an extra level of indirection and pass
the interlanguage calls through C wrapper functions.
Because the C++ compiler mangles the names of some C++ objects, you must use
the xlC command to link the final program and include -L and -l options for the
XL Fortran library directories and libraries as shown in “Linking 32–Bit Non-SMP
Object Files Using the ld Command” on page 44.
program main
integer idim,idim1
idim = 35
idim1= 45
write(6,*) ’Inside Fortran calling first C function’
call cfun(idim)
write(6,*) ’Inside Fortran calling second C function’
call cfun1(idim1)
write(6,*) ’Exiting the Fortran program’
end
Figure 1. Main Fortran Program That Calls C++ (main1.f)
#include
#include "cplus.h"
extern "C" void cfun(int *idim);
extern "C" void cfun1(int *idim1);
void cfun(int *idim){
printf("%%%Inside C function before creating C++ Object\n");
int i = *idim;
junk* jj= new junk(10,30);
jj->store(idim);
jj->print();
printf("%%%Inside C function after creating C++ Object\n");
delete jj;
return;
}
void cfun1(int *idim1) {
printf("%%%Inside C function cfun1 before creating C++ Object\n");
int i = *idim1;
temp *tmp = new temp(40, 50.54);
tmp->print();
printf("%%%Inside C function after creating C++ temp object\n");
delete tmp;
return;
}
Figure 2. C Wrapper Functions for Calling C++ (cfun.C)
Interlanguage Calls 347