blob: 42d834668ec17e89f96c8b5772d63a7a88a5214e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
|
