From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 1136 invoked by alias); 2 Jun 2009 12:32:29 -0000 Received: (qmail 1100 invoked by uid 48); 2 Jun 2009 12:32:18 -0000 Date: Tue, 02 Jun 2009 12:32:00 -0000 Message-ID: <20090602123218.1099.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40011] Problems with -fwhole-file In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "dominiq at lps dot ens dot fr" 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-06/txt/msg00068.txt.bz2 ------- Comment #32 from dominiq at lps dot ens dot fr 2009-06-02 12:32 ------- I think the following code: function CHECK_INTEGER4_RANK1 (EXPECTED, COMPUTED) integer(4), intent(in), dimension(:) :: EXPECTED integer(4), intent(in), dimension(:) :: COMPUTED logical :: CHECK_INTEGER4_RANK1 CHECK_INTEGER4_RANK1 = all(COMPUTED == EXPECTED) end function CHECK_INTEGER4_RANK1 program array_test !use CHECK_SEM logical :: CHECK_INTEGER4_RANK1 integer,dimension(-1:1,-1:1) :: mis1=1.1 logical,dimension(-1:1,-1:1) :: ml2=.true. logical :: res integer, dimension(3) :: theo, dat theo = sum(mis1,dim=1,mask=ml2) dat = (/8,5,12/) res = CHECK_INTEGER4_RANK1 (theo, dat) end program array_test should give an error about missing interface with -fwhole-file (it does not with the patch in comment #28). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011