diff options
author | Craig Burley <craig@jcb-sc.com> | 1999-04-19 22:27:05 +0000 |
---|---|---|
committer | Craig Burley <burley@gcc.gnu.org> | 1999-04-19 18:27:05 -0400 |
commit | bded05359b10cb1d7ff4f2c980ff83b5d4660ee9 (patch) | |
tree | c44814dc8b48106698251d305c1a1b4eebf49961 /gcc/f/stb.c | |
parent | 986b2f978bf6e7b59cac847a8f96813b510a25aa (diff) | |
download | gcc-bded05359b10cb1d7ff4f2c980ff83b5d4660ee9.zip gcc-bded05359b10cb1d7ff4f2c980ff83b5d4660ee9.tar.gz gcc-bded05359b10cb1d7ff4f2c980ff83b5d4660ee9.tar.bz2 |
Fix DATA repeat-count bug
From-SVN: r26554
Diffstat (limited to 'gcc/f/stb.c')
-rw-r--r-- | gcc/f/stb.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/f/stb.c b/gcc/f/stb.c index 59655e2..ef523c4 100644 --- a/gcc/f/stb.c +++ b/gcc/f/stb.c @@ -5707,7 +5707,12 @@ ffestb_R5282_ (ffelexToken ft, ffebld expr, ffelexToken t) case FFELEX_typeASTERISK: if (expr == NULL) break; - ffestb_local_.data.expr = expr; + ffestb_local_.data.expr = ffeexpr_convert (expr, ft, t, + FFEINFO_basictypeINTEGER, + FFEINFO_kindtypeINTEGER1, + 0, + FFETARGET_charactersizeNONE, + FFEEXPR_contextLET); ffesta_tokens[1] = ffelex_token_use (ft); return (ffelexHandler) ffeexpr_rhs (ffesta_output_pool, FFEEXPR_contextDATA, |