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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [reshape_zerosize_1.f90] - Rev 694

Compare with Previous | Blame | View Log

!  { dg-do run }
!  PR 35960 - there was a run-time abort when the SHAPE argument to
!  RESHAPE was zero-sized.
!  Test case contributed by Dick Henderson.
      program try_gf1065


! fails on Windows XP
! gcc version 4.4.0 20080312 (experimental) [trunk revision 133139]


      call       gf1065(1,  2,  3,  4,  7,  8,  9)
      end

      SUBROUTINE GF1065(nf1,nf2,nf3,nf4,nf7,nf8,nf9)

      REAL RDA(10,9)
      REAL RCA1(90)
      integer ila(2)
      RDA(NF9:NF8, NF7:NF3) = RESHAPE(RCA1,(/0,0/), (/1.0/),(/2,1/))

      rDA(NF9:NF8, NF7:NF3) = RESHAPE(rCA1,(/0,0/),ORDER=(/2,1/))

      ILA(1) = 5
      ILA(2) = 0
      rDA(NF4:NF8, NF7:NF3) = RESHAPE(rcA1,ILA)

      RdA(NF4:NF8, NF7:NF3) = RESHAPE(RcA1,ILA,PAD=(/-1.0/))

      ILA(1) = 0
      ILA(2) = 5
      RdA(NF9:NF8,NF4:NF8)=RESHAPE(RcA1,ILA,(/-1.0/),(/NF2,NF1/))

      ILA(1) = 5
      ILA(2) = 0
      RdA(NF4:NF8, NF7:NF3) = RESHAPE(RcA1,ILA,ORDER=(/NF1,NF2/))


      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.