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