gcc/testsuite/gfortran.dg/blockdata_1.f90

   1 ! { dg-do run }
   2 ! tests basic block data functionality
   3 ! we didn't allow multiple block data program units
   4 block data
   5  common /a/ y(3)
   6  data y /3*1./
   7 end
   8
   9 blockdata d1
  10  common /a/ w(3)
  11  common /b/ u
  12  data u /1./
  13 end blockdata d1
  14
  15 block data d2
  16  common /b/ u
  17  common j ! { dg-warning "cannot contain blank COMMON" }
  18  data j /1/
  19 end block data d2
  20 !
  21 ! begin testing code
  22 common /a/ x(3)
  23 common /b/ y
  24 common i
  25
  26 if (any(x /= 1.)) call abort ()
  27 if (y /= 1. .or. i /= 1) call abort ()
  28 end