URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40421.f] - Rev 742
Go to most recent revision | Compare with Previous | Blame | View Log
SUBROUTINE VROT2(N,DIS) IMPLICIT DOUBLE PRECISION (A-H,O-Z) PARAMETER(ZERO=0.0D+00) COMMON /SYMSPD/ PTR(3,144) DIMENSION DIS(3,2),TMP(3,2) DO I = 1,3 TMP1 = ZERO DO J = 1,3 TMP1 = TMP1 + PTR(I,N+J) END DO TMP(I,1) = TMP1 END DO DO I = 1,3 DIS(I,1) = TMP(I,1) END DO RETURN END
Go to most recent revision | Compare with Previous | Blame | View Log