diff options
| author | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-02-21 09:36:18 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-02-21 09:36:18 +0100 |
| commit | 7efeea5e7c608b4dd93de915e1f4faf4c58a6009 (patch) | |
| tree | a2a30c5ffdd34f3f453d84ec3d6be1f3bf8abf71 /gcc/fortran/parse.c | |
| parent | 645c40865d770bca166a4aaa874b7515b9bfd036 (diff) | |
| download | gcc-7efeea5e7c608b4dd93de915e1f4faf4c58a6009.zip gcc-7efeea5e7c608b4dd93de915e1f4faf4c58a6009.tar.gz gcc-7efeea5e7c608b4dd93de915e1f4faf4c58a6009.tar.bz2 | |
[multiple changes]
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.
From-SVN: r122190
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 eb7802e..6e36ea2 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 (); } } |