gcc/testsuite/gfortran.dg/intrinsic_7.f90

   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
   9 pure subroutine test()
  10   integer, allocatable :: a, b
  11   allocate(a,b)
  12   call move_alloc(a,b)
  13 end subroutine test