This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Does anyone grok this one ?
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: gfortran <fortran at gcc dot gnu dot org>
- Date: Wed, 31 Jan 2007 19:54:26 +0100
- Subject: Does anyone grok this one ?
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
$ /usr/snp/bin/gfortran -c globals.f90
globals.f90:37.24:
TYPE(weight_t) g_winfo ! weights info
1
Error: Object 'g_winfo' at (1) must have the SAVE attribute for default
initialization of a component
globals.f90:36.21:
TYPE(grib_t) g_dest ! output field
1
Error: Object 'g_dest' at (1) must have the SAVE attribute for default
initialization of a component
on the attached file.
*I* don't see any "default initialization of a component" ...
--
Toon Moene - e-mail: toon@moene.indiv.nluug.nl - phone: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
A maintainer of GNU Fortran: http://gcc.gnu.org/fortran/
Who's working on GNU Fortran:
http://gcc.gnu.org/ml/gcc/2007-01/msg00059.html
MODULE types_m
INTEGER,PRIVATE,PARAMETER :: MXLEN = 2024, MXKEYS = 50, MXGRIBFLDS = 1000, MXFIN = 2
TYPE coord_t
INTEGER ncord
REAL,ALLOCATABLE,DIMENSION(:) :: x, y
END TYPE
TYPE weight_t
INTEGER id
CHARACTER(LEN=128) :: fname
LOGICAL set, init
INTEGER ksec2in(60), ksec2out(60)
REAL psec2in(60), psec2out(60)
INTEGER wdim
INTEGER offset(16)
INTEGER,ALLOCATABLE,DIMENSION(:) :: gridpts
REAL,ALLOCATABLE,DIMENSION(:,:) :: weights
REAL,ALLOCATABLE,DIMENSION(:) :: rotX, rotY, rotAngle
LOGICAL rotatedComp
END TYPE
TYPE grib_t
INTEGER ksec0(2), ksec1(64), ksec2(64), ksec3(2), ksec4(64)
REAL psec2(512), psec3(3)
LOGICAL packed ! if packed then the data are stored in g_work
INTEGER npts
REAL,DIMENSION(:),ALLOCATABLE :: vdata
TYPE(coord_t) coords
END TYPE
END MODULE
MODULE globals_m
USE types_m
TYPE(grib_t) g_dest ! output field
TYPE(weight_t) g_winfo ! weights info
END MODULE