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