OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_2.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.