1! { dg-do compile }
2!
3! PR fortran/58658
4!
5! Contributed by Vladim����r Fuka
6!
7subroutine sub(a)
8  class(*),allocatable :: a
9  a => null() ! { dg-error "Non-POINTER in pointer association context \\(pointer assignment\\)" }
10end subroutine
11