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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [matmul_4.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! Check the fix for PR28947, in which the mechanism for dealing`	`! Check the fix for PR28947, in which the mechanism for dealing`
`! with matmul (a, transpose (b)) would cause wrong results for`	`! with matmul (a, transpose (b)) would cause wrong results for`
`! a having a rank == 1.`	`! a having a rank == 1.`
`!`	`!`
`! Contributed by Harald Anlauf`	`! Contributed by Harald Anlauf`
`!`	`!`
`program gfcbug40`	`program gfcbug40`
`implicit none`	`implicit none`

`real :: h(3,3), mat(2,3)`	`real :: h(3,3), mat(2,3)`

`h(:,:) = - HUGE (1.0)/4 ! Preset unused elements suitably...`	`h(:,:) = - HUGE (1.0)/4 ! Preset unused elements suitably...`

`h(3,:) = 0`	`h(3,:) = 0`
`h(3,3) = 1`	`h(3,3) = 1`
`mat(:,:) = 1`	`mat(:,:) = 1`
`h(3,:) = h(3,:) + matmul (matmul (h(3,:), transpose (mat)), mat)`	`h(3,:) = h(3,:) + matmul (matmul (h(3,:), transpose (mat)), mat)`

`if (any (h(3,:) .ne. (/2.0, 2.0, 3.0/))) call abort ()`	`if (any (h(3,:) .ne. (/2.0, 2.0, 3.0/))) call abort ()`

`end program gfcbug40`	`end program gfcbug40`