2N/Aref -D_def_map_ast=1

2N/Ahdr float,floatingpoint,math,values

2N/Asys filio,ioctl

2N/Alib qfrexp,qldexp

2N/Akey signed

2N/A

2N/Atst tmp_rmfail note{ open files cannot be removed }end execute{

2N/A #include <string.h>

2N/A #include <time.h>

2N/A int

2N/A main()

2N/A {

2N/A #if !_UWIN

2N/A int n;

2N/A char* s;

2N/A FILE* fr;

2N/A FILE* fw;

2N/A char file[16];

2N/A static char data[] = "0123456789";

2N/A s = file;

2N/A *s++ = '1';

2N/A *s++ = 'F';

2N/A *s++ = 'F';

2N/A *s++ = '3';

2N/A n = (int)time(0);

2N/A *s++ = (n & 0xF) + 'A';

2N/A *s++ = ((n >> 4) & 0xF) + 'A';

2N/A *s++ = ((n >> 8) & 0xF) + 'A';

2N/A *s++ = ((n >> 12) & 0xF) + 'A';

2N/A *s++ = '.';

2N/A *s++ = 'T';

2N/A *s++ = 'M';

2N/A *s++ = 'P';

2N/A *s = 0;

2N/A remove(file);

2N/A if (!(fw = fopen(file, "w")))

2N/A return 0;

2N/A if (!(fr = fopen(file, "r")))

2N/A {

2N/A fclose(fw);

2N/A remove(file);

2N/A return 0;

2N/A }

2N/A if (remove(file) < 0)

2N/A {

2N/A fclose(fr);

2N/A fclose(fw);

2N/A remove(file);

2N/A return 0;

2N/A }

2N/A if (fwrite(data, sizeof(data), 1, fw) != 1)

2N/A return 0;

2N/A fclose(fw);

2N/A if (fread(file, sizeof(data), 1, fr) != 1)

2N/A return 0;

2N/A fclose(fr);

2N/A if (strcmp(file, data) != 0)

2N/A return 0;

2N/A #endif

2N/A return 1;

2N/A }

2N/A}end

2N/A

2N/Amore void_int note{ voidptr is larger than int }end execute{

2N/A int

2N/A main()

2N/A {

2N/A return sizeof(char*) > sizeof(int) ? 0 : 1;

2N/A }

2N/A}end

2N/A

2N/Amore long_int note{ long is larger than int }end execute{

2N/A int

2N/A main()

2N/A {

2N/A return sizeof(long) > sizeof(int) ? 0 : 1;

2N/A }

}end

tst vax_asm note{ register layout ok for vax string operations }end execute{

int

main()

{

#ifndef vax

return absurd = -1;

#else

register int r11, r10, r9, r8, r7, r6;

r11 = r10 = r9 = r8 = r7 = r6 = -1;

asm("clrw r11");

asm("clrw r10");

asm("clrw r9");

asm("clrw r8");

asm("clrw r7");

asm("clrw r6");

if(sizeof(int) != sizeof(char*) || r11 || r10 || r9 || r8 || r7 || r6 )

return -1;

return 0;

#endif

}

}end

tst lib_cvt note{ native floating point conversions ok }end link{

_BEGIN_EXTERNS_

extern char* ecvt _ARG_((double, int, int*, int*));

extern char* fcvt _ARG_((double, int, int*, int*));

extern double strtod _ARG_((const char*, char**));

_END_EXTERNS_

int

main()

{

ecvt(0.0, 0, 0, 0);

fcvt(0.0, 0, 0, 0);

strtod(0, 0);

return 0;

}

}end

tst xopen_stdio note{ Stdio fseek/fflush are X/Open-compliant }end execute{

#define Failed(file) (unlink(file),1)

int

main(argc, argv)

int argc;

char** argv;

{ FILE *f1, *f2;

char file[1024], buf[1024], *f, *t;

int i, fd;

/* create file */

for(f = argv[0], t = file; (*t = *f++) != 0; )

t++;

*t++ = '.'; *t++ = 'D'; *t++ = 0;

if((fd = creat(file,0666)) < 0)

return 1;

for (i = 0; i < sizeof(buf); ++i)

buf[i] = '0' + (i%10);

for (i = 0; i < 16; ++i)

if (write(fd,buf,sizeof(buf)) != sizeof(buf))

return Failed(file);

close(fd);

if(!(f1 = fopen(file,"r+")) ||

(fd = dup(fileno(f1))) < 0 ||

!(f2 = fdopen(fd,"r+")) )

return Failed(file);

if(fread(buf, 1, 7, f2) != 7 || ftell(f2) != 7)

return Failed(file);

if(fseek(f1, 1010, 0) < 0 || ftell(f1) != 1010)

return Failed(file);

fflush(f2); /* this should set the seek location to 1010 */

if(ftell(f2) != 1010)

return Failed(file);

unlink(file);

return 0;

}

}end