gcc/testsuite/gfortran.dg/blockdata_2.f90

   1 ! { dg-do compile }
   2 ! Test for pr29537 where we did ICE trying to dereference the NULL
   3 ! proc_name from an unnamed block data which we intended to use as locus
   4 ! for a blank common.
   5 block data
   6   common c
   7 end !block data
   8 end