repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fortran: fix NULL without MOLD argument to scalar DT pointer dummy [PR118179]
[official-gcc.git]
/
gcc
/
testsuite
/
c-c++-common
/
pr88664-1.c
blob
5e680b9ae900b35550c1554ccb68de4d3daf68de
1
/* PR c/88664. */
2
/* { dg-do compile } */
3
/* { dg-options "-O" } */
4
5
struct
data
6
{
7
void
*
ptr
;
8
}
__attribute__
((
packed
));
9
10
int
*
11
fun1
(
struct
data
*
p
)
12
{
13
return
(
int
*)
p
->
ptr
;
14
}
15
16
int
*
17
fun2
(
struct
data
*
p
,
int
*
x
)
18
{
19
return
x
? (*
x
=
1
, (
int
*)
p
->
ptr
) : (
int
*)
0
;
20
}