[Bug fortran/41160] No more than one complex function in a file

[jvdelisle at gcc dot gnu dot org]

------- Comment #4 from jvdelisle at gcc dot gnu dot org  2009-08-25 02:10 -------
This turns out to be the exact bug that Diego reported in his recent email. He
sent me the code off list.  g77 compiles it fine.  gfortran does this:

Obviously legacy code issue.  I wonder how many other cases we will bump in to.

hgaga.f:1.33:

      COMPLEX FUNCTION CFACQ_HDEC*16(ICASE,AMH,AMQ)                     
                                 1
Error: Expected formal argument list in function definition at (1)
hgaga.f:11.33:

      COMPLEX FUNCTION CKOFQ_HDEC*16(ICASE,RHO)                         
                                 1
Error: Expected formal argument list in function definition at (1)
hgaga.f:3.72:

      IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Z), COMPLEX*16 (C)           
                                                                        1
hgaga.f:15.72:

      PARAMETER(NN=999,N=461,NCUT1=46,NCUT2=54,NCUT3=251)               
                                                                        2
Error: Two main PROGRAMs at (1) and (2)
make: *** [hgaga.o] Error 1


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41160