[Open64-devel] OpenMP problems

[Hong-Linh T. <tr...@pa...>]

hi all,

I just tested openmp option of the Open64. The frontend worked fine when I
ran:
	mfef90 -uopen_mp md.f
where md.f is an fortran openmp program obtained from www.openmp.org.

however I had a problem when trying to converting from WHIRL to Fortran
by using whirl2f. All OpenMP directives are commented.

Input:

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

Warning:

whirl2f: WARNING 213: pragma PARALLEL DO will be misplaced in output, and
will be emitted as comment
whirl2f: WARNING 213: pragma PARALLEL DO will be misplaced in output, and
will be emitted as comment


Output:

C<misplaced>$OMP PARALLEL DO reduction ( + : KIN ), reduction ( + : POT
C<misplaced>$& ), shared(t$5, t$7, t$3), private(I, J, K), local(
C<misplaced>$& doloop_ub, doloop_ub0, doloop_ub1)


Anybody has ideas?

Thanks,

Linh.