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