gfortran testsuite: Remove unit-files in files having open-statements, PR116701
[official-gcc.git] / gcc / testsuite / gcc.c-torture / execute / 20001130-2.c
blob91b1db154ce522915109a0edfea91fd210cfe307
1 void abort (void);
2 void exit (int);
4 static int which_alternative = 3;
6 static const char *i960_output_ldconst (void);
8 static const char *
9 output_25 (void)
11 switch (which_alternative)
13 case 0:
14 return "mov %1,%0";
15 case 1:
16 return i960_output_ldconst ();
17 case 2:
18 return "ld %1,%0";
19 case 3:
20 return "st %1,%0";
24 static const char *i960_output_ldconst (void)
26 return "foo";
28 int main(void)
30 const char *s = output_25 () ;
31 if (s[0] != 's')
32 abort ();
33 exit (0);