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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [vector_subscript_6.f90] - Blame information for rev 708

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

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do compile }
2 
! { dg-options "-fdump-tree-original" }
3 
 
4 
subroutine test0(esss,Ix, e_x)
5 
  real(kind=kind(1.0d0)), dimension(:), intent(out) :: esss
6 
  real(kind=kind(1.0d0)), dimension(:), intent(in) :: Ix
7 
  integer(kind=kind(1)), dimension(:), intent(in) :: e_x
8 
  esss = Ix(e_x)
9 
end subroutine
10 
 
11 
subroutine test1(esss,Ix, e_x)
12 
  real(kind=kind(1.0d0)), dimension(:), intent(out) :: esss
13 
  real(kind=kind(1.0d0)), dimension(:), intent(in) :: Ix
14 
  integer(kind=4), dimension(:), intent(in) :: e_x
15 
  esss = Ix(e_x)
16 
end subroutine
17 
 
18 
subroutine test2(esss,Ix, e_x)
19 
  real(kind=kind(1.0d0)), dimension(:), intent(out) :: esss
20 
  real(kind=kind(1.0d0)), dimension(:), intent(in) :: Ix
21 
  integer(kind=8), dimension(:), intent(in) :: e_x
22 
  esss = Ix(e_x)
23 
end subroutine
24 
 
25 
subroutine test3(esss,Ix,Iyz, e_x, ii_ivec)
26 
  real(kind=kind(1.0d0)), dimension(:), intent(out) :: esss
27 
  real(kind=kind(1.0d0)), dimension(:), intent(in) :: Ix,Iyz
28 
  integer(kind=kind(1)), dimension(:), intent(in) :: e_x,ii_ivec
29 
  esss = esss + Ix(e_x) * Iyz(ii_ivec)
30 
end subroutine
31 
 
32 
! { dg-final { scan-tree-dump-not "malloc" "original" } }
33 
! { dg-final { cleanup-tree-dump "original" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.