From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 2146 invoked by alias); 20 Jun 2007 14:03:28 -0000 Received: (qmail 2088 invoked by uid 48); 20 Jun 2007 14:03:15 -0000 Date: Wed, 20 Jun 2007 14:03:00 -0000 Message-ID: <20070620140315.2087.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/32140] [4.3 Regression] Miscompilation with -O1 In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jv244 at cam dot ac dot uk" 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-06/txt/msg01688.txt.bz2 ------- Comment #24 from jv244 at cam dot ac dot uk 2007-06-20 14:03 ------- (In reply to comment #22) > It would be nice if a fortraner could make the testcase not output to > stdout/err > but to /dev/null instead. > > open(6,'/dev/null') > > didn't work for me ;) > > Just to make a testcase suitable for the testsuite. The following testcase, for an unpatched compiler, aborts at -O1, works fine at -O0, and doesn't write to stdout/stderr... I guess that fits the testsuite ? MODULE TEST CONTAINS PURE FUNCTION s2a_3(s1,s2,s3) RESULT(a) CHARACTER(LEN=*), INTENT(IN) :: s1, s2, s3 CHARACTER(LEN=4), DIMENSION(3) :: a a(1)=s1; a(2)=s2; a(3)=s3 END FUNCTION END MODULE USE TEST character(len=12) :: line write(line,'(3A4)') s2a_3("a","bb","ccc") IF (line.NE."a bb ccc") CALL ABORT() END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32140