1! PR 20894 2! { dg-do compile } 3! Originally contributed by Joost VandeVondele 4INTEGER, POINTER :: I,J 5INTEGER :: K 6ALLOCATE(I) 7J=>(I) ! { dg-error "Pointer assignment target is neither TARGET nor POINTER" } 8END 9