URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [predcom-2.f] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! PR 32220, ICE when the loop is not unrolled enough to eliminate all ! register copies ! { dg-do compile } ! { dg-options "-O3" } subroutine derv (b,cosxy,thick) c common /shell4/xji(3,3) c dimension cosxy(6,*), 1 thick(*),b(*) c do 125 i=1,3 b(k2+i)=xji(i,1) + xji(i,2) + xji(i,3) 125 b(k3+i)=cosxy(i+3,kk) + cosxy(i,kk) c c return end
Go to most recent revision | Compare with Previous | Blame | View Log