2 ! Tests the fix for the interface bit of PR29975, in which the
3 ! interfaces bl_copy were rejected as ambiguous, even though
4 ! they import different specific interfaces. In this testcase,
5 ! it is verified that ambiguous specific interfaces are caught.
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> and
8 ! simplified by Tobias Burnus <burnus@gcc.gnu.org>
10 SUBROUTINE RECOPY(N
, c
)
20 MODULE PROCEDURE SDCOPY
23 SUBROUTINE SDCOPY(N
, c
)
29 END MODULE f77_blas_extra
31 MODULE f77_blas_generic
33 SUBROUTINE RECOPY(N
, c
)
38 END MODULE f77_blas_generic
41 USE f77_blas_extra
! { dg-warning "ambiguous interfaces" }
45 if (chr
/= "recopy") call abort ()
46 end subroutine i_am_ok
49 USE f77_blas_extra
! { dg-error "Ambiguous interfaces" }
50 USE f77_blas_generic
! { dg-error "Ambiguous interfaces" }
53 call bl_copy(1.0, chr
)
54 if (chr
/= "recopy") call abort ()