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