OSDN Git Service

2009-01-21 Daniel Kraft <d@domob.eu>
[pf3gnuchains/gcc-fork.git] / 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