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