From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14670 invoked by alias); 23 Apr 2009 12:23:22 -0000 Received: (qmail 14582 invoked by uid 48); 23 Apr 2009 12:23:10 -0000 Date: Thu, 23 Apr 2009 12:23:00 -0000 Subject: [Bug fortran/39864] New: INTRINSIC :: RESHAPE causes spurious error X-Bugzilla-Reason: CC Message-ID: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "michael dot a dot richmond at nasa dot gov" 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: 2009-04/txt/msg02126.txt.bz2 When I attempt to compile the following function using http://users.physik.fu-berlin.de/~tburnus/gcc-trunk/gcc-trunk-x86_64.tar.gz FUNCTION next_state() INTRINSIC :: RESHAPE INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/)) next_state = trantb(1, 1) END FUNCTION next_state I get the message: test161.f90:3.67: INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/)) 1 Error: Symbol at (1) is not a DUMMY variable test161.f90:3.67: INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/)) 1 Error: Symbol at (1) is not a DUMMY variable The problem goes away if I remove "INTRINSIC :: RESHAPE" -- Summary: INTRINSIC :: RESHAPE causes spurious error Product: gcc Version: 4.5.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: michael dot a dot richmond at nasa dot gov GCC build triplet: x86_64-unknown-linux-gnu GCC host triplet: x86_64-unknown-linux-gnu GCC target triplet: x86_64-unknown-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39864