From 81628e6080b20f52b5b589f99f93995d93c0c30e Mon Sep 17 00:00:00 2001
From: kan <kan@FreeBSD.org>
Date: Wed, 28 Jul 2004 03:12:14 +0000
Subject: Gcc 3.4.2 20040728 libf2c bits.

---
 contrib/libf2c/libI77/rsne.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'contrib/libf2c/libI77/rsne.c')

diff --git a/contrib/libf2c/libI77/rsne.c b/contrib/libf2c/libI77/rsne.c
index f233a4a..0975e00 100644
--- a/contrib/libf2c/libI77/rsne.c
+++ b/contrib/libf2c/libI77/rsne.c
@@ -278,6 +278,7 @@ x_rsne (cilist * a)
   char *vaddr;
   long iva, ivae;
   dimen dimens[MAXDIM], substr;
+  int dollarsign_delimited;
 
   if (!Alpha['a'])
     nl_init ();
@@ -285,14 +286,16 @@ x_rsne (cilist * a)
   f__formatted = 1;
   got1 = 0;
 top:
+  dollarsign_delimited = 0;
   for (;;)
     switch (GETC (ch))
       {
       case EOF:
       eof:
 	err (a->ciend, (EOF), where0);
-      case '&':
       case '$':
+        dollarsign_delimited = 1;
+      case '&':
 	goto have_amp;
 #ifndef No_Namelist_Questions
       case '?':
@@ -329,6 +332,8 @@ have_amp:
 	  case EOF:
 	    err (a->ciend, EOF, where0);
 	  case '/':
+            if (dollarsign_delimited)
+               continue;
 	  case '&':
 	  case '$':
 	    if (f__external)
-- 
cgit v1.1