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