b7a0482a0a
Name resolution was mishandling cases of generic interfaces and specific procedures (sometimes complicatd by use of the same name for each) when the specific procedure was accessed by means of host association; only the scope of the generic interface definition was searched for the specific procedure. Also search enclosing scopes in the usual way. Differential Revision: https://reviews.llvm.org/D135213
109 lines
2.4 KiB
Fortran
109 lines
2.4 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
! Tests rules of 15.5.5.2 for generics and explicit intrinsics
|
|
! competing at various scoping levels.
|
|
module m1
|
|
private
|
|
public abs
|
|
interface abs
|
|
module procedure :: abs_int_redef, abs_noargs
|
|
end interface
|
|
contains
|
|
integer function abs_int_redef(j)
|
|
integer, intent(in) :: j
|
|
abs_int_redef = j
|
|
end function
|
|
integer function abs_noargs()
|
|
abs_noargs = 0
|
|
end function
|
|
end module
|
|
|
|
module m2
|
|
private
|
|
public abs
|
|
interface abs
|
|
module procedure abs_real_redef
|
|
end interface
|
|
contains
|
|
real function abs_real_redef(x)
|
|
real, intent(in) :: x
|
|
abs_real_redef = x
|
|
end function
|
|
end module
|
|
|
|
module m3
|
|
use m1, only: abs
|
|
implicit none
|
|
contains
|
|
subroutine test1
|
|
use m2, only: abs
|
|
!CHECK: abs_int_redef(
|
|
print *, abs(1)
|
|
!CHECK: abs_real_redef(
|
|
print *, abs(1.)
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
end subroutine
|
|
subroutine test2
|
|
intrinsic abs ! override some of module's use of m1
|
|
block
|
|
use m2, only: abs
|
|
!CHECK: 1_4
|
|
print *, abs(1)
|
|
!CHECK: abs_real_redef(
|
|
print *, abs(1.)
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
end block
|
|
end subroutine
|
|
subroutine test3
|
|
interface abs
|
|
module procedure abs_complex_redef ! extend module's use of m1
|
|
end interface
|
|
!CHECK: abs_int_redef(
|
|
print *, abs(1)
|
|
!CHECK: 1._4
|
|
print *, abs(1.)
|
|
!CHECK: abs_complex_redef(
|
|
print *, abs((1,1))
|
|
!CHECK: abs_noargs(
|
|
print *, abs()
|
|
block
|
|
intrinsic abs ! override the extension
|
|
!CHECK: 1.41421353816986083984375_4
|
|
print *, abs((1,1))
|
|
end block
|
|
end subroutine
|
|
real function abs_complex_redef(z)
|
|
complex, intent(in) :: z
|
|
abs_complex_redef = z
|
|
end function
|
|
subroutine test4
|
|
!CHECK: abs(
|
|
print *, abs(1)
|
|
contains
|
|
integer function abs(n) ! override module's use of m1
|
|
integer, intent(in) :: n
|
|
abs = n
|
|
end function
|
|
end subroutine
|
|
end module
|
|
|
|
module m4
|
|
contains
|
|
integer function abs(n)
|
|
integer, intent(in) :: n
|
|
abs = n
|
|
end function
|
|
subroutine test5
|
|
interface abs
|
|
module procedure abs ! same name, host-associated
|
|
end interface
|
|
!CHECK: abs(
|
|
print *, abs(1)
|
|
end subroutine
|
|
end module
|