From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 29044 invoked by alias); 7 Jan 2007 16:42:22 -0000 Received: (qmail 29035 invoked by uid 22791); 7 Jan 2007 16:42:22 -0000 X-Spam-Check-By: sourceware.org Received: from WARSL404PIP2.highway.telekom.at (HELO email.aon.at) (195.3.96.113) by sourceware.org (qpsmtpd/0.31) with ESMTP; Sun, 07 Jan 2007 16:42:15 +0000 Received: (qmail 28647 invoked from network); 7 Jan 2007 16:42:06 -0000 Received: from m855p008.adsl.highway.telekom.at (HELO s37.loc) ([62.47.138.200]) (envelope-sender ) by smarthub79.highway.telekom.at (qmail-ldap-1.03) with SMTP for ; 7 Jan 2007 16:42:06 -0000 Received: from cow by s37.loc with local (Exim 4.63) (envelope-from ) id 1H3b7i-0006rZ-EZ; Sun, 07 Jan 2007 17:43:54 +0100 Date: Sun, 07 Jan 2007 16:42:00 -0000 From: Bernhard Fischer To: fortran@gcc.gnu.org Cc: gcc-patches@gcc.gnu.org Subject: [patch, fortran, committed] commentary typo fix Message-ID: <20070107164354.GE17577@aon.at> References: <20061120143332.GA7092@aon.at> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: <20061120143332.GA7092@aon.at> User-Agent: Mutt/1.5.13 (2006-08-11) Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2007-01/txt/msg00510.txt.bz2 On Mon, Nov 20, 2006 at 03:33:32PM +0100, Bernhard Fischer wrote: >Hi, > >I intend to commit the attached patch as obvious in a day or two. > >2006-11-20 Bernhard Fischer > > * trans-array.c (gfc_trans_create_temp_array): Commentary typo fix. > >thanks, Applied to trunk as r120550. >Index: gcc-4.3/gcc/fortran/trans-array.c >=================================================================== >--- gcc-4.3/gcc/fortran/trans-array.c (revision 119010) >+++ gcc-4.3/gcc/fortran/trans-array.c (working copy) >@@ -671,7 +671,7 @@ gfc_trans_create_temp_array (stmtblock_t > > if (function) > { >- /* Check wether the size for this dimension is negative. */ >+ /* Check whether the size for this dimension is negative. */ > cond = fold_build2 (LE_EXPR, boolean_type_node, tmp, > gfc_index_zero_node); > >@@ -3189,7 +3189,7 @@ gfc_array_init_size (tree descriptor, in > /* Calculate the size of this dimension. */ > size = fold_build2 (PLUS_EXPR, gfc_array_index_type, se.expr, size); > >- /* Check wether the size for this dimension is negative. */ >+ /* Check whether the size for this dimension is negative. */ > cond = fold_build2 (LE_EXPR, boolean_type_node, size, > gfc_index_zero_node); > if (n == 0)