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