1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! PR fortran/19777
4      implicit none
5      integer          npts
6      parameter        (npts=10)
7      double precision v(npts)
8      double precision w(npts,npts,npts)
9      external         init1
10      external         init2
11
12      call init1 (npts, v)
13      call init2 (npts, w)
14      end
15
16      subroutine init1 (npts, v)
17      implicit none
18      integer          npts
19      double precision v(*)
20
21      integer          i
22
23      do 10 i = 1, npts
24         v(i) = 0
25 10   continue
26      end
27
28      subroutine init2 (npts, w)
29      implicit none
30      integer          npts
31      double precision w(npts,npts,*)
32
33      integer          i
34
35      do 20 i = 1, npts
36         w(i,1,1) = 0
37         w(1,npts,i) = 0
38 20   continue
39      end
40