gcc/testsuite/gfortran.dg/data_constraints_2.f90

   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" }
  15 end