1! { dg-do compile }
2program p
3 integer :: a(2), b(2), c(2)
4 data a /2*b1'/ ! { dg-error "must be a PARAMETER in DATA" }
5 data b /2*o1' ! { dg-error "must be a PARAMETER in DATA" }
6 data c /2*z1 ! { dg-error "must be a PARAMETER in DATA" }
7end
8