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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr38459.f90] - Blame information for rev 774

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


! { dg-options "-O2 -fgraphite-identity" }
# 1 "mltfftsg.F"
# 1 ""
SUBROUTINE mltfftsg ( a, ldax, lday, b, ldbx, ldby, &
                      n, m)
  INTEGER, PARAMETER :: dbl = SELECTED_REAL_KIND ( 14, 200 )
 
! Arguments
  INTEGER, INTENT ( IN ) :: ldbx, ldby, n, m
  COMPLEX ( dbl ), INTENT ( INOUT ) :: b ( ldbx, ldby )
 
   B(N+1:LDBX,1:M) = CMPLX(0._dbl,0._dbl,dbl)
 
END SUBROUTINE mltfftsg

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 -fgraphite-identity" }`
2			`# 1 "mltfftsg.F"`
3			`# 1 ""`
4			`SUBROUTINE mltfftsg ( a, ldax, lday, b, ldbx, ldby, &`
5			`n, m)`
6			`INTEGER, PARAMETER :: dbl = SELECTED_REAL_KIND ( 14, 200 )`
7
8			`! Arguments`
9			`INTEGER, INTENT ( IN ) :: ldbx, ldby, n, m`
10			`COMPLEX ( dbl ), INTENT ( INOUT ) :: b ( ldbx, ldby )`
11
12			`B(N+1:LDBX,1:M) = CMPLX(0._dbl,0._dbl,dbl)`
13
14			`END SUBROUTINE mltfftsg`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr38459.f90] - Blame information for rev 774