1  /* Regression test for PR/77822.  */
       2  
       3  /* { dg-do compile } */
       4  /* { dg-options "-O3 -march=zEC12" } */
       5  
       6  void m_fn1();
       7  
       8  char m_datawidth;
       9  char m_subunits;
      10  int m_subunit_infos[1];
      11  
      12  int a;
      13  long b;
      14  void m_fn1() {
      15    int c = 32, d = m_datawidth / c;
      16    for (int e = 0; e < d; e++) {
      17      int f = e * 32;
      18      if (b >> f & 1)
      19        m_subunit_infos[m_subunits] = a;
      20    }
      21  }
      22  
      23  /* { dg-final { scan-assembler-not "risbg.*-\[0-9\]+\\\+1\n" } } */