From: Don Libes? <libs@ucbvax.Berkeley.EDU>
Date: Wed, 5 Jun 1985 13:31:11 +0000 (-0800)
Subject: have formatted logical read check for errors.
X-Git-Tag: BSD-4_3-Snapshot-Development~5877
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/07c0177c9cad7dcb56f2e8c16d75a329dffa4127

have formatted logical read check for errors.

SCCS-vsn: usr.bin/f77/libI77/rdfmt.c 1.12
---

diff --git a/usr/src/usr.bin/f77/libI77/rdfmt.c b/usr/src/usr.bin/f77/libI77/rdfmt.c
index f3c7533fab..f3c3b426ac 100644
--- a/usr/src/usr.bin/f77/libI77/rdfmt.c
+++ b/usr/src/usr.bin/f77/libI77/rdfmt.c
@@ -1,5 +1,5 @@
 /*
-char id_rdfmt[] = "@(#)rdfmt.c	1.11";
+char id_rdfmt[] = "@(#)rdfmt.c	1.12";
  *
  * formatted read routines
  */
@@ -139,12 +139,15 @@ done:
 
 LOCAL
 rd_L(n,w,len) uint *n; ftnlen len;
-{	int ch,i,v = -1;
+{	int ch,i,v = -1, period=0;
 	for(i=0;i<w;i++)
 	{	if((ch=(*getn)()) < 0) return(ch);
 		if((ch=low_case[ch])=='t' && v==-1) v=1;
 		else if(ch=='f' && v==-1) v=0;
+		else if(ch=='.' && !period) period++;
+		else if(ch==' ' || ch=='\t') ;
 		else if(ch==',') break;
+		else if(v==-1) return(errno=F_ERLOGIF);
 	}
 	if(v==-1) return(errno=F_ERLOGIF);
 	if(len==sizeof(short)) n->is=v;