1! { dg-do compile }
2!
3! PR 44595: INTENT of arguments to intrinsic procedures not checked
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7subroutine test(f)
8  implicit none
9  integer, allocatable, intent(in) :: f
10  integer, allocatable :: t
11  call move_alloc(f,t)        ! { dg-error "cannot be INTENT.IN." }
12end subroutine
13