gcc/testsuite/gfortran.dg/bounds_check_2.f

   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