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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.misc-tests/] [gcov-8.c] - Rev 720

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

/* Check that gcov correctly rounds nearly zero to nonzero and nearly
   100 to not-100.
 
   Copyright (C) 2002 Free Software Foundation, Inc.
   Contributed by Nathan Sidwell <nathan@codesourcery.com>
*/
 
/* { dg-options "-fprofile-arcs -ftest-coverage" } */
/* { dg-do run { target native } } */
 
int proxy (int i)
{
  return i;
}
 
int foo (int i)
{
  if (i > 0) /* branch(1) */
    return proxy (1);
  else if (i < 0) /* branch(100) */
    return proxy (-1);
  else
    return proxy (0);
}
 
int baz (int i)
{
  if (i == 0) /* branch(99) */
    return proxy (0);
  else if (i > 0) /* branch(0)*/
    return proxy (1);
  else
    return proxy (-1);
}
 
int main ()
{
  int t = 0;
  int ix;
 
  for (ix = 0; ix != 1000; ix++)
    t += foo (ix) + baz (ix);
 
  return t == 0;
}
 
/* { dg-final { run-gcov branches {-b gcov-8.c } } } */
 

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

powered by: WebSVN 2.1.0

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