diff options
| author | albert-github <albert.tests@gmail.com> | 2015-01-04 18:02:41 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2015-01-04 18:02:41 (GMT) |
| commit | 557ad21ce28d093044101eb8bee2c4df1621da7a (patch) | |
| tree | 1ea39b195085dda77837eb6485c3412d64726691 /src/fortranscanner.l | |
| parent | eb92c064b33bf9f303233210b9693215b0fb7f9d (diff) | |
| download | Doxygen-557ad21ce28d093044101eb8bee2c4df1621da7a.zip Doxygen-557ad21ce28d093044101eb8bee2c4df1621da7a.tar.gz Doxygen-557ad21ce28d093044101eb8bee2c4df1621da7a.tar.bz2 | |
Fortran: fixed format position 73 and further is comment
Small regression, line with 'C' (Capital C) was edited away, re-instated.
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 9b212e8..1cfa13d 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1474,6 +1474,8 @@ static const char* prepassFixedForm(const char* contents) } } inBackslash = FALSE; + // fallthrough + case 'C': case 'c': case '*': case '!': @@ -1496,6 +1498,7 @@ static const char* prepassFixedForm(const char* contents) } break; } + // fallthrough default: if(column==6 && emptyLabel) { // continuation if (c != '0') { // 0 not allowed as continuation character, see f95 standard paragraph 3.3.2.3 |