How to link a fortran subroutine to a cpp main program?

Question

I am trying to compile a c++ program but it does not work. At first, I should said that c++ is not a language I really know, I use Fortran. Anyway, the main c++ program calls a fortran subroutine. I can compile this subroutine but when I want to compile the c++ program there is a link error. The real program is just huge and calls many subroutines, so I did a simple test (simple program calling just one subroutine) and it does not work as well! When I want to create the .x my subroutine is undefined. Here is the c++ program (test-TQINIT.cpp) and the subroutine (TQINIT.f).

test-TQINIT.cpp:

  #include <iostream>

  using namespace std;

  extern "C"
  {
  void  TQINIT_(int*, int*);
  }

  main()
  { int NWG;
        NWG=80000;
    int *IWSG = new int[NWG];
 TQINIT_(IWSG,&NWG);
  }

TQINIT.f:

  SUBROUTINE TQINIT(IWSG,NWG)
  IMPLICIT NONE

  INTEGER NWG
  INTEGER IWSG(NWG)
  LOGICAL TQG2ERR
  INTEGER IERR

  CALL TQRSERR

  CALL TQINI(NWG,IWSG)

  IF (TQG2ERR(IERR)) THEN
    WRITE(6,*)'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
    WRITE(6,*)'ERROR INITIALIZING (TQINIT) !!!'
    WRITE(6,*)'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
    STOP
  ENDIF

  END

I compile the subroutine using:

  gfortran -c TQINIT.f

and get a TQINIT.o

Then I compile the main program using:

  g++ -c test-TQINIT.cpp

and get a test-TQINIT.o.

Then for create the .x I use (TQINIT.f need the library):

  g++ test-TQINIT.o TQINIT.o -L/usr/local/thermocalc/3.0/SDK/TQ8 -ltq-linux-x86_64-gfortran44-8 -o test-TQINIT.x

This is what I get:

  test-TQINIT.o: In function `main':
  test-TQINIT.cpp:(.text+0x33): undefined reference to `TQINIT_'
  collect2: ld returned 1 exit status

I hope someone will be able to help me. Thank you by advance.

the name of the subroutine in the object file is probably ``tqinit_`` and not ``TQINIT_``, so your call in C++ should be lowercase. — steabert, Sep 06 '13 at 17:37
You should have probably posted it as an answer. Even if you don't care about points it is easier for future visitors to look for upvoted and accepted answers. — Vladimir F Героям слава, Sep 06 '13 at 20:39
This is sort of a duplicate of a recent question: http://stackoverflow.com/questions/18491911/calling-c-from-fortran-linking-issue/18501301 — Sean Patrick Santos, Sep 08 '13 at 17:09

score 3 · Answer 1 · answered Sep 07 '13 at 07:46

3

Fortran is case-insensitive, and the name of the subroutines in the object file normally (as far as I know) end up in lowercase with an underscore, so yours is probably named tqinit_ and not TQINIT_, so your call in C++ should be lowercase.

You can verify the name in the object file with the objdump -t TQINIT.o command given in Alexander Vogt's answer, or the simpler nm TQINIT.o which is more terse.

answered Sep 07 '13 at 07:46

steabert

6,540
2
26
32

I have change all subroutine call using lowercase and it perfectly work. Thank you so much steabert. – user2755039 Sep 09 '13 at 23:38

score 1 · Answer 2 · edited May 23 '17 at 10:29

1

If you use the ISO_C_BINDING in Fortran, you will have control over the precise routine names that will be seen by the other language, e.g., case, no underscores. You can also declare the arguments so that consistency with C/C++ will be guaranteed. For more on this topic, see https://stackoverflow.com/questions/tagged/fortran-iso-c-binding

edited May 23 '17 at 10:29

Community

1
1

answered Sep 10 '13 at 02:57

M. S. B.

28,968
2
46
73

Alexander Vogt · Answer 3 · 2013-09-06T17:49:39.607

I'm no expert on mixing C and Fortran, but I have always linked the Fortran Code directly using

g++ test-TQINIT.cpp TQINIT.o -L/usr/local/thermocalc/3.0/SDK/TQ8 \
    -ltq-linux-x86_64-gfortran44-8 -o test-TQINIT.x

instead of compiling those two files separately and then linking... Perhaps this helps (although your way should work as well, at least it does with the simple example I tried).

BTW: You can find out how the functions in your Fortran object are called by issuing

objdump -t TQINIT.o

This should give you the correct function name to call.

How to link a fortran subroutine to a cpp main program?

3 Answers3