Why doesn't this work?

styc · ‎11-18-2011

I have this program:

[fortran]program test

    integer i

    !$omp parallel private(i)
    !$omp single
    do i = 1, 16
        call f(i)
    end do
    !$omp end single nowait
    !$omp end parallel

    contains

    subroutine f(x)

        integer :: x

        !$omp task firstprivate(x)
        print *, x
        !$omp end task

    end subroutine

end program
[/fortran]

With gfortran 4.4, I can see a permutation of 1 thru 16. But with ifort 12.1.{01}, I see a lot of other values.

Udit_P_Intel · ‎11-21-2011

I believe this may be a bug in the compiler. The TASK construct is a new OpenMP* 3.0 feature and may be erroneous here. If I replace the function call f(i) with an explicit print statement surrounded by a TASK construct, then the correct values are printed.
What do the OpenMP* experts on this forum think?

Best!
-Udit

Ron_Green · ‎11-21-2011

looks like a bug to me. This appears to be a standard sample, I found the same code in C on the internet.

I'll start a bug report.

BUG id DPD200176160

ron

Ron_Green · ‎05-15-2012

Just to close this out - this bug has been fixed in the most recent 12.1 updates ( Updates 10 and 9)

ron