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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { 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 
!
  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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`
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`

Browse

Tools

Subversion Repositories openrisc

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