OSDN Git Service

2010-11-10 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / 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