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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-11.f] - Blame information for rev 739

Go to most recent revision | Details | Compare with Previous | View Log


      subroutine foo(bar)
      dimension bar(100)
      common l_
  50  continue
      do i=1,20
        bar(i)=0
      enddo
      do 100 j=1,l_
        if(sum.gt.r) then
          bar(n2)=j
        end if
 100  continue
      if(bar(4).ne.0) go to 50
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`subroutine foo(bar)`
2			`dimension bar(100)`
3			`common l_`
4			`50 continue`
5			`do i=1,20`
6			`bar(i)=0`
7			`enddo`
8			`do 100 j=1,l_`
9			`if(sum.gt.r) then`
10			`bar(n2)=j`
11			`end if`
12			`100 continue`
13			`if(bar(4).ne.0) go to 50`
14			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-11.f] - Blame information for rev 739