1! { dg-do run } 2! PR35991 run-time abort for CSHIFT of zero sized array 3! Divide by zero exception before the patch. 4 program try_gf0045 5 call gf0045( 9, 8) 6 end 7 8 subroutine GF0045(nf9,nf8) 9 REAL RDA(10) 10 REAL RDA1(0) 11 12 RDA(NF9:NF8) = CSHIFT ( RDA1 ,1) 13 14 END SUBROUTINE 15