Fortran: fix ALLOCATE with SOURCE of deferred character length [PR114019]
[official-gcc.git] / gcc / testsuite / gcc.dg / torture / pr52943.c
blobda35c9d184b8e6e40af7f47e72c434c883262077
1 /* { dg-do run } */
3 extern void abort (void);
4 int a[] = { 0, 0, 0, 6 };
6 int b;
7 int
8 main ()
10 for (;;)
12 b = 3;
13 for (; b; b -= 1)
14 a[b] = a[3] > 1;
15 break;
17 if (a[1] != 0)
18 abort ();
19 return 0;