OpenCores
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.fortran-torture/] [compile/] [pr36078.f90] - Rev 303

Compare with Previous | Blame | View Log

   subroutine foo(func,p,eval)
      real(kind=kind(1.0d0)), dimension(3,0:4,0:4,0:4) :: p
      logical(kind=kind(.true.)), dimension(5,5,5) :: eval
      interface
         subroutine func(values,pt)
            real(kind=kind(1.0d0)), dimension(:), intent(out) :: values
            real(kind=kind(1.0d0)), dimension(:,:), intent(in) :: pt
         end subroutine
      end interface
      real(kind=kind(1.0d0)), dimension(125,3) :: pt
      integer(kind=kind(1)) :: n_pt

      n_pt = 1
      pt(1:n_pt,:) = &
         reshape( &
            pack( &
               transpose(reshape(p,(/3,125/))), &
               spread(reshape(eval,(/125/)),dim=2,ncopies=3)), &
            (/n_pt,3/))

   end subroutine
   end 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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