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/] [intrinsic_argument_conformance_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`program main`	`program main`
`real :: av(2), bv(4)`	`real :: av(2), bv(4)`
`real :: a(2,2)`	`real :: a(2,2)`
`logical :: lo(3,2)`	`logical :: lo(3,2)`
`print *,dot_product(av, bv) ! { dg-error "different shape" }`	`print *,dot_product(av, bv) ! { dg-error "different shape" }`
`print *,pack(a, lo) ! { dg-error "different shape" }`	`print *,pack(a, lo) ! { dg-error "different shape" }`
`print *,merge(av, bv, lo(1,:)) ! { dg-error "different shape" }`	`print *,merge(av, bv, lo(1,:)) ! { dg-error "different shape" }`
`print *,matmul(bv,a) ! { dg-error "different shape" }`	`print *,matmul(bv,a) ! { dg-error "different shape" }`
`end program main`	`end program main`