1  /* Test the new (Fujitsu-compatible) __MDPACKH() interface.  */
       2  /* { dg-do run } */
       3  extern void exit (int);
       4  extern void abort (void);
       5  
       6  unsigned short x[] = { 0x8765, 0x1234, 0x2222, 0xeeee };
       7  
       8  int
       9  main ()
      10  {
      11    if (__MDPACKH (x[0], x[1], x[2], x[3]) != 0x876522221234eeeeULL)
      12      abort ();
      13    if (__MDPACKH (0x1111, 0x8001, 0xeeee, 0x7002) != 0x1111eeee80017002ULL)
      14      abort ();
      15    exit (0);
      16  }