diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 20 |
2 files changed, 24 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2b5db96..e6860a6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-09-26 Jakub Jelinek <jakub@redhat.com> + + PR fortran/29097 + * scanner.c (include_line): Handle conditional include. + 2006-09-25 Tobias Schluter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/21203 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 7e0d696..e79fa37 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1212,8 +1212,26 @@ static bool include_line (char *line) { char quote, *c, *begin, *stop; - + c = line; + + if (gfc_option.flag_openmp) + { + if (gfc_current_form == FORM_FREE) + { + while (*c == ' ' || *c == '\t') + c++; + if (*c == '!' && c[1] == '$' && (c[2] == ' ' || c[2] == '\t')) + c += 3; + } + else + { + if ((*c == '!' || *c == 'c' || *c == 'C' || *c == '*') + && c[1] == '$' && (c[2] == ' ' || c[2] == '\t')) + c += 3; + } + } + while (*c == ' ' || *c == '\t') c++; |