This discussion is archived
2 Replies Latest reply: Feb 22, 2012 12:06 AM by 915401 RSS

kind parameter suffix is not valid

915401 Newbie
Currently Being Moderated
Code like the following

REAL :: a(m,n), b(n), c(m), temp

!$omp parallel do default(none) &
!$omp if (m > lbd_omp_matdim) &
!$omp shared(m,n,a,b,c) private(i,j) &
!$omp reduction(+:temp)

DO i = 1, m
temp = a(i,1) * b(1)
DO j = 2, n
temp = temp + a(i,j) * b(j)
ENDDO
c(i) = temp
END DO

!$omp end parallel do

does not compile with Sun Studio 12.3 generating the following strange message:

"matvec2.f90", f90comp: ../src/messages.c:1370: print_buffered_messages Assertion `c_i_f == cif_actual_file' failed.
f90: The kind parameter suffix is not valid on a double precision real constant form.

But there is no kind conflict in the code! Also it compiles and runs with Gnu fortran producing correct results. Any suggestions please?

/Sakis

Legend

  • Correct Answers - 10 points
  • Helpful Answers - 5 points