gcc/testsuite/gcc.dg/dfp/pragma-float-const-decimal64-4.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-std=gnu99" } */
   3
   4 /* N1312 7.1.1: The FLOAT_CONST_DECIMAL64 pragma.
   5    C99 6.4.4.2a (New).
   6
   7    Check that malformed versions of pragma STDC FLOAT_CONST_DECIMAL64
   8    are detected.  */
   9
  10 double a;
  11
  12 void f1 (void)
  13 {
  14 #pragma STDC FLOAT_CONST_DECIMAL64      /* { dg-warning "malformed" } */
  15   a = 1.0;
  16 }
  17
  18 void f2 (void)
  19 {
  20 #pragma STDC FLOAT_CONST_DECIMAL64 DFP  /* { dg-warning "malformed" } */
  21   a = 2.0;
  22 }
  23
  24 void f3 (void)
  25 {
  26 #pragma STDC FLOAT_CONST_DECIMAL64 ON DFP /* { dg-warning "junk at end" } */
  27   a = 3.0;
  28 }
  29
  30 void f4 (void)
  31 {
  32   _Pragma ( "STDC FLOAT_CONST_DECIMAL64" )      /* { dg-warning "malformed" } */
  33   a = 1.0;
  34 }
  35
  36 void f5 (void)
  37 {
  38   _Pragma ( "STDC FLOAT_CONST_DECIMAL64 DFP" )  /* { dg-warning "malformed" } */
  39   a = 2.0;
  40 }
  41
  42 void f6 (void)
  43 {
  44   _Pragma ( "STDC FLOAT_CONST_DECIMAL64 ON DFP" ) /* { dg-warning "junk at end" } */
  45   a = 3.0;
  46 }