This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/30660] Allocatable components of a derived type "require" the SAVE attribute.
- From: "toon at moene dot indiv dot nluug dot nl" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 31 Jan 2007 21:37:59 -0000
- Subject: [Bug fortran/30660] Allocatable components of a derived type "require" the SAVE attribute.
- References: <bug-30660-109@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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