OpenCores

URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [mvbits_5.f90] - Rev 302

Compare with Previous | Blame | View Log

! { dg-do run }

! PR fortran/38887
! This aborted at runtime for the runtime zero-sized array arguments.

! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>

program try_ya0013
  integer ida(9)
  call ya0013(ida,1,5,6)
end program

SUBROUTINE YA0013(IDA,nf1,nf5,nf6)
  INTEGER IDA(9)
  IDA = 1
  CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2)
END SUBROUTINE

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.