Fortran: Fix PR 47485.

[gcc.git] / gcc / testsuite / g++.dg / debug / pr84704.C

// PR c++/84704
// { dg-do compile }
// { dg-options "-g -fcompare-debug -O2" }
// { dg-xfail-if "AIX compare debug" { powerpc-ibm-aix* } }

int a[1] = { 0 };

void
foo ()
{
  a[({ 0; })] %= 5;
}