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 40