1! { dg-do run }
2
3! PR fortran/38887
4! This aborted at runtime for the runtime zero-sized array arguments.
5
6! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
7
8program try_ya0013
9  integer ida(9)
10  call ya0013(ida,1,5,6)
11end program
12
13SUBROUTINE YA0013(IDA,nf1,nf5,nf6)
14  INTEGER IDA(9)
15  IDA = 1
16  CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2)
17END SUBROUTINE
18