URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [pragma-float-const-decimal64-1.c] - Rev 378
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do compile } */ /* { dg-options "-Wall" } */ /* N1312 7.1.1: The FLOAT_CONST_DECIMAL64 pragma. C99 6.4.4.2a (New). Verify that the pragma has the expected result by using unsuffixed float constants as operands in expressions that would mix binary and decimal operands if the pragma had no effect, or the wrong effect. */ #pragma STDC FLOAT_CONST_DECIMAL64 ON double a = 1.0 * 2.0dd; double f1 (void) { #pragma STDC FLOAT_CONST_DECIMAL64 OFF double b = 2.0 * 3.0d; { double c = 3.0 * 4.0d; b = b + c; } { #pragma STDC FLOAT_CONST_DECIMAL64 ON double d = 4.0 * 5.0dd; b = b + d; } { /* Default is OFF. */ #pragma STDC FLOAT_CONST_DECIMAL64 DEFAULT double e = 5.0 * 6.0d; b = b + e; } return b; } double f2 (void) { /* Use value from outer scope, which is ON. */ double b = 2.0 * 3.0dd; { #pragma STDC FLOAT_CONST_DECIMAL64 OFF double c = 3.0 * 4.0d; { #pragma STDC FLOAT_CONST_DECIMAL64 ON double d = 4.0 * 5.0dd; { #pragma STDC FLOAT_CONST_DECIMAL64 DEFAULT double e = 5.0 * 6.0d; { #pragma STDC FLOAT_CONST_DECIMAL64 ON double f = 6.0 * 7.0dd; b = a + b + c + d + e + f; } } } } return b; } /* Use previous value from this scope, which is ON. */ double f = 6.0 * 7.0dd; double f3 (void) { #pragma STDC FLOAT_CONST_DECIMAL64 OFF double b = 2.0 * 3.0d; return b + f; } /* Return to the state from this scope, which is ON. */ double g = 7.0 + 8.0dd;
Go to most recent revision | Compare with Previous | Blame | View Log