JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

20000317 sourceware import

Browse Source
This commit is contained in:
Ranjith Kumaran
2000-03-17 22:48:54 +00:00
parent fae4c299f1
commit 03261851a1
420 changed files with 66815 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
libgloss/testsuite/libgloss.all/.gdbinit Normal file
View File

@ -0,0 +1,82 @@
define wec-test
set height 0
set remotedebug 0
echo Running array test...
load array-w89k.x
run
echo Running double test...
load double-w89k.x
run
echo Running float test...
load float-w89k.x
run
echo Running func test...
load func-w89k.x
run
echo Running io test...
load io-w89k.x
run
echo Running math test...
load math-w89k.x
run
echo Running memory test...
load memory-w89k.x
run
echo Running div test...
load div-w89k.x
run
echo Running struct test...
load struct-w89k.x
run
echo Running printf test...
load printf-w89k.x
run
echo Running varargs test...
load varargs-w89k.x
run
echo Running varargs2 test...
load varargs2-w89k.x
run
end
define oki-test
set height 0
set remotedebug 0
echo Running array test...
load array-op50n.x
run
echo Running double test...
load double-op50n.x
run
echo Running float test...
load float-op50n.x
run
echo Running func test...
load func-op50n.x
run
echo Running io test...
load io-op50n.x
run
echo Running math test...
load math-op50n.x
run
echo Running memory test...
load memory-op50n.x
run
echo Running div test...
load div-op50n.x
run
echo Running struct test...
load struct-op50n.x
run
echo Running printf test...
load printf-op50n.x
run
echo Running varargs test...
load varargs-op50n.x
run
echo Running varargs2 test...
load varargs2-op50n.x
run
end

221
libgloss/testsuite/libgloss.all/Makefile.in Normal file
View File

