Fortran: fix ALLOCATE with SOURCE of deferred character length [PR114019]
[official-gcc.git] / gcc / testsuite / gcc.dg / torture / pr49603.c
blob9bde9891a4c34fd8527357afd8e4af41b41a7aac
1 /* { dg-do compile } */
3 struct gl_visual {
4 float AlphaScale;
5 };
6 struct gl_context {
7 struct gl_visual *Visual;
8 };
9 void foo (char *);
10 void quickdraw_rgb( struct gl_context * ctx,
11 int width, int height)
13 int i, j;
14 unsigned char alpha[1600];
15 for (j=0; j<width; j++)
16 alpha[j] = (int) ctx->Visual->AlphaScale;
17 for (i=0; i<height; i++)
18 foo( alpha);