diff options
| author | albert-github <albert.tests@gmail.com> | 2019-03-07 16:03:12 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2019-03-07 16:03:12 (GMT) |
| commit | 1659f94a4c8acff1c2564226db21afbd2bc04736 (patch) | |
| tree | fbddf42cc809c1a1d1ee1e9c26de18e7a88a3c6e /src/fortranscanner.l | |
| parent | 169a67186780c191749b958de0f71a17fa090248 (diff) | |
| download | Doxygen-1659f94a4c8acff1c2564226db21afbd2bc04736.zip Doxygen-1659f94a4c8acff1c2564226db21afbd2bc04736.tar.gz Doxygen-1659f94a4c8acff1c2564226db21afbd2bc04736.tar.bz2 | |
Possibility to show converted fixed form
Create an easy possibility to show the Fortran source as converted from fixed form to free form.
Diffstat (limited to 'src/fortranscanner.l')
| -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 1f0c356..e5dc5ca 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -66,6 +66,7 @@ #include "fortrancode.h" #include "pre.h" #include "arguments.h" +#include "debug.h" // Toggle for some debugging info //#define DBG_CTX(x) fprintf x @@ -2640,6 +2641,8 @@ static void parseMain(const char *fileName,const char *fileBuf,Entry *rt, Fortra //printf("Input fixed form string:\n%s\n", fileBuf); //printf("===========================\n"); inputString = prepassFixedForm(fileBuf, NULL); + Debug::print(Debug::FortranFixed2Free,0,"======== Fixed to Free format =========\n---- Input fixed form string ------- \n%s\n", fileBuf); + Debug::print(Debug::FortranFixed2Free,0,"---- Resulting free form string ------- \n%s\n", inputString); //printf("Resulting free form string:\n%s\n", inputString); //printf("===========================\n"); |