gcc/testsuite/gcc.dg/sso/t13.c

   1 /* { dg-do run } */
   2
   3 #include <stdio.h>
   4
   5 #include "init13.h"
   6 #include "dump.h"
   7
   8 int main (void)
   9 {
  10   struct R1 Local_R1;
  11   struct R2 Local_R2;
  12
  13   Local_R1.F = My_R1.F + (1.0f + 1.0f * I);
  14
  15   put ("Local_R1 :");
  16   dump (&Local_R1, sizeof (struct R1));
  17   new_line ();
  18   /* { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0.*\n" } */
  19
  20   Local_R2.F = My_R2.F + (1.0f + 1.0f * I);
  21
  22   put ("Local_R2 :");
  23   dump (&Local_R2, sizeof (struct R2));
  24   new_line ();
  25   /* { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db.*\n" } */
  26
  27   Local_R1.F = Pi - Pi * I;
  28
  29   put ("Local_R1 :");
  30   dump (&Local_R1, sizeof (struct R1));
  31   new_line ();
  32   /* { dg-output "Local_R1 : db 0f 49 40 db 0f 49 c0.*\n" } */
  33
  34   Local_R2.F = Pi - Pi * I;
  35
  36   put ("Local_R2 :");
  37   dump (&Local_R2, sizeof (struct R2));
  38   new_line ();
  39   /* { dg-output "Local_R2 : 40 49 0f db c0 49 0f db.*\n" } */
  40
  41   Local_R1.F = Local_R1.F + (1.0f + 1.0f * I);
  42
  43   put ("Local_R1 :");
  44   dump (&Local_R1, sizeof (struct R1));
  45   new_line ();
  46   /* { dg-output "Local_R1 : ee 87 84 40 db 0f 09 c0.*\n" } */
  47
  48   Local_R2.F = Local_R2.F + (1.0f + 1.0f * I);
  49
  50   put ("Local_R2 :");
  51   dump (&Local_R2, sizeof (struct R2));
  52   new_line ();
  53   /* { dg-output "Local_R2 : 40 84 87 ee c0 09 0f db.*\n" } */
  54
  55   new_line ();
  56   return 0;
  57 }