gcc/testsuite/gfortran.dg/uncommon_block_data_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for 25083, in which the compiler failed to detect that
   3 ! data variables in BLOCK DATA were not in COMMON.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7  BLOCK DATA D
   8   INTEGER I ! { dg-error "must be in COMMON" }
   9   DATA I /1/
  10  END BLOCK DATA
  11 END