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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr36286.f90] - Blame information for rev 378

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O1 -ftree-loop-linear" }`
3			`! PR tree-optimization/36286`
4
5			`program test_count`
6			`integer, dimension(2,3) :: a, b`
7			`a = reshape( (/ 1, 3, 5, 2, 4, 6 /), (/ 2, 3 /))`
8			`b = reshape( (/ 0, 3, 5, 7, 4, 8 /), (/ 2, 3 /))`
9			`print '(3l6)', a.ne.b`
10			`print *, a(1,:).ne.b(1,:)`
11			`print *, a(2,:).ne.b(2,:)`
12			`print *, count(a.ne.b)`
13			`end program test_count`
14