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] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-O1 -ftree-loop-linear" }
! PR tree-optimization/36286
program test_count
integer, dimension(2,3) :: a, b
a = reshape( (/ 1, 3, 5, 2, 4, 6 /), (/ 2, 3 /))
b = reshape( (/ 0, 3, 5, 7, 4, 8 /), (/ 2, 3 /))
print '(3l6)', a.ne.b
print *, a(1,:).ne.b(1,:)
print *, a(2,:).ne.b(2,:)
print *, count(a.ne.b)
end program test_count
Go to most recent revision | Compare with Previous | Blame | View Log