1! { dg-do compile } 2! 3! PR fortran/33117, PR fortran/46478 4! Procedures of a generic interface must be either 5! all SUBROUTINEs or all FUNCTIONs. 6! 7 8! 9! PR fortran/33117 10! 11module m1 12 interface gen 13 subroutine sub() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" } 14 end subroutine sub 15 function bar() 16 real :: bar 17 end function bar 18 end interface gen 19end module 20 21! 22! PR fortran/46478 23! 24MODULE m2 25 INTERFACE new_name 26 MODULE PROCEDURE func_name 27 MODULE PROCEDURE subr_name 28 END INTERFACE 29CONTAINS 30 LOGICAL FUNCTION func_name() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" } 31 END FUNCTION 32 SUBROUTINE subr_name() 33 END SUBROUTINE 34END MODULE 35