!RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s
module rgbCUDA
  type rgb
    real v(3)
  end type
  interface assignment (=)
     module procedure rgbEqR3
  end interface
  interface operator(*)
     module procedure rgbTimesR
  end interface
contains
  attributes(device) subroutine rgbEqR3(rgbout, rin)
    type(rgb), intent(out) :: rgbout
    real(4), intent(in) :: rin(3)
    rgbout%v = rin
  end
  attributes(device) function rgbTimesR(rgbin, rin) result(res)
    type(rgb), intent(in) :: rgbin
    real(4), intent(in) :: rin
    real(4) :: res(3)
    res = rgbin%v * rin
  end
  attributes(device) function color() result(res)
    type(rgb) :: res
    real :: attenuation
!CHECK: CALL rgbeqr3(res,[REAL(4)::0._4,0._4,0._4])
    res = [0.0, 0.0, 0.0]
    attenuation = 0.5
!CHECK: CALL rgbeqr3(res,rgbtimesr(res,attenuation))
    res = res * attenuation
  end
end