1! { dg-do compile } 2! Tests the fix for PR29652, in which ambiguous interfaces were not detected 3! with more than two specific procedures in the interface. 4! 5! Contributed by Daniel Franke <franke.daniel@gmail.com> 6! 7MODULE global 8INTERFACE iface 9 MODULE PROCEDURE sub_a 10 MODULE PROCEDURE sub_b ! { dg-error "Ambiguous interfaces" } 11 MODULE PROCEDURE sub_c 12END INTERFACE 13CONTAINS 14 SUBROUTINE sub_a(x) 15 INTEGER, INTENT(in) :: x 16 WRITE (*,*) 'A: ', x 17 END SUBROUTINE 18 SUBROUTINE sub_b(y) 19 INTEGER, INTENT(in) :: y 20 WRITE (*,*) 'B: ', y 21 END SUBROUTINE 22 SUBROUTINE sub_c(x, y) 23 REAL, INTENT(in) :: x, y 24 WRITE(*,*) x, y 25 END SUBROUTINE 26END MODULE 27