OpenCores
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.0rc3/] [gcc/] [testsuite/] [gcc.dg/] [ipa/] [ipa-5.c] - Blame information for rev 516

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
/* { dg-do compile } */
2
/* { dg-options "-O3 -fipa-cp -fipa-cp-clone -fdump-ipa-cp -fno-early-inlining"  } */
3
/* { dg-add-options bind_pic_locally } */
4
 
5
/* Float & short constants.  */
6
 
7
#include <stdio.h>
8
void t(void);
9
int g (float b, short c)
10
{
11
  t();
12
  return c + (int)b;
13
}
14
int f (float a)
15
{
16
  t();
17
  /* a is modified.  */
18
  if (a++ > 0)
19
    g (a, 3);
20
}
21
int main ()
22
{
23
  int i;
24
  for (i = 0; i < 100; i++)
25
    f (7.6);
26
  return 0;
27
}
28
 
29
 
30
/* { dg-final { scan-ipa-dump-times "versioned function" 2 "cp"  } } */
31
/* { dg-final { scan-ipa-dump "replacing param c with const 3" "cp"  } } */
32
/* { dg-final { scan-ipa-dump "replacing param a with const 7" "cp"  } } */
33
/* { dg-final { cleanup-ipa-dump "cp" } } */

powered by: WebSVN 2.1.0

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