Subversion Repositories openrisc_2011-10-31

! { dg-do run }

! { dg-do run }

! Tests the fix for the interface bit of PR29975, in which the

! Tests the fix for the interface bit of PR29975, in which the

! interfaces bl_copy were rejected as ambiguous, even though

! interfaces bl_copy were rejected as ambiguous, even though

! they import different specific interfaces.

! they import different specific interfaces.

!

!

! Contributed by Joost VandeVondele  and

! Contributed by Joost VandeVondele  and

! simplified by Tobias Burnus 

! simplified by Tobias Burnus 

!

!

SUBROUTINE RECOPY(N, c)

SUBROUTINE RECOPY(N, c)

  real, INTENT(IN) :: N

  real, INTENT(IN) :: N

  character(6) :: c

  character(6) :: c

  c = "recopy"

  c = "recopy"

END SUBROUTINE RECOPY

END SUBROUTINE RECOPY

MODULE f77_blas_extra

MODULE f77_blas_extra

PUBLIC :: BL_COPY

PUBLIC :: BL_COPY

INTERFACE BL_COPY

INTERFACE BL_COPY

  MODULE PROCEDURE SDCOPY

  MODULE PROCEDURE SDCOPY

END INTERFACE BL_COPY

END INTERFACE BL_COPY

CONTAINS

CONTAINS

   SUBROUTINE SDCOPY(N, c)

   SUBROUTINE SDCOPY(N, c)

    INTEGER, INTENT(IN) :: N

    INTEGER, INTENT(IN) :: N

    character(6) :: c

    character(6) :: c

    c = "sdcopy"

    c = "sdcopy"

   END SUBROUTINE SDCOPY

   END SUBROUTINE SDCOPY

END MODULE f77_blas_extra

END MODULE f77_blas_extra

MODULE f77_blas_generic

MODULE f77_blas_generic

INTERFACE BL_COPY

INTERFACE BL_COPY

   SUBROUTINE RECOPY(N, c)

   SUBROUTINE RECOPY(N, c)

    real, INTENT(IN) :: N

    real, INTENT(IN) :: N

    character(6) :: c

    character(6) :: c

   END SUBROUTINE RECOPY

   END SUBROUTINE RECOPY

END INTERFACE BL_COPY

END INTERFACE BL_COPY

END MODULE f77_blas_generic

END MODULE f77_blas_generic

program main

program main

  USE f77_blas_extra

  USE f77_blas_extra

  USE f77_blas_generic

  USE f77_blas_generic

  character(6) :: chr

  character(6) :: chr

  call bl_copy(1, chr)

  call bl_copy(1, chr)

  if (chr /= "sdcopy") call abort ()

  if (chr /= "sdcopy") call abort ()

  call bl_copy(1.0, chr)

  call bl_copy(1.0, chr)

  if (chr /= "recopy") call abort ()

  if (chr /= "recopy") call abort ()

end program main

end program main

! { dg-final { cleanup-modules "f77_blas_generic f77_blas_extra" } }

! { dg-final { cleanup-modules "f77_blas_generic f77_blas_extra" } }