@ -0,0 +1,221 @@
srcdir = .
OBJROOT =
SRCROOT =
SHELL = /bin/sh
#
# this is for code to support embedded testing
#
SUPPORT=support.o
#
# to add a new test, put it's name here, and list the objects
# required too.
TESTS= misc.x float.x io.x memory.x double.x math.x func.x div.x \
printf.x varargs.x varargs2.x array.x struct.x misc.x
CFLAGS= -g
LDFLAGS_FOR_TARGET= -g
LIBS_FOR_TARGET = ${SUPPORT} ${LIBC_FOR_TARGET} ${LIBGCC_FOR_TARGET} \
${LIBC_FOR_TARGET}
#### Host, target, and site specific Makefile fragments come in here.
###
#
# This attempts to build the binaries. Ideally these are getting built
# under control of DejaGnu, but it's nice to build these for times
# when testing needs to be done by hand.
#
all: support.o ${TESTS}
#
# we create a false implicit rule to make a binary ".x" file from
# an object file. this also makes us an srecord and a dissasmbly
# cause if something goes wrong, we'll need them.
#
.SUFFIXES: .x
.o.x:
for script in ${SCRIPTS}; do \
echo Building $@ for $${script}... ; \
echo Link Line is ${LD_FOR_TARGET} \
${LDFLAGS_FOR_TARGET} $< -L${OBJROOT}/libgloss/${GLOSSDIR} \
-T${srcdir}/../../${GLOSSDIR}/$${script}.ld \
${SUPPORT} -o $*-$${script} $(LIBS_FOR_TARGET); \
${LD_FOR_TARGET} ${LDFLAGS_FOR_TARGET} $< -L${OBJROOT}/libgloss/${GLOSSDIR} \
-T${srcdir}/../../${GLOSSDIR}/$${script}.ld \
${SUPPORT} -o $*-$${script}.x $(LIBS_FOR_TARGET); \
if [ -s $*-$${script}.x ] ; then \
echo "Making an srecord for $@..." ; \
${OBJCOPY_FOR_TARGET} -O srec $*-$${script}.x $*-$${script}.srec ; \
echo "Making an disassembly file for $@..." ; \
rm -f $*-$${script}.dis ; \
${OBJDUMP_FOR_TARGET} -d $*-$${script}.x > $*-$${script}.dis ; \
else \
rm $*-$${script}.x ; \
echo "WARNING: $*-$${script} didn't build." ; \
fi ; \
touch $@ ; \
done
#
# here's all the dependancies. This is a little messy cause we want
# dependancies to work for the rule we just defined. this isn't
# tottally ideal cause if one of the architectures doesn't build. it
# relinks for all of the scrip0t files.
#
array.o: ${srcdir}/array.c
array.x: array-w89k.x array-op50n.x
array-w89k.x: array.o
array-op50n.x: array.o
float.o: ${srcdir}/float.c
float.x: float-w89k.x float-op50n.x
float-w89k.x: float.o
float-op50n.x: float.o
io.o: ${srcdir}/io.c
io.x: io-w89k.x io-op50n.x
io-w89k.x: io.o
io-op50n.x: io.o
memory.o: ${srcdir}/memory.c
memory.x: memory-w89k.x memory-op50n.x
memory-w89k.x: memory.o
memory-op50n.x: memory.o
double.o: ${srcdir}/double.c
double.x: double-w89k.x double-op50n.x
double-w89k.x: double.o
double-op50n.x: double.o
math.o: ${srcdir}/math.c
math.x: math-w89k.x math-op50n.x
math-w89k.x: math.o
math-op50n.x: math.o
misc.o: ${srcdir}/misc.c
misc.x: misc-w89k.x misc-op50n.x
misc-w89k.x: misc.o
misc-op50n.x: misc.o
func.o: ${srcdir}/func.c
func.x: func-w89k.x func-op50n.x
func-w89k.x: func.o
func-op50n.x: func.o
div.o: ${srcdir}/div.c
div.x: div-w89k.x div-op50n.x
div-w89k.x: div.o
div-op50n.x: div.o
struct.o: ${srcdir}/struct.c
struct.x: struct-w89k.x struct-op50n.x
struct-w89k.x: struct.o
struct-op50n.x: struct.o
printf.o: ${srcdir}/printf.c
printf.x: printf-w89k.x printf-op50n.x
printf-w89k.x: printf.o
printf-op50n.x: printf.o
varargs.o: ${srcdir}/varargs.c
varargs.x: varargs-w89k.x varargs-op50n.x
varargs-w89k.x: varargs.o
varargs-op50n.x: varargs.o
varargs2.o: ${srcdir}/varargs2.c
varargs2.x: varargs2-w89k.x varargs2-op50n.x
varargs2-w89k.x: varargs2.o
varargs2-op50n.x: varargs.o
misc.o: ${srcdir}/misc.c
misc.x: misc-w89k.x misc-op50n.x
misc-w89k.x: misc.o
misc-op50n.x: misc.o
#
# this attempts to build these test cases on a DOS box
#
DOSLIBS= ../lib/soft-flo/libc.a ../lib/soft-flo/libgcc.a ../lib/soft-flo/libc.a
LIBDIR= -L../lib
dos:
gcc -msoft-float -c support.c
gcc -msoft-float -c io.c
gcc -msoft-float -c float.c
gcc -msoft-float -c memory.c
gcc -msoft-float -c double.c
gcc -msoft-float -c func.c
gcc -msoft-float -c array.c
gcc -msoft-float -c math.c
gcc -msoft-float -c div.c
gcc -msoft-float -c struct.c
gcc -msoft-float -c printf.c
gcc -msoft-float -c varargs.c
gcc -msoft-float -c varargs2.c
gcc -msoft-float -c misc.c
ld ${LIBDIR} io.o -Tw89k.ld -o io-wec.x support.o ${DOSLIBS}
objcopy -O srec io-wec.x io-wec.sre
ld ${LIBDIR} io.o -Top50n.ld -o io-oki.x support.o ${DOSLIBS}
objcopy -O srec io-oki.x io-oki.sre
ld ${LIBDIR} func.o -Tw89k.ld -o func-wec.x support.o ${DOSLIBS}
objcopy -O srec func-wec.x func-wec.sre
ld ${LIBDIR} func.o -Top50n.ld -o func-oki.x support.o ${DOSLIBS}
objcopy -O srec func-oki.x func-oki.sre
ld ${LIBDIR} math.o -Tw89k.ld -o math-wec.x support.o ${DOSLIBS}
objcopy -O srec math-wec.x math-wec.sre
gcc ${LIBDIR} math.o -Top50n.ld -o math-oki.x support.o ${DOSLIBS}
objcopy -O srec math-oki.x math-oki.sre
gcc ${LIBDIR} float.o -Tw89k.ld -o flot-wec.x support.o ${DOSLIBS}
objcopy -O srec flot-wec.x flot-wec.sre
gcc ${LIBDIR} float.o -Top50n.ld -o flot-oki.x support.o ${DOSLIBS}
objcopy -O srec flot-oki.x flot-oki.sre
gcc ${LIBDIR} memory.o -Tw89k.ld -o mem-wec.x support.o ${DOSLIBS}
objcopy -O srec mem-wec.x mem-wec.sre
gcc ${LIBDIR} memory.c -Top50n.ld -o mem-oki.x support.o ${DOSLIBS}
objcopy -O srec mem-oki.x mem-oki.sre
gcc ${LIBDIR} double.o -Tw89k.ld -o doub-wec.x support.o ${DOSLIBS}
objcopy -O srec mem-wec.x doub-wec.sre
gcc ${LIBDIR} double.o -Top50n.ld -o doub-oki.x support.o ${DOSLIBS}
objcopy -O srec doub-oki.x doub-oki.sre
gcc ${LIBDIR} array.o -Tw89k.ld -o arry-wec.x support.o ${DOSLIBS}
objcopy -O srec arry-wec.x arry-wec.sre
gcc ${LIBDIR} array.o -Top50n.ld -o arry-oki.x support.o ${DOSLIBS}
objcopy -O srec arry-oki.x arry-oki.sre
gcc ${LIBDIR} div.o -Tw89k.ld -o div-wec.x support.o ${DOSLIBS}
objcopy -O srec div-wec.x div-wec.sre
gcc ${LIBDIR} div.o -Top50n.ld -o div-oki.x support.o ${DOSLIBS}
objcopy -O srec div-oki.x div-oki.sre
gcc ${LIBDIR} printf.o -Tw89k.ld -o printf-wec.x support.o ${DOSLIBS}
objcopy -O srec printf-wec.x printf-wec.sre
gcc ${LIBDIR} printf.o -Top50n.ld -o printf-oki.x support.o ${DOSLIBS}
objcopy -O srec printf-oki.x printf-oki.sre
gcc ${LIBDIR} struct.o -Tw89k.ld -o struct-wec.x support.o ${DOSLIBS}
objcopy -O srec struct-wec.x struct-wec.sre
gcc ${LIBDIR} struct.o -Top50n.ld -o struct-oki.x support.o ${DOSLIBS}
objcopy -O srec struct-oki.x struct-oki.sre
gcc ${LIBDIR} varargs.o -Tw89k.ld -o args-wec.x support.o ${DOSLIBS}
objcopy -O srec args-wec.x args-wec.sre
gcc ${LIBDIR} varargs.o -Top50n.ld -o args-oki.x support.o ${DOSLIBS}
objcopy -O srec args-oki.x args-oki.sre
gcc ${LIBDIR} varargs2.o -Tw89k.ld -o arg2-wec.x support.o ${DOSLIBS}
objcopy -O srec arg2-wec.x arg2-wec.sre
gcc ${LIBDIR} varargs2.o -Top50n.ld -o arg2-oki.x support.o ${DOSLIBS}
objcopy -O srec arg2-oki.x arg2-oki.sre
gcc ${LIBDIR} misc.o -Tw89k.ld -o misc-wec.x support.o ${DOSLIBS}
objcopy -O srec misc-wec.x misc-wec.sre
gcc ${LIBDIR} misc.o -Top50n.ld -o misc-oki.x support.o ${DOSLIBS}
objcopy -O srec misc-oki.x misc-oki.sre
# this is a minimalist testing API for these test cases to keep the
# outout standardized enough to help with automated testing.
support.o: ${srcdir}/../config/support.c
rootme=`pwd | sed -e 's@/[^/]*$$@@'`; \
$(CC_FOR_TARGET) $(CFLAGS_FOR_TARGET) -O2 $(INCLUDES) -c $<
doc:
clean mostlyclean:
rm -f a.out core *.i *~ *.o *-test *.srec *.dis *.map *.x
distclean maintainer-clean realclean: clean
rm -f Makefile config.status a.out
.PHONY: install info install-info clean-info
install:
info:
install-info:
clean-info:
Makefile: Makefile.in $(host_makefile_frag) $(target_makefile_frag)
$(SHELL) config.status

