This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Does anyone grok this one ?


$ /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

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]