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