18
libgloss/testsuite/libgloss.all/array.c Normal file
View File

@ -0,0 +1,18 @@
/* WinBond bug report
this is a compile test. At one time static arrays over 500 elements
didn't work. We'll test both global and local array. If it compiles at
all, it it passes.
*/
#include <stdio.h>
static short aa[64][64];
static int bb[500];
main()
{
static short cc[64][64];
static int dd[500];
pass ("large arrays");
fflush(stdout);
}

54
libgloss/testsuite/libgloss.all/configure.in Normal file
View File

@ -0,0 +1,54 @@
# This file is a shell script fragment that supplies the information
# necessary to tailor a template configure script into the configure
# script appropriate for this directory. For more information, check
# any existing configure script.
srctrigger=io.c
srcname="libgloss testsuite"
target_dependent=true
# per-host:
# This is basically a hack so that we don't have to replicate the same
# defines in all the Makefiles. We put a standard set of definitions
# in host/any, and use them everywhere except DOS, which is braindead.
host_makefile_frag=../../config/default.mh
case "${host}" in
i[3456]86-*-go32)
host_makefile_frag=../../config/dos.mh
;;
esac
# per-target:
case "${target}" in
m68*-unknown-*)
target_makefile_frag=../config/m68k.mt
;;
hppa*-*-pro*)
target_makefile_frag=../config/hppa.mt
;;
sparclite-*-*)
target_makefile_frag=../config/sparcl.mt
;;
mips*-*-*)
target_makefile_frag=../config/mips.mt
;;
esac
# post-target:
case ${srcdir} in
.)
;;
*)
grep "source ${srcdir}/.gdbinit" .gdbinit >/dev/null 2>/dev/null || \
echo "source ${srcdir}/.gdbinit" >> .gdbinit
esac
objroot=`pwd | sed -e 's@/[^/]*$@@' -e 's@/[^/]*$@@' -e 's@/[^/]*$@@'`
srcroot=`echo $srcdir | sed -e 's@/[^/]*$@@' -e 's@/[^/]*$@@' -e 's@/[^/]*$@@'`
sed -e "s:^OBJROOT[ ]*=.*$:OBJROOT = ${objroot}:" -e "s:^SRCROOT[ ]*=.*$:SRCROOT = ${srcroot}:" \
${Makefile} > Makefile.tem
rm -f ${Makefile}
mv Makefile.tem ${Makefile}

