gfortran 4.1

[Warren Turkal]

On Thursday 26 October 2006 21:35, you wrote:
> If you can't provide a testcase, then I suggest upgrading to
> a 4.2 or 4.3 compiler.

I got one of my scientists to provide reduce it. The following ICEs on 4.1 and 
not on 4.2.

subroutine test

use netcdf
use typeSizes

integer, parameter :: real_kind=8
integer, parameter :: int_kind=4

type aero_var
   real(kind=real_kind) :: zo          ! Canopy roughness coeff 
   real(kind=real_kind) :: zp_disp          ! Zero plane displacement
   real(kind=real_kind) :: RbC              ! RB Coefficient
   real(kind=real_kind) :: RdC             ! RC Coefficient
end type aero_var
type(aero_var),allocatable :: AeroVar(:,:,:)

integer(kind=int_kind) ::  tiid           !  file id#
integer(kind=int_kind) ::  status         !  error status check
integer(kind=int_kind) ::  varid          ! varible ID


allocate (aerovar(50,50,nvar))
status = nf90_get_var ( tiid, varid, aerovar%zo )


end subroutine test

The following command was used to compile it:
gfortran -c test.F90 -I /usr/local/include

This requires netcdf modules in /usr/local/include or default locations.

wt
-- 
Warren Turkal, Research Associate III/Systems Administrator
Colorado State University, Dept. of Atmospheric Science