]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.base/langs0.c
import gdb-1999-06-28 snapshot
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.base / langs0.c
CommitLineData
c906108c
SS
1/* This file is actually in C, it is not supposed to simulate something
2 translated from another language or anything like that. */
085dd6e6
JM
3#ifdef PROTOTYPES
4extern int fsub_();
5
6int csub (int x)
7#else
c906108c
SS
8int
9csub (x)
10 int x;
085dd6e6 11#endif
c906108c
SS
12{
13 return x + 1;
14}
15
16int
17langs0__2do ()
18{
19 return fsub_ () + 2;
20}
21
22int
23main ()
24{
25#ifdef usestubs
26 set_debug_traps();
27 breakpoint();
28#endif
29 if (langs0__2do () == 5003)
30 /* Success. */
31 return 0;
32 else
33 return 1;
34}