! { dg-do compile }! { dg-options "-std=f95" }! PR34227 Initialized symbol in COMMON: Missing checksprogram main
implicit noneinteger,parameter:: nmin =2character(len=3) ::emname(nmin)data emname/'bar','baz'/common/dd/emname ! { dg-error "can only be COMMON in BLOCK DATA" }end program main