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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-12.f] - Rev 302

Compare with Previous | Blame | 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
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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