summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/intrinsic_7.f90
blob: 69bca663b630e6b5af32d586974d93feb5b02d57 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-do compile }
!
! PR fortran/46411
!
! MOVE_ALLOC and other non-elemental but pure
! procedures where regarded as impure.
!

pure subroutine test()
  integer, allocatable :: a, b
  allocate(a,b)
  call move_alloc(a,b)
end subroutine test