1! { dg-do compile } 2! PR25061 procedure name conflict 3! Test case from PR. 4INTERFACE I1 ! { dg-error "" } 5 SUBROUTINE S1(I) 6 END SUBROUTINE S1 7 SUBROUTINE S2(R) 8 END SUBROUTINE S2 9END INTERFACE I1 10CONTAINS 11 SUBROUTINE I1(I) ! { dg-error "already defined as a generic" } 12 END SUBROUTINE I1 13END 14 15