aboutsummaryrefslogtreecommitdiff
path: root/gcc/f/runtime/libI77/wsne.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/f/runtime/libI77/wsne.c')
-rw-r--r--gcc/f/runtime/libI77/wsne.c26
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc/f/runtime/libI77/wsne.c b/gcc/f/runtime/libI77/wsne.c
deleted file mode 100644
index 0febd52634f..00000000000
--- a/gcc/f/runtime/libI77/wsne.c
+++ /dev/null
@@ -1,26 +0,0 @@
-#include "f2c.h"
-#include "fio.h"
-#include "lio.h"
-
- integer
-#ifdef KR_headers
-s_wsne(a) cilist *a;
-#else
-s_wsne(cilist *a)
-#endif
-{
- int n;
-
- if(n=c_le(a))
- return(n);
- f__reading=0;
- f__external=1;
- f__formatted=1;
- f__putn = t_putc;
- L_len = LINE;
- f__donewrec = x_wSL;
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr, errno, "namelist output start");
- x_wsne(a);
- return e_wsle();
- }