1! { dg-do compile } 2! { dg-options "-std=f95" } 3! Tests constraints for variables in a data statement that are commonly 4! relaxed. 5! 6! Contributed by Paul Thomas <pault@gcc.gnu.org> 7! 8 common // a 9 common /b/ c 10 integer d 11 data a /1/ ! { dg-error "common block variable" } 12 data c /2/ ! { dg-error "common block variable" } 13 data d /3/ 14 data d /4/ ! { dg-error " re-initialization" } 15end 16