1  /* { dg-do compile } */
       2  
       3  double heating[2][2];
       4  
       5  void foo (int, int);
       6  
       7  void map_do()
       8  {
       9    int jsav, ksav, k, j;
      10  
      11    for(k = 0; k < 2; k++)
      12      for(j = 0; j < 2; j++)
      13        if (heating[k][j] > 0.)
      14          {
      15            jsav = j;
      16            ksav = k;
      17          }
      18  
      19    foo (jsav, ksav);
      20  }
      21  
      22