interface assignment (=)
module procedure xx
end interface
contains
attributes(device) subroutine xx (qa, qb)
type (dd) ,intent (out):: qa
type (dd), intent (in):: qb
qa%dda= qb%dda
return
end subroutine
The procedure the contians interface assignment (=) work well on host ,but on device it can’t work anyway.