1! { dg-do compile }
2!
3! PR fortran/46411
4!
5! MOVE_ALLOC and other non-elemental but pure
6! procedures where regarded as impure.
7!
8
9pure subroutine test()
10  integer, allocatable :: a, b
11  allocate(a,b)
12  call move_alloc(a,b)
13end subroutine test
14