35
libgloss/testsuite/libgloss.all/div.c Normal file
View File

@ -0,0 +1,35 @@
/* WinBond bug report
Please don't use "gcc -O3 -S hello.c" command, because it
will optimize "i/5" to be "2" in compile time.
*/
#include <stdio.h>
#define TESTSEED 10
main ()
{
int a1,b1,c1;
long a2,b2,c2;
double a3,b3,c3;
float a4,b4,c4;
char buf[20];
/* integer tests */
for (a1 = 1; a1 < 16; a1++) {
b1 = TESTSEED/a1;
c1 = TESTSEED%a1;
printf ("%d/%d = %d, ^ = %d\n", TESTSEED, a1, b1, c1);
if ((c1 + (a1 * b1)) == TESTSEED) {
sprintf (buf, "div %d by %d", TESTSEED, a1);
pass (buf);
} else {
sprintf (buf, "div %d by %d", TESTSEED, a1);
fail (buf);
}
fflush (stdout);
}
}

33
libgloss/testsuite/libgloss.all/double.c Normal file
View File

@ -0,0 +1,33 @@
/* Oki bug report [OKI001](gcc008_1)
The following program is not executed.
error messages are as follow.
illegal trap: 0x12 pc=d000d954
d000d954 08000240 NOP
*/
#include <stdio.h>
extern double dcall ();
main ()
{
double d1, d2, d3;
int i;
d1 = dcall (1.);
printf ("d1 = %e\n", d1);
pass ("double [OKI001]");
fflush(stdout);
}
double
dcall (d)
double d;
{
int Zero = 0;
return d + Zero;
}

20
libgloss/testsuite/libgloss.all/float.c Normal file
View File

