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
24