open.c: Back out part of last Netlib update affecting scratch files which clashed with...

1998-09-28  Dave Love  <d.love@dl.ac.uk>
	* libI77/open.c: Back out part of last Netlib update affecting
	scratch files which clashed with the g77 variations and broke
	implicit endfile on rewind.

From-SVN: r22660

libf2c/ChangeLog

+1998-09-28  Dave Love  <d.love@dl.ac.uk>
+
+	* libI77/open.c: Back out part of last Netlib update affecting
+	scratch files which clashed with the g77 variations and broke
+	implicit endfile on rewind.
+
 1998-09-21  Dave Love  <d.love@dl.ac.uk>
 
 	* libI77/Version.c: Update.

libf2c/libI77/open.c

@@ -205,7 +205,6 @@ integer f_open(olist *a)
 	 case 's':
 	 case 'S':
 		b->uscrtch=1;
-#ifdef NON_ANSI_STDIO
 #ifdef HAVE_TEMPNAM		/* Allow use of TMPDIR preferentially. */
 		s = tempnam (0, buf);
 		if (strlen (s) >= sizeof (buf))
@@ -221,17 +220,6 @@ integer f_open(olist *a)
 #endif
 #endif /* ! defined (HAVE_TEMPNAM) */
 		goto replace;
-#else
-		if (!(b->ufd = tmpfile()))
-			opnerr(a->oerr,errno,"open");
-		b->ufnm = 0;
-#ifndef NON_UNIX_STDIO
-		b->uinode = b->udev = -1;
-#endif
-		b->useek = 1;
-		return 0;
-#endif
-
 	case 'n':
 	case 'N':
 #ifdef NON_POSIX_STDIO
@@ -246,9 +234,7 @@ integer f_open(olist *a)
 		/* no break */
 	case 'r':	/* Fortran 90 replace option */
 	case 'R':
-#ifdef NON_ANSI_STDIO
  replace:
-#endif
 		if (tf = fopen(buf,f__w_mode[0]))
 			fclose(tf);
 	}