[Bug fortran/33445] openmp invalid multi-thread runtime result (-ffree-form only!)

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #3 from burnus at gcc dot gnu dot org  2007-09-17 06:55 -------
Looking at the dump (GCC 4.3), one sees for the fixed-format code:

     #pragma omp parallel default(shared) reduction(+:kin) reduction(+:pot)
private(d) private(rij) private(k) private(j) private(i)
        {
          {
            #pragma omp for nowait
            for (i = 1; i <= D.982; i = i + 1)

and for the free format, one finds:

      D.982 = *np;
      #pragma omp parallel private(k) private(j)
        {
          {
            #pragma omp for private(i) nowait
            for (i = 1; i <= D.982; i = i + 1)

In the source:

!$omp  parallel do
!$omp& default(shared)
!$omp& private(i,j,k,rij,d)
!$omp& reduction(+ : pot, kin)
      do i=1,np


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jakub at gcc dot gnu dot
                   |                            |org, burnus at gcc dot gnu
                   |                            |dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |openmp, wrong-code
      Known to fail|                            |4.2.0 4.3.0
   Last reconfirmed|0000-00-00 00:00:00         |2007-09-17 06:55:32
               date|                            |


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