mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:16:39 +00:00
01e22dfb10
The right-hand sides of assignment statements are always expressions, never variables. When an assignment statement is converted into a call to a defined assignment subroutine, and the actual argument being associated with the second dummy argument is a variable, and the dummy argument does not have the VALUE attribute, wrap it with parentheses so that lowering will pass it by means of a temporary. Fixes https://github.com/llvm/llvm-project/issues/62599. Differential Revision: https://reviews.llvm.org/D150331
106 lines
2.0 KiB
Fortran
106 lines
2.0 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
|
|
! Check the analyzed form of a defined operator or assignment.
|
|
|
|
! Type-bound defined assignment
|
|
module m1
|
|
type :: t
|
|
contains
|
|
procedure :: b1 => s1
|
|
procedure, pass(y) :: b2 => s2
|
|
generic :: assignment(=) => b1, b2
|
|
end type
|
|
contains
|
|
subroutine s1(x, y)
|
|
class(t), intent(out) :: x
|
|
integer, intent(in), value :: y
|
|
end
|
|
subroutine s2(x, y)
|
|
real, intent(out) :: x
|
|
class(t), intent(in) :: y
|
|
end
|
|
subroutine test1(x)
|
|
type(t) :: x
|
|
real :: a
|
|
integer :: j
|
|
!CHECK: CALL s1(x,1_4)
|
|
x = 1
|
|
j = 1
|
|
!CHECK: CALL s1(x,j)
|
|
x = j ! no parentheses due to VALUE
|
|
!CHECK: CALL s2(a,(x))
|
|
a = x
|
|
end
|
|
subroutine test2(x)
|
|
class(t) :: x
|
|
real :: a
|
|
!CHECK: CALL x%b1(1_4)
|
|
x = 1
|
|
!CHECK: CALL (x)%b2(a)
|
|
a = x
|
|
end
|
|
end
|
|
|
|
! Type-bound operator
|
|
module m2
|
|
type :: t2
|
|
contains
|
|
procedure, pass(x2) :: b2 => f
|
|
generic :: operator(+) => b2
|
|
end type
|
|
contains
|
|
integer pure function f(x1, x2)
|
|
class(t2), intent(in) :: x1
|
|
class(t2), intent(in) :: x2
|
|
end
|
|
subroutine test2(x, y)
|
|
class(t2) :: x
|
|
type(t2) :: y
|
|
!CHECK: i=f(x,y)
|
|
i = x + y
|
|
!CHECK: i=x%b2(y)
|
|
i = y + x
|
|
end
|
|
end module
|
|
|
|
! Non-type-bound assignment and operator
|
|
module m3
|
|
type t
|
|
end type
|
|
interface assignment(=)
|
|
subroutine s1(x, y)
|
|
import
|
|
class(t), intent(out) :: x
|
|
integer, intent(in) :: y
|
|
end
|
|
subroutine s2(x, y)
|
|
real, intent(out) :: x
|
|
class(*), intent(in) :: y
|
|
end
|
|
subroutine s3(x, y)
|
|
integer, intent(out) :: x
|
|
class(*), intent(in), value :: y
|
|
end
|
|
end interface
|
|
interface operator(+)
|
|
integer function f(x, y)
|
|
import
|
|
class(t), intent(in) :: x, y
|
|
end
|
|
end interface
|
|
contains
|
|
subroutine test(x, y, z)
|
|
class(t) :: x, y
|
|
class(*), intent(in) :: z
|
|
real :: a
|
|
!CHECK: CALL s1(x,2_4)
|
|
x = 2
|
|
!CHECK: i=f(x,y)
|
|
i = x + y
|
|
!CHECK: CALL s2(a,(z))
|
|
a = z
|
|
!CHECK: CALL s3(i,z)
|
|
i = z
|
|
end
|
|
end
|