5 subroutine s1(*) ! { dg-error "Ambiguous interfaces" }
7 subroutine s2(*) ! { dg-error "Ambiguous interfaces" }
23 subroutine v1(*,*) ! { dg-error "Ambiguous interfaces" }
25 subroutine v2(*,*) ! { dg-error "Ambiguous interfaces" }
29 subroutine w1(*,i
) ! { dg-error "Ambiguous interfaces" }
31 subroutine w2(*,j
) ! { dg-error "Ambiguous interfaces" }