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