mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-12-28 08:30:35 +00:00
109 lines
1.4 KiB
C
109 lines
1.4 KiB
C
/* Copyright (C) 2004 Free Software Foundation.
|
|
|
|
PR other/18665
|
|
Verify that -ftrapv doesn't produce bogus results
|
|
on 64-bit platforms.
|
|
|
|
Written by Eric Botcazou */
|
|
|
|
/* { dg-do run } */
|
|
/* { dg-options "-ftrapv" } */
|
|
|
|
extern void abort(void);
|
|
extern long labs(long);
|
|
|
|
int __attribute__((noinline))
|
|
iabsv(int a)
|
|
{
|
|
return abs(a);
|
|
}
|
|
|
|
int __attribute__((noinline))
|
|
iaddv(int a, int b)
|
|
{
|
|
return a + b;
|
|
}
|
|
|
|
int __attribute__((noinline))
|
|
isubv(int a, int b)
|
|
{
|
|
return a - b;
|
|
}
|
|
|
|
int __attribute__((noinline))
|
|
imulv(int a, int b)
|
|
{
|
|
return a * b;
|
|
}
|
|
|
|
int __attribute__((noinline))
|
|
inegv(int a)
|
|
{
|
|
return -a;
|
|
}
|
|
|
|
long __attribute__((noinline))
|
|
labsv(long a)
|
|
{
|
|
return labs(a);
|
|
}
|
|
|
|
long __attribute__((noinline))
|
|
laddv(long a, long b)
|
|
{
|
|
return a + b;
|
|
}
|
|
|
|
long __attribute__((noinline))
|
|
lsubv(long a, long b)
|
|
{
|
|
return a - b;
|
|
}
|
|
|
|
long __attribute__((noinline))
|
|
lmulv(long a, long b)
|
|
{
|
|
return a * b;
|
|
}
|
|
|
|
long __attribute__((noinline))
|
|
lnegv(long a)
|
|
{
|
|
return -a;
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
if (iabsv (-1) != 1)
|
|
abort ();
|
|
|
|
if (iaddv (2,-3) != -1)
|
|
abort ();
|
|
|
|
if (isubv (2,3) != -1)
|
|
abort ();
|
|
|
|
if (imulv (-2,3) != -6)
|
|
abort ();
|
|
|
|
if (inegv (-1) != 1)
|
|
abort ();
|
|
|
|
if (labsv (-1L) != 1L)
|
|
abort ();
|
|
|
|
if (laddv (2L,-3L) != -1L)
|
|
abort ();
|
|
|
|
if (lsubv (2L,3L) != -1L)
|
|
abort ();
|
|
|
|
if (lmulv (-2L,3L) != -6L)
|
|
abort ();
|
|
|
|
if (lnegv (-1L) != 1L)
|
|
abort ();
|
|
|
|
return 0;
|
|
}
|