'!$OMP' directive followed by several spaces

[Bernhard Fischer]

On Wed, Feb 14, 2007 at 02:02:43PM +0100, Bernhard Fischer wrote:
>On Wed, Feb 14, 2007 at 01:29:47PM +0100, Philippe Schaffnit wrote:
>>
>>Hi!
>>
>>No this happens under Linux (I haven't tried any other machine yet).
>>
>>This is indeed with libgomp/testsuite/libgomp.fortran/do1.f90:
>>
>>diff do1.f90 .../Gcc_Sources/libgomp/testsuite/libgomp.fortran/
>>23c23
>>< !$omp  do
>>---
>>> !$omp do
>>
>>Leads to:
>>gfortran -fopenmp do1.f90
>>do1.f90:23.6:
>>
>>!$omp  do
>>     1
>>Error: Unclassifiable OpenMP directive at (1)
>>
>>This must have to do with my local setup then... Can anyone reproduce
>>it?
>
>Yes, i can reproduce this.
>
>This makes it go away..

Does the standard require that the directive is followed by ' ' and not
by the class space? If so then the assert should be corrected, too, from
the looks.

HTH,

>Index: gcc-4.2/gcc/fortran/parse.c
>===================================================================
>--- gcc-4.2/gcc/fortran/parse.c (revision 121841)
>+++ gcc-4.2/gcc/fortran/parse.c (working copy)
>@@ -479,6 +479,7 @@ next_free (void)
>            gcc_assert (c == "!$omp"[i]);
> 
>          gcc_assert (c == ' ');
>+         gfc_gobble_whitespace ();
>          return decode_omp_directive ();
>        }
>     }
>
>