diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-21 08:36:18 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-21 08:36:18 +0000 |
| commit | 505c23043500ce0d4f3c73f255a7eaeb16bb3fe7 (patch) | |
| tree | a2a30c5ffdd34f3f453d84ec3d6be1f3bf8abf71 /gcc/fortran/parse.c | |
| parent | b7c9671809cb8568a36ce7389ae179d5b1addba4 (diff) | |
| download | gcc-505c23043500ce0d4f3c73f255a7eaeb16bb3fe7.tar.gz | |
2007-02-21 Bernhard Fischer <aldot@gcc.gnu.org>
* parse.c (next_free): Gooble spaces after OpenMP sentinel.
2007-02-21 Jakub Jelinek <jakub@redhat.com>
* gfortran.dg/gomp/omp_parse1.f90: New test.
* gfortran.dg/gomp/omp_parse2.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122190 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index eb7802ed0dc..6e36ea21a53 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -485,6 +485,7 @@ next_free (void) gcc_assert (c == "!$omp"[i]); gcc_assert (c == ' '); + gfc_gobble_whitespace (); return decode_omp_directive (); } } |