gcc/testsuite/gfortran.dg/zero_sized_4.f90

   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