Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

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

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

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

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

! relaxed.

! relaxed.

!

!

! Contributed by Paul Thomas 

! Contributed by Paul Thomas 

!

!

  common // a

  common // a

  common /b/ c

  common /b/ c

  integer d

  integer d

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

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

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

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

  data d /3/

  data d /3/

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

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

end

end