From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3369 invoked by alias); 31 Jan 2007 21:38:17 -0000 Received: (qmail 3322 invoked by uid 48); 31 Jan 2007 21:37:59 -0000 Date: Wed, 31 Jan 2007 21:38:00 -0000 Message-ID: <20070131213759.3321.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/30660] Allocatable components of a derived type "require" the SAVE attribute. In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "toon at moene dot indiv dot nluug dot nl" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2007-01/txt/msg02761.txt.bz2 ------- 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