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