From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-108122-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 3560 invoked by alias); 25 Aug 2004 22:59:05 -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 3543 invoked by uid 48); 25 Aug 2004 22:59:04 -0000
Date: Wed, 25 Aug 2004 22:59:00 -0000
Message-ID: <20040825225904.3542.qmail@sourceware.org>
From: "tobi at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
In-Reply-To: <20040825220057.17192.tobi@gcc.gnu.org>
References: <20040825220057.17192.tobi@gcc.gnu.org>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/17192] Functions returning pointer via argument are broken
X-Bugzilla-Reason: CC
X-SW-Source: 2004-08/txt/msg02702.txt.bz2
List-Id: <gcc-bugs.sourceware.org>


------- Additional Comments From tobi at gcc dot gnu dot org  2004-08-25 22:59 -------
well, that wasn't a function ... second try:
character*5, pointer :: p
character*5, target :: c,e

c = "Hallo"
p => c
c = s(c,p)
print *,p
contains
function s(e,d)
character*5, pointer ::s
character*5 :: e, d
e = d
s=>c
end function s
end

gives:
[tobi@marktplatz tests]$ gfortran assign.f90
assign.f90: In function `s':
assign.f90:13: internal compiler error: in gfc_build_indirect_ref, at
fortran/trans.c:296
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[tobi@marktplatz tests]$

-- 


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