FORTRAN “ multiple definition of `MAIN__'”

编译FORTRAN程序时，出现错误信息：“ multiple definition of `MAIN__'”

 

[root@c0108 parallel]# mpif90 -o simple stagsimple.F solveuss.F solvevss.F solvewss.F ppoisson.F tdma.F /tmp/ccMt8rzo.o: In function `MAIN__': tdma.F:(.text+0x820): multiple definition of `MAIN__' /tmp/ccZDnM6W.o:stagsimple.F:(.text+0x0): first defined here /usr/bin/ld: Warning: size of symbol `MAIN__' changed from 16639 in /tmp/ccZDnM6W.o to 2690 in /tmp/ccMt8rzo.o /tmp/ccMt8rzo.o: In function `MAIN__': tdma.F:(.text+0x9ff): undefined reference to `p_' tdma.F:(.text+0xa37): undefined reference to `req_receive_' tdma.F:(.text+0xb5c): undefined reference to `p_' tdma.F:(.text+0xe83): undefined reference to `p_' tdma.F:(.text+0xf72): undefined reference to `p_' tdma.F:(.text+0x108f): undefined reference to `p_' tdma.F:(.text+0x11fc): undefined reference to `p_' tdma.F:(.text+0x1297): undefined reference to `req_receive_'

 

 

遇到这种问题，先检查一下代码中，有没有多余的end

比如说，我的错误的子例行程序:

!tdma.F

SUBROUTINE TDMAP(IB,IE,JB,JE,KB,KE,P,SP,AA,AE,AW,AN,AS,AT,AB,

     & myid,mykb,myke)

 

...

end

...

end 

 

 

更多信息可参考邮件列表：http://gcc.gnu.org/ml/gcc-help/2003-12/msg00252.html