Mixing functions and subroutines in a generic interface is invalid. gfortran detects this but the error message is difficult to understand: Error: FUNCTION at (1) does not belong in a generic subroutine interface NAG f95: Error: b.f90, line 10: BAR and SUB must both be SUBROUTINEs or both be FUNCTIONs for generic GEN g95: Error: Interfaces of generic 'gen' at (1) must all be FUNCTIONs or SUBROUTINEs ifort -stand f95: fortcom: Warning: b.f90, line 6: Standard Fortran requires that within a scoping unit, two procedures that have the same generic name shall both be subroutines or both be functions. [BAR] Example: module mod implicit none interface gen subroutine sub() end subroutine sub function bar() real :: bar end function bar end interface gen end module mod
*** Bug 46478 has been marked as a duplicate of this bug. ***
Author: dfranke Date: Thu Jan 6 16:08:24 2011 New Revision: 168542 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=168542 Log: gcc/fortran/: 2011-01-06 Daniel Franke <franke.daniel@gmail.com> PR fortran/33117 PR fortran/46478 * parse.c (parse_interface): Remove check for procedure types. * interface.c (check_interface0): Verify that procedures are either all SUBROUTINEs or all FUNCTIONs. gcc/testsuite/: 2011-01-06 Daniel Franke <franke.daniel@gmail.com> PR fortran/33117 PR fortran/46478 * gfortran.dg/interface_33.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/interface_33.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/interface.c trunk/gcc/fortran/parse.c trunk/gcc/testsuite/ChangeLog
Fixed on trunk. Closing.