1! { dg-do run }
2! { dg-options "-fdump-tree-original" }
3!
4! PR fortran/48820
5!
6! Ensure that the value of scalars to assumed-rank arrays is
7! copied back - and everything happens in the correct order.
8
9call sub(f())
10contains
11subroutine sub(x)
12  integer, pointer :: x(..)
13end subroutine sub
14function f() result(res)
15  integer, pointer :: res
16end function f
17end
18
19! { dg-final { scan-tree-dump " = f \\(\\);.*desc.0.dtype = .*;.*desc.0.data = .void .. D.*;.*sub \\(&desc.0\\);.*D.*= .integer.kind=4. .. desc.0.data;" "original" } }
20
21