From: Richard Henderson <rth@gcc.gnu.org>
Date: Sun, 18 Jan 1998 20:03:42 +0000 (-0800)
Subject: Typo applying the last patch.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=43ad1f80bc893da6a68b093edb93c0f8ad8a1d3b;p=gcc.git

Typo applying the last patch.

From-SVN: r17415
---

diff --git a/gcc/f/runtime/libI77/backspace.c b/gcc/f/runtime/libI77/backspace.c
index d12c5ac7ba8..b806d1ec49d 100644
--- a/gcc/f/runtime/libI77/backspace.c
+++ b/gcc/f/runtime/libI77/backspace.c
@@ -47,7 +47,7 @@ integer f_back(alist *a)
 
 	if(b->ufmt==0)
 	{	(void) fseek(b->ufd,-(long)sizeof(uiolen),SEEK_CUR);
-		(void) fread((char *)&n,sizeof(int),1,b->ufd);
+		(void) fread((char *)&n,sizeof(uiolen),1,b->ufd);
 		(void) fseek(b->ufd,-(long)n-2*sizeof(uiolen),SEEK_CUR);
 		return(0);
 	}