gcc/testsuite/gfortran.dg/unlimited_polymorphic_10.f90

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