From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21835 invoked by alias); 13 Aug 2013 06:38:23 -0000 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 Received: (qmail 21793 invoked by uid 48); 13 Aug 2013 06:38:21 -0000 From: "tkoenig at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/58146] New: Array slice bounds checking Date: Tue, 13 Aug 2013 06:38:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: new X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 4.9.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: tkoenig at gcc dot gnu.org X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status bug_severity priority component assigned_to reporter Message-ID: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2013-08/txt/msg00682.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58146 Bug ID: 58146 Summary: Array slice bounds checking Product: gcc Version: 4.9.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: tkoenig at gcc dot gnu.org The following doesn't trigger an error at compile time, neither does it do so with -fcheck=all at runtime: ig25@linux-fd1f:/tmp> cat diff.f90 program main implicit none integer :: n real, dimension(10) :: a n = 0 call random_number(a) if (any(a(n+1:n+4) > [1.0, 2.0, 3.0])) print *,"Hello!" end program main ig25@linux-fd1f:/tmp> gfortran -fcheck=all diff.f90 ig25@linux-fd1f:/tmp> ./a.out ig25@linux-fd1f:/tmp>