Question

I would like to write a C++ program that calls the mvndst_() subroutine from

http://www.math.wsu.edu/faculty/genz/software/fort77/mvndstpack.f

On Linux, if I create test.cc:

extern "C" {
    int mvndst_(int *, double *, double *, int *, double *, int *,
                double *, double *, double *, double *, int *);
};
int main() {
    return 0;
}

and compile via

g++ -c -o test.o test.cc
gfortran -c -o mvndstpack.o mvndstpack.f
gfortran -Mnomain -o test test.o mvndstpack.o

then I get

mvndstpack.o: In function `main':
mvndstpack.f:(.text+0x4a2a): multiple definition of `main'
test.o:test.cc:(.text+0x0): first defined here
collect2: ld returned 1 exit status

However, if I run strip -N main mvndstpack.o prior to linking, then the linking succeeds. Can someone explain why the -Mnomain flag did not work here? I’d also like to avoid a solution that uses “strip” since the behavior of “strip” on Mac OS X appears to be different (i.e., the -N option is not available, and I’m not sure of another way to obtain the right behavior). I’d also like to avoid editing the original Fortran source, if possible.

Details:
– GNU Fortran (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1
– g++ (Ubuntu/Linaro 4.6.1-9ubuntu3) 4.6.1
– GNU strip (GNU Binutils for Ubuntu) 2.21.53.20110810
– strip on Mac OS X 10.6 Snow Leopard

Answer 1

I can’t find any documentation for the -Mnomain option, but gfortran doesn’t complain about it (it seems to pass it on to the linker). But it also didn’t complain when I ran

gfortran -Mnoplatypus -o test test.o mvndstpack.o

So my guess is that it doesn’t support -Mnomain, and that it’s being silently ignored. (Either that, or there’s a -Mnoplatypus option, but that hardly seems likely.)

What worked for me was to comment out the PROGRAM TSTNRM .. END lines in mvndstpack.f (lines 15 through 62).

That’s probably the most sensible approach anyway; you don’t want to use the Fortran main program, so you might as well not compile it, rather than trying to trick the linker into ignoring it.

(If you prefer, you can use #if ... #endif or #ifdef ... #endif.)

EDIT:

Since your main program is in C++, you probably need to use g++, not gfortran, to create the executable:

g++ -c -o test.o test.cc
gfortran -c -o mvndstpack.o mvndstpack.f
g++ -o test test.o mvndstpack.o

(And at some point you’ll actually want to call the function.)