Linking c++ and fortran

Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 931 bytes --]

Hello

I´m trying to call a fortran routine from a c++ routine
using gcc resp. g77/g++ , but dont get it to work.
Can somebody tell me how to do it?

Best regards, Peter


I tried
	g77 -o main main.cpp sub1.f -lstdc++  

and get the linker error message
 
	/tmp/ccK77Fls.o: In function `main':
	/tmp/ccK77Fls.o(.text+0x26): undefined reference to `sub1_(void)'
	collect2: ld returned 1 exit status

I am using

g77 version egcs-2.91.66 19990314 (egcs-1.1.2 release) (from FSF-g77 version 
0.5.24-19981002)

The sourcefiles are main.cpp

#include "iostream.h"
int sub1_();
main()
{
	cout << "main" << "\n";
	sub1_();
}

and sub1.f

      integer function sub1()
      sub1=0
      write (6,*) 'sub1'
      return
      end

----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749

Re: Linking c++ and fortran

[Martin v. Loewis]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 217 bytes --]

> I´m trying to call a fortran routine from a c++ routine
> using gcc resp. g77/g++ , but dont get it to work.
> Can somebody tell me how to do it?

You need to declare the external function as extern "C".

Martin

Re: Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 475 bytes --]

Thanks a lot, that works

Martin v. Loewis schrieb:
> I´m trying to call a fortran routine from a c++ routine
> using gcc resp. g77/g++ , but dont get it to work.
> Can somebody tell me how to do it?

You need to declare the external function as extern "C".

Martin

----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749

Re: Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 475 bytes --]

Thanks a lot, that works

Martin v. Loewis schrieb:
> I´m trying to call a fortran routine from a c++ routine
> using gcc resp. g77/g++ , but dont get it to work.
> Can somebody tell me how to do it?

You need to declare the external function as extern "C".

Martin

----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749

Re: Linking c++ and fortran

[Martin v. Loewis]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 217 bytes --]

> I´m trying to call a fortran routine from a c++ routine
> using gcc resp. g77/g++ , but dont get it to work.
> Can somebody tell me how to do it?

You need to declare the external function as extern "C".

Martin

Re: Linking c++ and fortran

[Alexandre Oliva]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 514 bytes --]

On Mar  7, 2000, Peter_Hahne@t-online.de (Peter_Hahne) wrote:

> I´m trying to call a fortran routine from a c++ routine

> int sub1_();

You should probably have declare it as `extern "C"', to avoid C++ name
mangling.

-- 
Alexandre Oliva     http://www.ic.unicamp.br/~oliva/     Enjoy Guaraná
Cygnus Solutions, a Red Hat company        aoliva@{redhat, cygnus}.com
Free Software Developer and Evangelist    CS PhD student at IC-Unicamp
oliva@{lsd.ic.unicamp.br, gnu.org}   Write to mailing lists, not to me

Re: Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 394 bytes --]

Thanks a lot, that works.


> I´m trying to call a fortran routine from a c++ routine

> int sub1_();

You should probably have declare it as `extern "C"', to avoid C++ name
mangling.


----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749

Re: Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 394 bytes --]

Thanks a lot, that works.


> I´m trying to call a fortran routine from a c++ routine

> int sub1_();

You should probably have declare it as `extern "C"', to avoid C++ name
mangling.


----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749

Re: Linking c++ and fortran

[Alexandre Oliva]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 514 bytes --]

On Mar  7, 2000, Peter_Hahne@t-online.de (Peter_Hahne) wrote:

> I´m trying to call a fortran routine from a c++ routine

> int sub1_();

You should probably have declare it as `extern "C"', to avoid C++ name
mangling.

-- 
Alexandre Oliva     http://www.ic.unicamp.br/~oliva/     Enjoy Guaraná
Cygnus Solutions, a Red Hat company        aoliva@{redhat, cygnus}.com
Free Software Developer and Evangelist    CS PhD student at IC-Unicamp
oliva@{lsd.ic.unicamp.br, gnu.org}   Write to mailing lists, not to me

Linking c++ and fortran

[Peter_Hahne]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 931 bytes --]

Hello

I´m trying to call a fortran routine from a c++ routine
using gcc resp. g77/g++ , but dont get it to work.
Can somebody tell me how to do it?

Best regards, Peter


I tried
	g77 -o main main.cpp sub1.f -lstdc++  

and get the linker error message
 
	/tmp/ccK77Fls.o: In function `main':
	/tmp/ccK77Fls.o(.text+0x26): undefined reference to `sub1_(void)'
	collect2: ld returned 1 exit status

I am using

g77 version egcs-2.91.66 19990314 (egcs-1.1.2 release) (from FSF-g77 version 
0.5.24-19981002)

The sourcefiles are main.cpp

#include "iostream.h"
int sub1_();
main()
{
	cout << "main" << "\n";
	sub1_();
}

and sub1.f

      integer function sub1()
      sub1=0
      write (6,*) 'sub1'
      return
      end

----------------------------------------------------------------------
Dr.Peter Hahne, Zum Pitschgrund 7a, 64747 Breuberg Rai-Breitenbach,
Tel. +49 6165 912424, Fax +49 6165 912425, Mobile +49 171 5178749