OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [cris/] [c/] [freopen2.c] - Rev 227

Go to most recent revision | Compare with Previous | Blame | View Log

/* Tests that stdin can be redirected from a normal file.  */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
int
main (void)
{
   const char* fname = "freopen.dat";
   const char tsttxt[]
       = "A random line of text, used to test correct freopen etc.\n";
   FILE* instream;
   FILE *old_stderr;
   char c1;
 
   /* Like the freopen call in flex.  */
   old_stderr = freopen (fname, "w+", stderr);
   if (old_stderr == NULL
      || fwrite (tsttxt, 1, strlen (tsttxt), stderr) != strlen (tsttxt)
      || fclose (stderr) != 0)
   {
      printf ("fail\n");
      exit (1);
   }
 
   instream = freopen(fname, "r", stdin);
   if (instream == NULL) {
      printf("fail\n");
      exit(1);
   }
 
   c1 = getc(instream);
   if (c1 != 'A') {
      printf("fail\n");
      exit(1);
   }
 
   printf ("pass\n");
   exit(0);
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.