URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [data_components_1.f90] - Blame information for rev 437

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	302	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [data_components_1.f90] - Blame information for rev 437