Commit d8221cb7 authored by Chris Hansen's avatar Chris Hansen
Browse files

Fixed keyword type

parent 55869779

src/fortrancode.l

+1 −3
Original line number Original line Diff line number Diff line
@@ -805,15 +805,13 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I 
                                          yy_pop_state();YY_FTN_RESET

                                          yy_pop_state();YY_FTN_RESET

                                        }

                                        }

<Start>"import"{BS_}                    {

<Start>"import"{BS_}                    {

                                          startFontClass("keywordflow");

                                          startFontClass("keywordtype");

                                          codifyLines(yytext);

                                          codifyLines(yytext);

                                          endFontClass();

                                          endFontClass();

                                          yy_push_state(YY_START);

                                          yy_push_state(YY_START);

                                          BEGIN(Import);

                                          BEGIN(Import);

                                        }

                                        }

<Import>{ID}                            {

<Import>{ID}                            {

                                          QCString tmp = yytext;

                                          tmp = tmp.lower();

                                          g_insideBody=TRUE;

                                          g_insideBody=TRUE;

                                          generateLink(*g_code, yytext);

                                          generateLink(*g_code, yytext);

                                          g_insideBody=FALSE;

                                          g_insideBody=FALSE;