------- Comment #4 from dh458 at oakapple dot net 2009-07-21 15:19 -------
(In reply to comment #0)
In the original SPECmpi source code,
I was able to make the compile-time bug go away with this source workaround:
change e.g.
Ro => Hydro_vars( first_cell:last_cell, j, k)%cell_var( ro_var)
to
tRo => Hydro_vars( first_cell:last_cell, j, k)%cell_var( ro_var)
call copy_pointer(Ro, tRo)
with earlier declarations for tRo and copy_pointer
< subroutine copy_pointer(p, q)
<
< use TF_NUMBER_KIND
<
< implicit none
< real(r8), pointer, dimension( :) :: p, q
<
< p => q
< return
<
< end subroutine
< use TF_NUMBER_KIND
<
< implicit none
<
< real(r8), pointer, dimension( :),save :: tRo
However execution was unsuccessful, though not necessarily due to a problem
in this part of the code. Compilation and execution of this modified
code were successful on
the same linux system using Sun Studio 12u1, but not using gfortran 4.4.0
on a sparc solaris system... so the root cause of failure is unknown.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40737
