gcc/testsuite/gfortran.dg/mvbits_5.f90

   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
   8 program try_ya0013
   9   integer ida(9)
  10   call ya0013(ida,1,5,6)
  11 end program
  12
  13 SUBROUTINE YA0013(IDA,nf1,nf5,nf6)
  14   INTEGER IDA(9)
  15   IDA = 1
  16   CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2)
  17 END SUBROUTINE