Use of Associate

[abhimodak]

Hi

Is there something about the associate in OpenMP? The program below gives internal compiler error with update 5 in VS2010.

Abhi

======

[fortran]         Program Test_OpenMPAssociate

            Implicit None

            Type newObject
               Integer :: m = 0
            End Type newObject

            Type(newObject), Allocatable :: OBJ(:)
            Integer, Allocatable :: J(:)

            Integer :: N
            Integer :: i
            Integer :: iError

            N = 20
            Allocate(OBJ(N), J(N), stat=iError)

            !$OMP PARALLEL DO
            do i=1,N
               Associate(m => OBJ%m)
                  J(i) = m(i)
               End Associate
            end do
            !$OMP END PARALLEL DO

            do i=1,N
               print *, J(i)
            end do

         End Program Test_OpenMPAssociate

[/fortran]

[Steven_L_Intel1]

Internal compiler error is almost always a compiler bug. It is here. I will report this to the developers. Issue ID is DPD200172236.

I found that if you move the ASSOCIATE construct to outside the parallel region, it works. But.. What do you think this program does? You never give a value (other than 0) to the various OBJ%m components.

[abhimodak]

I should have mentioned that the above program was just for the illustration purpose. My apologies. But you can easily see its usage in general cases of associate inside a loop, for example, instead of the object suppose there was obj%subobject%sub-subobject etc..

Abhi

[Steven_L_Intel1]

That's fine - the compiler should never get an internal compiler error, even for a program that doesn't do anything useful. Yes, ASSOCIATE in a parallel region should work.

[Steven_L_Intel1]

This has been fixed in our sources. I don't yet know when the fix will be available - I'll provide an update when I do.