! { dg-do run } ! { dg-options "-fdump-tree-original" } ! ! PR fortran/48820 ! ! Ensure that the value of scalars to assumed-rank arrays is ! copied back - and everything happens in the correct order. call sub(f()) contains subroutine sub(x) integer, pointer :: x(..) end subroutine sub function f() result(res) integer, pointer :: res end function f end ! { 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" } } ! { dg-final { cleanup-tree-dump "original" } }