summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/interface_4.f90
blob: 8f6c3317eefaf4dd193ca3fb1a934424f0db84e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
! { dg-do run }
! Tests the fix for the interface bit of PR29975, in which the
! interfaces bl_copy were rejected as ambiguous, even though
! they import different specific interfaces.
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk> and
! simplified by Tobias Burnus <burnus@gcc.gnu.org>
!
SUBROUTINE RECOPY(N, c)
  real, INTENT(IN) :: N
  character(6) :: c
  c = "recopy"
END SUBROUTINE RECOPY

MODULE f77_blas_extra
PUBLIC :: BL_COPY
INTERFACE BL_COPY
  MODULE PROCEDURE SDCOPY
END INTERFACE BL_COPY
CONTAINS
   SUBROUTINE SDCOPY(N, c)
    INTEGER, INTENT(IN) :: N
    character(6) :: c
    c = "sdcopy"
   END SUBROUTINE SDCOPY
END MODULE f77_blas_extra

MODULE f77_blas_generic
INTERFACE BL_COPY
   SUBROUTINE RECOPY(N, c)
    real, INTENT(IN) :: N
    character(6) :: c
   END SUBROUTINE RECOPY
END INTERFACE BL_COPY
END MODULE f77_blas_generic

program main
  USE f77_blas_extra
  USE f77_blas_generic
  character(6) :: chr
  call bl_copy(1, chr)
  if (chr /= "sdcopy") call abort ()
  call bl_copy(1.0, chr)
  if (chr /= "recopy") call abort ()  
end program main
! { dg-final { cleanup-modules "f77_blas_generic f77_blas_extra" } }