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/] [implied_do_1.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do "run" }
! PR fortran/29458 - spurious warning for implied do-loop counter
 
  integer :: n, i
  i = 10
  n = 5
  n = SUM((/(i,i=1,n)/))
 
  ! 'i' must not be changed
  IF (i /= 10) CALL abort()
END

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do "run" }`
2			`! PR fortran/29458 - spurious warning for implied do-loop counter`
3
4			`integer :: n, i`
5			`i = 10`
6			`n = 5`
7			`n = SUM((/(i,i=1,n)/))`
8
9			`! 'i' must not be changed`
10			`IF (i /= 10) CALL abort()`
11			`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/] [implied_do_1.f90] - Blame information for rev 384