gcc/testsuite/gfortran.dg/reshape_zerosize_1.f90

   1 !  { dg-do run }
   2 !  PR 35960 - there was a run-time abort when the SHAPE argument to
   3 !  RESHAPE was zero-sized.
   4 !  Test case contributed by Dick Henderson.
   5       program try_gf1065
   6
   7
   8 ! fails on Windows XP
   9 ! gcc version 4.4.0 20080312 (experimental) [trunk revision 133139]
  10
  11
  12       call       gf1065(1,  2,  3,  4,  7,  8,  9)
  13       end
  14
  15       SUBROUTINE GF1065(nf1,nf2,nf3,nf4,nf7,nf8,nf9)
  16
  17       REAL RDA(10,9)
  18       REAL RCA1(90)
  19       integer ila(2)
  20       RDA(NF9:NF8, NF7:NF3) = RESHAPE(RCA1,(/0,0/), (/1.0/),(/2,1/))
  21
  22       rDA(NF9:NF8, NF7:NF3) = RESHAPE(rCA1,(/0,0/),ORDER=(/2,1/))
  23
  24       ILA(1) = 5
  25       ILA(2) = 0
  26       rDA(NF4:NF8, NF7:NF3) = RESHAPE(rcA1,ILA)
  27
  28       RdA(NF4:NF8, NF7:NF3) = RESHAPE(RcA1,ILA,PAD=(/-1.0/))
  29
  30       ILA(1) = 0
  31       ILA(2) = 5
  32       RdA(NF9:NF8,NF4:NF8)=RESHAPE(RcA1,ILA,(/-1.0/),(/NF2,NF1/))
  33
  34       ILA(1) = 5
  35       ILA(2) = 0
  36       RdA(NF4:NF8, NF7:NF3) = RESHAPE(RcA1,ILA,ORDER=(/NF1,NF2/))
  37
  38
  39       END SUBROUTINE