diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/mvbits_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/mvbits_5.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/mvbits_5.f90 b/gcc/testsuite/gfortran.dg/mvbits_5.f90 new file mode 100644 index 000000000..42d834668 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/mvbits_5.f90 @@ -0,0 +1,17 @@ +! { dg-do run } + +! PR fortran/38887 +! This aborted at runtime for the runtime zero-sized array arguments. + +! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com> + +program try_ya0013 + integer ida(9) + call ya0013(ida,1,5,6) +end program + +SUBROUTINE YA0013(IDA,nf1,nf5,nf6) + INTEGER IDA(9) + IDA = 1 + CALL MVBITS(IDA(NF5:NF1), 0, 1, IDA(NF6:NF1),2) +END SUBROUTINE |