------- Comment #1 from toon at moene dot indiv dot nluug dot nl 2007-01-31
21:37 -------
I can't attach the source file, so I reproduce it here:
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
Hope this helps.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30660