@ -0,0 +1,20 @@
#include <stdio.h>
main()
{
float a,b,c;
a = 0.11;
b = 3.12;
c = a+b;
printf ("Print float, result with 'f' = %f\n", c);
printf ("Print float, result with 'e' = %e\n", c);
printf ("Print float, result with 'E' = %E\n", c);
printf ("Print float, result with 'g' = %g\n", c);
printf ("Print float, result with 'G' = %G\n", c);
pass ("float");
fflush (stdout);
}

26
libgloss/testsuite/libgloss.all/func.c Normal file
View File

@ -0,0 +1,26 @@
/* Oki bug report [OKI002](gcc008_2)
The following program is not executed.
Error message is as follow.
illegal trap: 0x12 pc=d000d954
d000d954 08000240 NOP
*/
#include <stdio.h>
#include <stdarg.h>
int func (int, ...);
void main ()
{
func (2, 1., 2., 3.);
pass ("func [OKI002]");
fflush (stdout);
}
int func (int i, ...)
{
return (i);
}

71
libgloss/testsuite/libgloss.all/io.c Normal file
View File

@ -0,0 +1,71 @@
/*
io.c -- Test the serial I/O.
*/
#define BUFSIZE 80
#include <stdio.h>
main()
{
char buf[100];
char *tmp;
int result;
/* test the lowest level output function */
result = outbyte ('&');
if (result != 0x0) {
pass ("outbyte");
} else {
fail ("outbyte");
}
/* try writing a string */
result = write ("Write Test:\n", 12);
print ("result was ");
putnum (result);
outbyte ('\n');
if (result == 12) {
pass ("write");
} else {
fail ("write");
}
/* try the print() function too */
result = print ("Print Test:\n");
print ("result was ");
putnum (result);
outbyte ('\n');
if (result == 12) {
pass ("print");
} else {
fail ("print");
}
/* try the iprintf() function too */
result = print ("Iprintf Test:\n");
print ("result was ");
putnum (result);
outbyte ('\n');
if (result == 14) {
pass ("iprintf");
} else {
fail ("iprintf");
}
/* try to read a string */
print ("Type 5 characters");
result = 0;
result = read (0, buf, 5);
print (buf);
if (result == 5) {
pass ("read");
} else {
fail ("read");
}
/* clear everything out */
fflush (stdout);
}

88
libgloss/testsuite/libgloss.all/math.c Normal file
View File

@ -0,0 +1,88 @@
/* Oki bug report [OKI004](gcc005)
The following computation is no work.
-1 / 1 => 1 (correct -1)
-1 % 2 => 1 (correct -1)
*/
#include <stdio.h>
main ()
{
long l1, l2, l6;
auto long l3;
long oza1, oza2, oza;
l1 = 1;
l2 = 2;
l3 = -1;
l6 = 6;
/*** test 1 ***/
oza = ((l3 / ((l1)--)) | (l6 <= (l3 % l2)));
printf ("test 1 has a result of %d.\n", oza);
if (oza != -1)
fail ("divide test [OKI004]");
else
pass ("divide test [OKI004]");
l1 = 1;
/*** test 2 ***/
oza1 = (l3 / ((l1)--));
oza2 = (l6 <= (l3 % l2));
oza = oza1 | oza2;
printf ("test 2 has a result of %d.\n", oza);
if (oza != -1)
fail ("modulos test [OKI004]");
else
pass ("modulos test [OKI004]");
fflush (stdout);
test_1();
}
/*
32760 / (1) = 32760
32760 / (-1) = 32760 -------> ERROR, same as you said.
32760 / (2) = 16380
32760 / (-2) = -2147467268 ----> ERROR
32760 / (3) = 10920
32760 / (-3) = -1431644845 ----> ERROR
32760 / (4) = 8190
32760 / (-4) = -8190
*/
test_1()
{
int value, i, j;
i = 32760;
j = 1;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = -1;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = 2;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = -2;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = 3;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = -3;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = 4;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
j = -4;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
}

38
libgloss/testsuite/libgloss.all/memory.c Normal file
View File

