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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20001017-1.c] - Blame information for rev 856

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

Line No. Rev Author Line
1 149 jeremybenn
 
2
void bug (double *Cref, char transb, int m, int n, int k,
3
          double a, double *A, int fdA, double *B, int fdB,
4
          double b, double *C, int fdC)
5
{
6
  if (C != Cref) abort ();
7
}
8
 
9
int main (void)
10
{
11
  double A[1], B[1], C[1];
12
 
13
  bug (C, 'B', 1, 2, 3, 4.0, A, 5, B, 6, 7.0, C, 8);
14
 
15
  return 0;
16
}
17
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.