------- Comment #5 from pinskia at gcc dot gnu dot org 2005-11-21 02:35 -------
Reduced testcase:
subroutine w_combine_multipoles (cctk_dim, cctk_gsh, cctk_lsh, cctk_lbnd,
cctk_ubnd, cctk_lssh, cctk_from,&
&tetrad_mask,X0tetrad_n,X0weyl_invariants,X0weyl_scalars,X0weyl_scalars_multipoles,X1ricci_scalars,X1tetrad_l,X1tetrad_m,X1tetrad&
&ts,X2weyl_scalars,weyl_scalars_multipoles_length,w_i,w_i_p,w_i_p_p,w_j,w_j_p,w_j_p_p,w_l0,w_l1,w_l2,w_l3,w_lambda,w_lambda_p,w_l&
&sixx,psixy,psixz,psiy,psiyy,psiyz,psiz,psizz,r,shift_state,space_mask,x,y,z)
INTEGER X0weyl_scalars_multipoles
INTEGER weyl_scalars_multipoles_length
COMPLEX*16 w_one_mp(X0weyl_scalars_multipoles,weyl_scalars_multipoles_length)
interface
integer function CCTK_IsThornActive (name)
end function CCTK_IsThornActive
end interface
COMPLEX*16, allocatable :: factor(:)
call cscale (w_one_mp (:num_modes, n), factor(:))
contains
elemental subroutine cscale (var, sc)
COMPLEX*16, intent(inout) :: var
COMPLEX*16, intent(in) :: sc
end subroutine cscale
end subroutine w_combine_multipoles
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2005-11-21 02:35:45
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24966
