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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [intrinsic_argument_conformance_1.f90] - Blame information for rev 841

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`program main`
3			`real :: av(2), bv(4)`
4			`real :: a(2,2)`
5			`logical :: lo(3,2)`
6			`print *,dot_product(av, bv) ! { dg-error "different shape" }`
7			`print *,pack(a, lo) ! { dg-error "different shape" }`
8			`print *,merge(av, bv, lo(1,:)) ! { dg-error "different shape" }`
9			`print *,matmul(bv,a) ! { dg-error "different shape" }`
10			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [intrinsic_argument_conformance_1.f90] - Blame information for rev 841