trunk/gcc/testsuite/gfortran.dg/blockdata_6.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 ! PR34227 Initialized symbol in COMMON: Missing checks
   4 program main
   5  implicit none
   6  integer, parameter:: nmin = 2
   7  character(len=3) :: emname(nmin)
   8  data emname/'bar','baz'/
   9  common/dd/emname ! { dg-error "can only be COMMON in BLOCK DATA" }
  10 end program main