1! { dg-do compile } 2! Tests fix for PR21565 - object cannot be in namelist and block data. 3 block data 4 common /foo/ a 5 namelist /foo_n/ a ! { dg-error "not allowed in BLOCK DATA" } 6 data a /1.0/ 7 end 8