@ -0,0 +1,38 @@
/* WinBond bug report
malloc() returns 0x0.
test the memory calls. These test sbrk(), which is part of glue.c
for most architectures.
*/
#include <stdio.h>
#define BUFSIZE 80
main()
{
char *buf;
char *tmp;
char *result;
/* see if we can get some memory */
buf = (char *)malloc(BUFSIZE);
if (buf != 0x0) {
pass ("malloc");
} else {
fail ("malloc");
}
/* see if we can realloc it */
tmp = buf;
result = (char *)realloc (buf, BUFSIZE+100);
if ((buf != 0x0) && (result != 0x0)) {
pass ("realloc");
} else {
fail ("realloc");
}
/* see if we can free it up. FIXME: how to test free ?*/
free (buf);
fflush (stdout);
}

167
libgloss/testsuite/libgloss.all/misc.c Normal file
View File

@ -0,0 +1,167 @@
/*
* this file contains misc bug reports from WinBond.
*/
#include <stdio.h>
#include <math.h>
#if unix
#define pass(x) printf("PASS: %s\n", x);
#define fail(x) printf("FAIL: %s\n", x);
#endif
/*
The compare operation is error. Because the constant value 1.0 is
not correct. It seems compare with 0 in this statement.
HP-UX native:
dist is 0.301
PASS: float compare
*cp = be9a1cac, *cp1 = be9a1cac
PASS: float multiple 1
PASS: float multiple 2
32760 / (-2) = -16380
PASS: float divide 1
32760 / (-1) = -32760
PASS: float divide 1
These test only pass if the output matches:
Correct output is
1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0
1.0 = 1.000000E+00, 0.3010 = 3.010000E-01, -1.0 = -1.000000E+00
These test only pass if the outut matches:
Correct output is
ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
Test run on Oki:
dist is 0
PASS: float compare
*cp = be9a1cac, *cp1 = be9a1cac
PASS: float multiple 1
PASS: float multiple 2
32760 / (-2) = -2147467268
PASS: float divide 1
32760 / (-1) = 32760
PASS: float divide 1
These test only pass if the output matches:
Correct output is
1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0
1.0 = 1.586860E-318, 0.3010 = -1.009091E-303, -1.0 = 5.290504E-315
These test only pass if the outut matches:
Correct output is
ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315
*/
main()
{
float dist = 0.3010;
printf ("dist is %G\n", dist);
if ( dist < 1.0 ) {
pass ("float compare");
} else {
fail ("float compare");
}
test_1();
test_2();
test_3();
test_4();
fflush (stdout);
}
/*
* *cp = be9a1cac, *cp1 = 00000000
*/
test_1()
{
float i, ans, ans1;
unsigned int *cp=&ans, *cp1=&ans1;
i = 0.3010;
ans = (-1.0) * 0.3010 * 1.0; /* OK */
ans1 = (-1.0) * i * 1.0; /* Disaster */
printf ("*cp = %08x, *cp1 = %08x\n", *cp, *cp1);
if (*cp != 0xbe9a1cac) {
fail ("float multiple 1");
} else {
pass ("float multiple 1");
}
if (*cp1 != 0xbe9a1cac) {
fail ("float multiple 2");
} else {
pass ("float multiple 2");
}
}
/*
Positive integer divide Negative integer may get interesting result.
For examples:
EX1: 32760 / (-2) = -2147467268
*/
test_2()
{
int value, i, j;
i = 32760;
j = -2;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
if (value != -16380) {
fail ("float divide 1");
} else {
pass ("float divide 1");
}
}
/*
EX2: 32760 / (-1) = 32760
*/
test_3()
{
int value, i, j;
i = 32760;
j = -1;
value = i / (j);
printf ("%d / (%d) = %d\n", i, j, value);
if (value != -32760) {
fail ("float divide 1");
} else {
pass ("float divide 1");
}
}
/*
The data output format %e, %E, %g, %G in printf() can not work.
Please test the following example:
1.0 = 1.000000E+00, 0.3010 = 3.009999E-01, -1.0 = -1.000000E+00
ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315
*/
test_4()
{
float ans, ans1, ans2;
ans = 1.0;
ans1 = 0.3010;
ans2 = -1.0;
printf ("These test only pass if the output matches:\nCorrect output is\n1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0\n");
printf ("1.0 = %E, 0.3010 = %E, -1.0 = %E\n", 1.0, 0.3010, -1.0);
printf ("These test only pass if the outut matches:\nCorrect output is\nans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00\n");
printf ("ans = %E, ans1 = %E, ans2 = %E\n", ans, ans1, ans2);
}

31
libgloss/testsuite/libgloss.all/printf.c Normal file
View File

