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 | e7bb56e1024439224ad655edd34aee84d658adca (patch) | |
| tree | 47bd99145f39465743fcf2eaef7c74c7c73b613f /contrib/libf2c/libI77/rsne.c | |
| parent | f1e17e37afd5b84aec329a7896ea6ad651d32374 (diff) | |
| parent | 81628e6080b20f52b5b589f99f93995d93c0c30e (diff) | |
| download | FreeBSD-src-e7bb56e1024439224ad655edd34aee84d658adca.zip FreeBSD-src-e7bb56e1024439224ad655edd34aee84d658adca.tar.gz | |
This commit was generated by cvs2svn to compensate for changes in r132724,
which included commits to RCS files with non-trunk default branches.
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) |
