aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/compile/930120-1.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gcc.c-torture/compile/930120-1.c')
-rw-r--r--gcc/testsuite/gcc.c-torture/compile/930120-1.c138
1 files changed, 0 insertions, 138 deletions
diff --git a/gcc/testsuite/gcc.c-torture/compile/930120-1.c b/gcc/testsuite/gcc.c-torture/compile/930120-1.c
deleted file mode 100644
index 95ac43c07ed..00000000000
--- a/gcc/testsuite/gcc.c-torture/compile/930120-1.c
+++ /dev/null
@@ -1,138 +0,0 @@
-union {
- short I[2];
- long int L;
- char C[4];
-} itolws;
-char *errflg;
-long int dot;
-short dotinc;
-long int expvf;
-
-char *
-f(fcount,ifp,itype,ptype)
- short fcount;
- char *ifp;
-{
- unsigned w;
- long int savdot, wx;
- char *fp;
- char c, modifier, longpr;
- union {
- double dval;
- struct {
- int i1;
- int i2;
- } ival;
- } dw;
- union {
- float fval;
- int ival;
- } fw;
- int gotdot = 0;
- while (fcount > 0) {
- fp = ifp;
- c = *fp;
- longpr = ((c >= 'A') & (c <= 'Z') | (c == 'f') | (c == '4') | (c == 'p') | (c == 'i'));
- if ((itype == 0) || (*fp == 'a')) {
- wx = dot;
- w = dot;
- } else {
- gotdot = 1;
- wx = get((int)dot, itype);
- if (!longpr) {
- w = (itolws.L=(wx), itolws.I[((dot)&3)>>1]);
- }
- }
- if (c == 'F') {
- dw.ival.i1 = wx;
- if (itype == 0) {
- dw.ival.i2 = expvf;
- }
- }
-
- modifier = *fp++;
- switch(modifier) {
- case ' ' :
- case '\t' :
- break;
- case 't':
- case 'T':
- printf("%T",fcount);
- return(fp);
- case 'r':
- case 'R':
- printf("%M",fcount);
- return(fp);
- case 'k':
- printf("%k",w);
- break;
- case 'K':
- printf("%K",wx);
- break;
- case 'a':
- psymoff(dot,ptype,":%16t");
- dotinc = 0;
- break;
- case 'p':
- psymoff(0,ptype,"%16t");
- break;
- case 'u':
- printf("%-8u",w);
- break;
- case 'U':
- printf("%-16U",wx); break;
- case 'c':
- case 'C':
- if (modifier == 'C') {
- printesc((int)(itolws.L=(wx), itolws.C[(dot)&3]));
- } else {
- printc((char)(itolws.L=(wx), itolws.C[(dot)&3]));
- }
- dotinc = 1;
- break;
- case 'b':
- printf("%-8x", (itolws.L=(wx), itolws.C[(dot)&3]));
- dotinc = 1;
- break;
- case 'B':
- printf("%-8o", (itolws.L=(wx), itolws.C[(dot)&3]));
- dotinc = 1;
- break;
- case 's':
- case 'S':
- savdot = dot;
- dotinc = 1;
- while ((c = (itolws.L=(wx), itolws.C[(dot)&3])) && (errflg == 0)) {
- dot = inkdot(1);
- if (modifier == 'S') {
- printesc(c);
- } else {
- printc(c);
- }
- endline();
- if (!(dot & 3))
- wx = get((int)dot, itype);
- }
- dotinc = dot - savdot + 1;
- dot = savdot;
- break;
- case 'i':
- if (gotdot) {
- wx = get((int)(dot & ~3), itype);
- }
- iDasm((int)(wx), (unsigned int)0, (unsigned int)(dot&~3));
- printc('\n');
- break;
- case 'f':
- fw.ival = wx;
- printf("%-16.9f", fw.fval);
- dotinc = 4;
- break;
- case 'F':
- printf("%-32.18F", dw.dval);
- dotinc = 8;
- break;
- }
- }
- return(fp);
-}