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  }