diff options
author | Dimitri van Heesch <doxygen@gmail.com> | 2020-07-16 17:51:17 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-07-16 17:51:17 (GMT) |
commit | 7a5df4aed79171bde0b147245ed403aede88ccfb (patch) | |
tree | 82c3257caf4c56fbe1de149bb060a26c77c9d924 | |
parent | 8c02f1e963682edfebfd0da619c65112cf30448b (diff) | |
parent | 442da6dfa5ab1d48b632ab24e15acb0719ab0bbd (diff) | |
download | Doxygen-7a5df4aed79171bde0b147245ed403aede88ccfb.zip Doxygen-7a5df4aed79171bde0b147245ed403aede88ccfb.tar.gz Doxygen-7a5df4aed79171bde0b147245ed403aede88ccfb.tar.bz2 |
Merge pull request #7882 from albert-github/feature/bug_ftn_use
Missing links in Fortran in case use statement with upper case characters in name
-rw-r--r-- | src/fortranscanner.l | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 9714602..4d80d5f 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -467,6 +467,7 @@ SCOPENAME ({ID}{BS}"::"{BS})* <Use>{ID} { DBG_CTX((stderr,"using dir %s\n",yytext)); yyextra->current->name=yytext; + yyextra->current->name=yyextra->current->name.lower(); yyextra->current->fileName = yyextra->fileName; yyextra->current->section=Entry::USINGDIR_SEC; yyextra->current_root->moveToSubEntryAndRefresh(yyextra->current); @@ -475,12 +476,14 @@ SCOPENAME ({ID}{BS}"::"{BS})* } <Use>{ID}/, { yyextra->useModuleName=yytext; + yyextra->useModuleName=yyextra->useModuleName.lower(); } <Use>,{BS}"ONLY" { BEGIN(UseOnly); } <UseOnly>{BS},{BS} {} <UseOnly>{ID} { yyextra->current->name= yyextra->useModuleName+"::"+yytext; + yyextra->current->name=yyextra->current->name.lower(); yyextra->current->fileName = yyextra->fileName; yyextra->current->section=Entry::USINGDECL_SEC; yyextra->current_root->moveToSubEntryAndRefresh(yyextra->current); |