URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_32.f90] - Blame information for rev 858

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR41807 data statement with nested type constructors`
3			`! Test case provided by Steve Kargl`
4			`implicit none`
5
6			`type :: a`
7			`real :: x(3)`
8			`end type a`
9
10			`integer, parameter :: n = 3`
11
12			`type(a) :: b(n)`
13
14			`real, parameter :: d1(3) = (/1., 2., 3./)`
15			`real, parameter :: d2(3) = (/4., 5., 6./)`
16			`real, parameter :: d3(3) = (/7., 8., 9./)`
17
18			`integer :: i, z(n)`
19
20			`data (b(i), i = 1, n) /a(d1), a(d2), a(d3)/`
21			`data (z(i), i = 1, n) / 1, 2, 3/`
22
23			`if (any(z.ne.[1, 2, 3])) call abort`
24			`if (any(b(1)%x.ne.[1, 2, 3]) .or. &`
25			`any(b(2)%x.ne.[4, 5, 6]) .or. &`
26			`any(b(3)%x.ne.[7, 8, 9])) call abort`
27			`end`
28