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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
! Test the fix for pr40018 in which the elements in the array
! constructor would be of default type and this would cause an
! ICE in the backend because of the type mistmatch with 'i'.
!
! Contributed by Francois-Xavier Coudert 
!
  integer(kind=8) :: i
  write(*,*) [(i, i = 1, 10)]
  end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Test the fix for pr40018 in which the elements in the array`
3			`! constructor would be of default type and this would cause an`
4			`! ICE in the backend because of the type mistmatch with 'i'.`
5			`!`
6			`! Contributed by Francois-Xavier Coudert`
7			`!`
8			`integer(kind=8) :: i`
9			`write(,) [(i, i = 1, 10)]`
10			`end`

Browse

Tools

Subversion Repositories openrisc

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