@ -0,0 +1,31 @@
/* Oki bug report [OKI006]
The following program is no work.
illegal trap: 0x12 pc=d000d954
d000d954 08000240 NOP
*/
#include <stdio.h>
main ()
{
int i, j, k;
print ("\r\nDemo Program Start\r\n");
printf ("Value = %d, %d\r\n", 2, 1);
pass ("printf [OKI006]");
/* Oki bug report [OKI007]
iprintf is no work.
"Value = 2, 1" string is not displayed.
break instruction trap (9) pc=4003c
0004003c 00000000 BREAK 0x0,0x0
*/
print ("\r\nDemo Program Start\r\n");
iprintf ("Value = %d, %d\r\n", 2, 1);
pass ("iprintf [OKI007]");
fflush (stdout);
}

65
libgloss/testsuite/libgloss.all/struct.c Normal file
View File

@ -0,0 +1,65 @@
/* Oki bug report, no number. Here's the output the error generates.
gcc -c -g -ansi oki008.c -o oki008.o -msoft-float
oki008.c: In function `Proc0':
oki008.c:50: internal error--insn does not satisfy its constraints:
(insn 37 35 24 (set (mem:DF (post_inc:DF (reg:SI 1 %r1)))
(reg:DF 48 %fr12)) 94 {reload_outdf+2} (nil)
(nil))
gcc: Internal compiler error: program cc1 got fatal signal 6
*/
#include <stdio.h>
typedef int Enumeration;
typedef int OneToFifty;
typedef char String30[31];
struct Record
{
struct Record *PtrComp;
Enumeration Discr;
Enumeration EnumComp;
OneToFifty IntComp;
String30 StringComp;
};
typedef struct Record RecordType;
typedef RecordType * RecordPtr;
typedef int boolean;
#include <stdio.h>
char buf[0x10000];
char *pbuf = buf;
char *_malloc(size)
{
char *p;
p = pbuf;
pbuf += size;
if (pbuf >= &buf[sizeof (buf)]) {
printf("_malloc error\n");
return (0);
}
return (p);
}
main()
{
Proc0();
pass ("struct");
fflush (stdout);
return (0);
}
RecordPtr PtrGlbNext;
Proc0()
{
extern char *_malloc();
register unsigned int i;
PtrGlbNext = (RecordPtr) _malloc(sizeof(RecordType));
}

46
libgloss/testsuite/libgloss.all/varargs.c Normal file
View File

@ -0,0 +1,46 @@
/* Oki bug report [OKI013]
Variable argments test failed.
Execution result.
val1, val2 = 1, 0
val1, val2 = 2, 0
val1, val2 = 3, 0
Note, this tests for ANSI style varargs.
*/
#include <stdio.h>
#include <stdarg.h>
int func(int, ...);
main()
{
func(2, 1., 2., 3.);
}
func(int i, ...)
{
va_list p;
int j;
va_start(p, i);
for (j = 1; j <= 3; ++j){
dequals(__LINE__, (double)j, va_arg(p, double));
}
va_end(p);
return (i);
}
dequals(int line, double val1, double val2)
{
iprintf ("val1, val2 = %d, %d\n", (int)val1, (int)val2);
if(val1 == val2)
pass ("varargs [OKI013]");
else
fail ("varargs [OKI013]");
fflush (stdout);
return;
}

48
libgloss/testsuite/libgloss.all/varargs2.c Normal file
View File

@ -0,0 +1,48 @@
/* Oki bug report [OKI013]
Variable argments test failed.
Execution result.
val1, val2 = 1, 0
val1, val2 = 2, 0
val1, val2 = 3, 0
Note, this test case for for traditional style C code.
*/
#include <stdio.h>
#include <varargs.h>
int func();
main()
{
func(1., 2., 3.);
}
func(va_alist)
va_dcl
{
va_list p;
double val1, val2;
int j;
va_start(p);
for (j = 1; j <= 3; ++j){
dequals((double)j, va_arg(p, double));
}
va_end(p);
return (p);
}
dequals(double val1, double val2)
{
iprintf ("val1 is %d, val2 is %d\n", (int)val1, (int)val2);
if (val1 == val2)
pass ("varargs2 [OKI013]");
else
fail ("varargs2 [OKI013]");
fflush (stdout);
return;
}