scc

simple c99 compiler
git clone git://git.simple-cc.org/scc
Log | Files | Refs | Submodules | README | LICENSE

0238-fcasts.c (370B)

      1 float f1 = 1.0;
      2 float f2 = 1.0l;
      3 double d1 = 1.0f;
      4 double d2 = 1.0l;
      5 
      6 int
      7 main(void)
      8 {
      9 	double epsilon = 0.001;
     10 
     11 	if (f1 < 1.0f - epsilon || f1 > 1.0f + epsilon)
     12 		return 1;
     13 	if (f2 < 1.0f - epsilon || f2 > 1.0f + epsilon)
     14 		return 2;
     15 	if (d1 < 1.0f - epsilon || d1 > 1.0f + epsilon)
     16 		return 3;
     17 	if (d2 < 1.0f - epsilon || d2 > 1.0f + epsilon)
     18 		return 4;
     19 	return 0;
     20 }