1  /* { dg-do compile } */
       2  /* { dg-options "-fdump-ada-spec" } */
       3  
       4  struct S1 {
       5    struct {
       6      int i;
       7    } F;
       8  };
       9  
      10  struct S2 {
      11    union {
      12      int i;
      13    } F;
      14  };
      15  
      16  struct S3 {
      17    struct {
      18      int i;
      19    } F[2];
      20  };
      21  
      22  struct S4 {
      23    struct {
      24      struct S4 *next;
      25    } F;
      26  };
      27  
      28  struct S5 {
      29    struct {
      30      struct S5 *next;
      31    } F[2];
      32  };
      33  
      34  struct S6 {
      35    struct {
      36      struct S6 *next[2];
      37    } F;
      38  };
      39  
      40  struct S7 {
      41    struct {
      42      int i;
      43    } F1[2];
      44    struct {
      45      float f;
      46    } F2[2];
      47  };
      48  
      49  /* { dg-final { cleanup-ada-spec } } */