From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-20641-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 10798 invoked by alias); 23 Jul 2002 20:36:01 -0000
Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-prs/>
List-Post: <mailto:gcc-prs@gcc.gnu.org>
List-Help: <mailto:gcc-prs-help@gcc.gnu.org>
Sender: gcc-prs-owner@gcc.gnu.org
Received: (qmail 10757 invoked by uid 71); 23 Jul 2002 20:36:00 -0000
Resent-Date: 23 Jul 2002 20:36:00 -0000
Resent-Message-ID: <20020723203600.10756.qmail@sources.redhat.com>
Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer)
Resent-To: nobody@gcc.gnu.org
Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org, allan@rolls-royce.ca,
  george@geo.titech.ac.jp
Resent-Reply-To: gcc-gnats@gcc.gnu.org, Toon@sources.redhat.com,
  Moene <toon@moene.indiv.nluug.nl
Received: (qmail 6770 invoked by uid 61); 23 Jul 2002 20:30:29 -0000
Message-Id: <20020723203029.6769.qmail@sources.redhat.com>
Date: Tue, 23 Jul 2002 13:36:00 -0000
From: Toon@sources.redhat.com, Moene <toon@moene.indiv.nluug.nl
Reply-To: Toon@sources.redhat.com, Moene <toon@moene.indiv.nluug.nl
To: gcc-gnats@gcc.gnu.org
Cc: allan@rolls-royce.ca, george@geo.titech.ac.jp
X-Send-Pr-Version: gnatsweb-2.9.3 (1.1.1.1.2.31)
X-GNATS-Notify: allan@rolls-royce.ca, george@geo.titech.ac.jp
Subject: fortran/7388: Incorrect output with 0 based array of characters.
X-SW-Source: 2002-07/txt/msg00643.txt.bz2
List-Id: <gcc-prs.sourceware.org>


>Number:         7388
>Category:       fortran
>Synopsis:       Incorrect output with 0 based array of characters.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue Jul 23 13:36:00 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     Toon Moene <toon@moene.indiv.nluug.nl
>Release:        3.1
>Organization:
>Environment:
Linux, probably unimportant
>Description:
This code:

      character*256 buff(0:10)
      character*80 strings(10)
      integer i,m1,m2

      i = 1
      m1 = 1
      m2 = 7
      buff(i) = 'tcase0a'
      strings(i) = buff(i)(m1:m2)
      write(*,*)buff(i)
      write(*,*)buff(i)(m1:m2)
      write(*,*)strings(i)

      stop
      end

should print "tcase0a" three times, the first time with 248
blanks attached.

However, with 'g77 [other options] -fbounds-check' it
doesn't.
>How-To-Repeat:

>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: