URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [970915-0.f] - Rev 154
Compare with Previous | Blame | View Log
c { dg-do compile } * fixed by patch to safe_from_p to avoid visiting any SAVE_EXPR * node twice in a given top-level call to it. * (JCB com.c patch of 1998-06-04.) SUBROUTINE TSTSIG11 IMPLICIT COMPLEX (A-Z) EXTERNAL gzi1,gzi2 branch3 = sw2 / cw . * ( rdw * (epsh*gzi1(A,B)-gzi2(A,B)) . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) ) . + (-1./2. + 2.*sw2/3.) / (sw*cw) . * rdw * (epsh*gzi1(A,B)-gzi2(A,B) . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) . + rdw * (epsh*gzi1(A,B)-gzi2(A,B)) ) . * rup * (epsh*gzi1(A,B)-gzi2(A,B) . + rup * (epsh*gzi1(A,B)-gzi2(A,B)) ) . * 4.*(3.-tw**2) * gzi2(A,B) . + ((1.+2./tauw)*tw**2-(5.+2./tauw))* gzi1(A,B) RETURN END