From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-157135-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 15254 invoked by alias); 6 Sep 2005 21:10:43 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Received: (qmail 14989 invoked by uid 48); 6 Sep 2005 21:10:26 -0000
Date: Tue, 06 Sep 2005 21:10:00 -0000
Message-ID: <20050906211026.14988.qmail@sourceware.org>
From: "erik dot edelmann at iki dot fi" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
In-Reply-To: <20040603201220.15809.giese025@tc.umn.edu>
References: <20040603201220.15809.giese025@tc.umn.edu>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/15809] ICE Using Pointer Functions
X-Bugzilla-Reason: CC
X-SW-Source: 2005-09/txt/msg00729.txt.bz2
List-Id: <gcc-bugs.sourceware.org>


------- Additional Comments From erik dot edelmann at iki dot fi  2005-09-06 21:10 -------
With my patch, the reduced testcase by Tobi compiles, but this slightly longer
testcase doesn't:

$ cat bug7.f90 
SUBROUTINE A(p,LEN)
    CHARACTER(LEN=LEN), DIMENSION(:), POINTER :: p
    IF ( .NOT. ASSOCIATED(p) ) THEN
        allocate(p(1))
    END IF
END SUBROUTINE A
$ gfortran bug7.f90 
bug7.f90: In function 'a':
bug7.f90:1: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

I'm not yet sure if it is because my patch doesn't solve the bug after all, or
if this is yet another unrelated bug.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15809