gcc/testsuite/gfortran.dg/blockdata_5.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)=(/'bar','baz'/)
   8  common/nmstr/emname ! { dg-error "can only be COMMON in BLOCK DATA" }
   9 end program main
  10