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
2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
bind_c_usage_24_c.c
blob
ffc90b728b5e1f1f241da8f20ba397d87d35ceda
1
/* Compiled and linked by bind_c.f90. */
2
3
#include <stdlib.h>
4
5
void
subtest
(
_Bool
,
int
*);
6
7
void
8
c_proc
(
_Bool present
,
int
*
val
)
9
{
10
int
val2
;
11
if
(!
present
&&
val
)
12
abort
();
13
else if
(
present
)
14
{
15
if
(!
val
)
abort
();
16
if
(*
val
!=
4
)
abort
();
17
*
val
=
7
;
18
}
19
20
val2
=
43
;
21
subtest
(
1
, &
val2
);
22
subtest
(
0
,
NULL
);
23
if
(
val2
!= -
45
)
abort
();
24
}