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