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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr41069_1.f90] - Blame information for rev 801

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


SUBROUTINE S(zin)
  COMPLEX(8), DIMENSION(3,3,3) :: zin
  INTEGER :: m,n
  CALL mltfftsg ( zin, m, n )
END SUBROUTINE
 
COMPLEX(8), DIMENSION(3,3,3) :: zin
CALL s(zin)
END
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`SUBROUTINE S(zin)`
2			`COMPLEX(8), DIMENSION(3,3,3) :: zin`
3			`INTEGER :: m,n`
4			`CALL mltfftsg ( zin, m, n )`
5			`END SUBROUTINE`
6
7			`COMPLEX(8), DIMENSION(3,3,3) :: zin`
8			`CALL s(zin)`
9			`END`
10

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr41069_1.f90] - Blame information for rev 801