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