URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.dg/] [ftrapv-2.c] - Rev 298
Go to most recent revision | Compare with Previous | Blame | View Log
/* 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; }
Go to most recent revision | Compare with Previous | Blame | View Log