Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/graphite/scop-24.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
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); } }