Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/graphite/scop-24.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do compile } */ /* { dg-options "-Ofast -floop-nest-optimize" } */ typedef struct _IO_FILE FILE; extern struct _IO_FILE *stderr; typedef float real; typedef real rvec[3]; int rgbset (int); void ps_box (int, int); void plot_phi(char *fn,rvec box,int natoms,rvec x[],real phi[]) { real phi_max,rr,gg,bb,fac,dx,x0,y0; int i; for(i=0; (i<natoms); i++) phi_max=((phi_max > __builtin_fabs(phi[i])) ? phi_max : __builtin_fabs(phi[i])); if (__builtin_fabs(phi_max)<1.2e-38) __builtin_fprintf(stderr, "X"); ps_box((real)(fac*box[0]-1),(real)(fac*box[1]-1)); for(i=0; (i<natoms); i++) { rr=gg=bb=1.0; if (phi[i] < 0) gg=bb=(1.0+(phi[i]/phi_max)); else rr=gg=(1.0-(phi[i]/phi_max)); rr=rgbset(rr); } }