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