Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f95" }

! Tests constraints for variables in a data statement that are commonly

! relaxed.

!

! Contributed by Paul Thomas 

!

  common // a

  common /b/ c

  integer d

  data a /1/            ! { dg-error "common block variable" }

  data c /2/            ! { dg-error "common block variable" }

  data d /3/

  data d /4/            ! { dg-error " re-initialization" }

end