Fix 'ptype' of a certain Ada modular type

[thirdparty/binutils-gdb.git] / binutils / testsuite / binutils-all / testprog.c

/* This program is used to test objcopy, readelf and strip.  */

extern int strcmp (const char *, const char *);
extern int printf (const char *, ...);

int common;
int global = 1;
static int local = 2;
static const char string[] = "string";

int
fn (void)
{
  return 3;
}

int
main (void)
{
  if (common != 0
      || global != 1
      || local != 2
      || strcmp (string, "string") != 0)
    {
      printf ("failed\n");
      return 1;
    }

  printf ("ok\n");
  return 0;
}