34137553f9
2000-10-17 Franz Sirl <Franz.Sirl-kernel@lauterbach.com> * gcc.c-torture/execute/20001017-1.c: New test. From-SVN: r36913
18 lines
435 B
C
18 lines
435 B
C
|
|
void bug (double *Cref, char transb, int m, int n, int k,
|
|
double a, double *A, int fdA, double *B, int fdB,
|
|
double b, double *C, int fdC)
|
|
{
|
|
if (C != Cref) abort ();
|
|
}
|
|
|
|
int main (void)
|
|
{
|
|
double A[1], B[1], C[1];
|
|
|
|
bug (C, 'B', 1, 2, 3, 4.0, A, 5, B, 6, 7.0, C, 8);
|
|
|
|
return 0;
|
|
}
|
|
|