gcc/testsuite/gfortran.dg/blockdata_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-W -Wall" }
   3 ! Tests the fix for PR29539, in which the derived type in a blockdata
   4 ! cause an ICE.  With the fix for PR29565, this now compiles and runs
   5 ! correctly.
   6 !
   7 ! Contributed by Bernhard Fischer  <aldot@gcc.gnu.org>
   8 !
   9 block data
  10   common /c/ d(5), cc
  11   type c_t
  12     sequence
  13     integer i
  14   end type c_t
  15   type (c_t) :: cc
  16   data d /5*1./
  17   data cc%i /5/
  18 end
  19
  20   common /c/ d(5), cc
  21   type c_t
  22     sequence
  23     integer i
  24   end type c_t
  25   type (c_t) :: cc
  26   print *, d
  27   print *, cc
  28 end