* update_web_docs (PREPROCESS): Rename to WWWPREPROCESS.

[pf3gnuchains/gcc-fork.git] / gcc / f / stb.c

diff --git a/gcc/f/stb.c b/gcc/f/stb.c
index 59655e2..ef523c4 100644 (file)
--- 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,