diff options
author | kan <kan@FreeBSD.org> | 2004-07-28 03:12:14 +0000 |
---|---|---|
committer | kan <kan@FreeBSD.org> | 2004-07-28 03:12:14 +0000 |
commit | 81628e6080b20f52b5b589f99f93995d93c0c30e (patch) | |
tree | fc69fda97533da5d50f0ff7037383df48069ba01 /contrib/libf2c/libI77/rsne.c | |
parent | faa0a30e665e4b99547718fea8c46655b053f4a4 (diff) | |
download | FreeBSD-src-81628e6080b20f52b5b589f99f93995d93c0c30e.zip FreeBSD-src-81628e6080b20f52b5b589f99f93995d93c0c30e.tar.gz |
Gcc 3.4.2 20040728 libf2c bits.
Diffstat (limited to 'contrib/libf2c/libI77/rsne.c')
-rw-r--r-- | contrib/libf2c/libI77/rsne.c | 7 |
1 files changed, 6 insertions, 1 deletions
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) |