Fortran: fix NULL without MOLD argument to scalar DT pointer dummy [PR118179]
[official-gcc.git] / gcc / testsuite / c-c++-common / pr88664-1.c
blob5e680b9ae900b35550c1554ccb68de4d3daf68de
1 /* PR c/88664. */
2 /* { dg-do compile } */
3 /* { dg-options "-O" } */
5 struct data
7 void *ptr;
8 } __attribute__((packed));
10 int *
11 fun1 (struct data *p)
13 return (int *) p->ptr;
16 int *
17 fun2 (struct data *p, int *x)
19 return x ? (*x = 1, (int *) p->ptr) : (int *) 0;