mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 15:56:40 +00:00
cadc70c1f0
A non-elemental specific procedure must take precedence over an elemental specific procedure in defined operator generic resolution. Fixes https://github.com/llvm/llvm-project/issues/124777.
89 lines
2.1 KiB
Fortran
89 lines
2.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Exercise ways to define and extend non-type-bound generics
|
|
|
|
module m1
|
|
type :: t1; end type
|
|
type :: t2; end type
|
|
interface operator(.eq.)
|
|
module procedure :: eq1
|
|
end interface
|
|
generic :: operator(==) => eq2
|
|
contains
|
|
logical function eq1(x, y)
|
|
type(t1), intent(in) :: x
|
|
type(t2), intent(in) :: y
|
|
eq1 = .true.
|
|
end function
|
|
logical function eq2(y, x)
|
|
type(t2), intent(in) :: y
|
|
type(t1), intent(in) :: x
|
|
eq2 = .true.
|
|
end function
|
|
subroutine test1
|
|
type(t1) :: a
|
|
type(t2) :: b
|
|
if (a == b .and. b .eq. a) print *, 'ok'
|
|
end subroutine
|
|
end module
|
|
|
|
module m2
|
|
use m1
|
|
type :: t3; end type
|
|
interface operator(==)
|
|
module procedure eq3
|
|
end interface
|
|
generic :: operator(.eq.) => eq4
|
|
contains
|
|
logical function eq3(x, y)
|
|
type(t1), intent(in) :: x
|
|
type(t3), intent(in) :: y
|
|
eq3 = .true.
|
|
end function
|
|
logical function eq4(y, x)
|
|
type(t3), intent(in) :: y
|
|
type(t1), intent(in) :: x
|
|
eq4 = .true.
|
|
end function
|
|
subroutine test2
|
|
type(t1) :: a
|
|
type(t2) :: b
|
|
type(t3) :: c
|
|
if (a == b .and. b .eq. a .and. a == c .and. c .eq. a) print *, 'ok'
|
|
end subroutine
|
|
end module
|
|
|
|
module m3
|
|
use m2
|
|
contains
|
|
logical function eq5(x, y)
|
|
type(t2), intent(in) :: x
|
|
type(t3), intent(in) :: y
|
|
eq5 = .true.
|
|
end function
|
|
logical function eq6(y, x)
|
|
type(t3), intent(in) :: y
|
|
type(t2), intent(in) :: x
|
|
eq6 = .true.
|
|
end function
|
|
subroutine test3
|
|
interface operator(==)
|
|
module procedure :: eq5
|
|
end interface
|
|
type(t1) :: a
|
|
type(t2) :: b
|
|
type(t3) :: c
|
|
if (a == b .and. b .eq. a .and. a == c .and. c .eq. a .and. b == c) print *, 'ok'
|
|
block
|
|
generic :: operator(.eq.) => eq6
|
|
if (a == b .and. b .eq. a .and. a == c .and. c .eq. a .and. b == c .and. c .eq. b) print *, 'ok'
|
|
end block
|
|
contains
|
|
subroutine inner
|
|
interface operator(.eq.)
|
|
module procedure :: eq6
|
|
end interface
|
|
if (a == b .and. b .eq. a .and. a == c .and. c .eq. a .and. b == c .and. c .eq. b) print *, 'ok'
|
|
end subroutine
|
|
end subroutine
|
|
end module
|