gcc/testsuite/gfortran.dg/blockdata_10.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 88009: [9 Regression] ICE in find_intrinsic_vtab, at fortran/class.c:2761
   4 !
   5 ! Contributed by G. Steinmetz <gscfq@t-online.de>
   6
   7 module m
   8    class(*), allocatable :: z
   9 end
  10 block data
  11    use m
  12    z = 'z'  ! { dg-error "assignment statement is not allowed|Unexpected assignment statement" }
  13 end