[Bug libgomp/24493] New: [GOMP] Parsing problem after THREADPRIVATE-statement

["magnus_os at yahoo dot se" <gcc-bugzilla at gcc dot gnu dot org>]

gfortran-gomp -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc/configure --prefix=/usr/local/gomp
--program-suffix=-gomp --enable-threads=posix --enable-languages=c,c++,fortran
Thread model: posix
gcc version 4.1.0-gomp-20050608-branch 20051016 (experimental) (merged
20051016)

Checked out from cvs 2005-10-22

This simple test program consists of two files: test2.for and TEST2.INC    They
are presented below in that order.

      PROGRAM TESTING2
C
      INTEGER III, JJJ
      COMMON / RNBUS_P / III, JJJ
C$OMP THREADPRIVATE( /RNBUS_P/ )
C
      INCLUDE 'TEST2.INC'
C
      INTEGER I
C
      DO I = 1, 10
         II = I + 1
         PRINT *,'II =',II
      END DO
C
      END

-----------------------------------
C
C     -----------------------
C     THIS IS FILE: TEST2.INC
C     -----------------------
      DOUBLE PRECISION A, B
      INTEGER II, JJ
C
      COMMON /TEST2/ A, B, II, JJ

-------------------------------------

Compiling this code without the -fopenmp switch works just fine. Intel FORTRAN
9.0 has no problems either, with or without using the OpenMP switch. Below is
the error message when using the -fopenmp switch.

gfortran-gomp -fopenmp -c test2.for
 In file test2.for:6

C
1
Error: Non-numeric character in statement label at (1)
 In file TEST2.INC:1

     Included at test2.for:7

C
1
Error: Non-numeric character in statement label at (1)
 In file TEST2.INC:2

     Included at test2.for:7

C     -----------------------
1
Error: Non-numeric character in statement label at (1)
 In file TEST2.INC:2

     Included at test2.for:7

C     -----------------------
1
Error: Unclassifiable statement at (1)


-- 
           Summary: [GOMP] Parsing problem after THREADPRIVATE-statement
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P2
         Component: libgomp
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: magnus_os at yahoo dot se


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24493