gcc/testsuite/gfortran.dg/data_components_1.f90

   1 ! { dg-do compile }
   2 ! Check the fix for PR30879, in which the structure
   3 ! components in the DATA values would cause a syntax
   4 ! error.
   5 !
   6 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   7 !
   8   TYPE T1
   9    INTEGER :: I
  10   END TYPE T1
  11
  12   TYPE(T1), PARAMETER :: D1=T1(2)
  13   TYPE(T1) :: D2(2)
  14
  15   INTEGER :: a(2)
  16
  17   DATA (a(i),i=1,D1%I) /D1%I*D1%I/
  18
  19   DATA (D2(i),i=1,D1%I) /D1%I*T1(4)/
  20
  21   print *, a
  22   print *, D2
  23   END