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

[bdavis at gcc dot gnu dot org]

gfortran gives an error, g77 accepts it without a problem



[bda...@localhost ~/tmp]$ cat a.f
      COMPLEX FUNCTION F0_HDEC*16(M1,M2,QSQ)
      RETURN
      END
      COMPLEX FUNCTION F1_HDEC*16(M1,M2,QSQ)
      RETURN 
      END
[bda...@localhost ~/tmp]$ /home/bdavis/g77/run/bin/g77 -c a.f
[bda...@localhost ~/tmp]$ gfortran -c a.f
a.f:1.30:

      COMPLEX FUNCTION F0_HDEC*16(M1,M2,QSQ)                            
                              1
Error: Expected formal argument list in function definition at (1)
a.f:4.30:

      COMPLEX FUNCTION F1_HDEC*16(M1,M2,QSQ)                            
                              1
Error: Expected formal argument list in function definition at (1)
a.f:2.72:

      RETURN                                                            
                                                                        1
a.f:5.72:

      RETURN                                                            
                                                                        2
Error: Two main PROGRAMs at (1) and (2)


-- 
           Summary: No more than one complex function in a file
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org


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