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

Subversion Repositories openrisc

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

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


      subroutine foo(a)
      logical bar
      dimension a(12,2)
      dimension b(12,8)
      if(cd .eq. 1) then
         if (bar) write(iw,*) norb
         if(ef.ne.1) then
            do i=1,norb
            end do
         end if
      end if
         do 400 j = 1,8
            b(i,j) = 0
  400    continue
         do 410 j=1,norb
            a(i,j) = 0
  410    continue
      call rdrsym(b)
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`subroutine foo(a)`
2			`logical bar`
3			`dimension a(12,2)`
4			`dimension b(12,8)`
5			`if(cd .eq. 1) then`
6			`if (bar) write(iw,*) norb`
7			`if(ef.ne.1) then`
8			`do i=1,norb`
9			`end do`
10			`end if`
11			`end if`
12			`do 400 j = 1,8`
13			`b(i,j) = 0`
14			`400 continue`
15			`do 410 j=1,norb`
16			`a(i,j) = 0`
17			`410 continue`
18			`call rdrsym(b)`
19			`end`

Browse

Tools

Subversion Repositories openrisc

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