Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/mvbits_5.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { 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