2

总而言之,我的问题在于在 C++ 应用程序中编译 g95 对象。实际上,我正在为一个旧的 fortran 程序构建一个接口。对于这个任务,我使用 wxWidgets GUI 库,并在必要时调用 fortran 子例程。一开始,我正在开发整个项目,使用 gfortran(GCC 附带)编译我的 fortran 文件,并通过 g++ -o... 命令将它们与我的应用程序链接。一切正常,但我的 fotran 子程序计算的一些数值返回了 NAN 值。做了一些研究,我意识到用带有 -m32 标志的 gfortran 编译我的 fortran 文件会产生这个 NAN 值问题。尽管使用 -m64 标志进行编译,但我的代码运行良好。这里唯一的麻烦是我的应用程序应该是 32 位的,然后我尝试了另一个编译器。在这里,我找到了 g95 Fortran 编译器,它编译我的 fortran 代码并在 32 位环境下提供正确的输出。但是当我试图将这些 g95 对象链接到我的程序中时,我看到以下错误:

g++ -oCyclonTechTower.exe src\fortran\Modulo_Global.o src\fortran\Prop_Fisicas.o src\fortran\inversa.o src\fortran\tower.o src\fortran\PredadeCarga.o src\fortran\gota.o src\fortran\tadi.o src\view\SimulationORSATCustomDialog.o src\view\SimulationChildGUIFrame.o src\view\ParentGUIFrame.o src\view\ClientGUIFrame.o src\model\TowerData.o src\controller\SimulationController.o src\THEIACyclonTechTower.o ..\Resource\resource.o -Lc:\wxWidgets-2.6.4\lib -Lc:\MinGW\lib\gcc-lib\i686-pc-mingw32\4.1.2 -Bdynamic -Wl,--subsystem,windows -mwindows c:\wxWidgets-2.6.4\lib\libwx_mswu-2.6.a -lwxregexu-2.6 -lwxexpat-2.6 -lwxtiff-2.6 -lwxjpeg-2.6 -lwxpng-2.6 -lwxzlib-2.6 -lrpcrt4 -loleaut32 -lole32 -luuid -lwinspool -lwinmm -lshell32 -lcomctl32 -lcomdlg32 -lctl3d32 -ladvapi32 -lwsock32 -lgdi32 -lgcc -lf95
**c:\MinGW\lib\gcc-lib\i686-pc-mingw32\4.1.2/libf95.a(main.o):(.text+0x32): undefined reference to `MAIN_'
collect2: ld returned 1 exit status**
Build error occurred, build is stopped
Time consumed: 1531  ms. 

我已经阅读了与 C++ 集成的 g95 手册,实际上我在下面调用这些函数来控制 fortran 环境: void g95_runtime_start(int argc, char *argv[]); 无效 g95_runtime_stop();

我还将 g95 Fortran 运行时库 libf95.a 和 libgcc.a 包含在我的链接器命令中。最后,我没有实现 main 方法,因为这是由 wxWidgets 管理的,而我的 fortran 子例程不能有 main 函数,因为这是一个调用 fortran 函数的 C++ 程序。

你们中的一些人可以帮我解决这个问题吗?如何解决这个未定义的对 MAIN__ 问题的引用?任何想法将不胜感激。

4

1 回答 1

0

我正在回答我自己的问题,因为我得到了解决方案。问题不在于我的 g95 集成。我只是覆盖 wxWidgets 主宏以进行 int 主函数初始化,如下所示:

// Give wxWidgets the means to create a MyApp object
//IMPLEMENT_APP(MyApp);

int main(int argc, char *argv[]) {

    //MyWxApp derives from wxApp
    MyApp *myapp = new MyApp();
    wxApp::SetInstance( myapp );
    wxEntryStart( argc, argv );
    myapp->OnInit();

    myapp->OnRun();
    myapp->OnExit();
    wxEntryCleanup();

}

顺便说一句,现在定义了所需的 main 函数,我的应用程序现在可以正常运行,没有 NAN 值。

我希望这个问题可以帮助其他人。

于 2010-03-08T17:05:06.650 回答