From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 18 Feb 2009 18:09:38 +0000 (+0100)
Subject: intrinsic.texi (MALLOC): Make example more portable.
X-Git-Tag: releases/gcc-4.4.0~507
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=8c685e616f341221fd2682797a7d3219d5c7dcd8;p=thirdparty%2Fgcc.git

intrinsic.texi (MALLOC): Make example more portable.

2009-02-18  Tobias Burnus  <burnus@net-b.de>

       * intrinsic.texi (MALLOC): Make example more portable.

From-SVN: r144266
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2cd54474726b..a1be5838a73d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-18  Tobias Burnus  <burnus@net-b.de>
+
+	* intrinsic.texi (MALLOC): Make example more portable.
+
 2009-02-13  Mikael Morin  <mikael.morin@tele2.fr>
 
 	PR fortran/38259
diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index 124379527e70..711eecbd295c 100644
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -7333,15 +7333,12 @@ C pointers (@code{sizeof(void *)}).
 
 @item @emph{Example}:
 The following example demonstrates the use of @code{MALLOC} and
-@code{FREE} with Cray pointers. This example is intended to run on
-32-bit systems, where the default integer kind is suitable to store
-pointers; on 64-bit systems, ptr_x would need to be declared as
-@code{integer(kind=8)}.
+@code{FREE} with Cray pointers.
 
 @smallexample
 program test_malloc
+  implicit none
   integer i
-  integer ptr_x
   real*8 x(*), z
   pointer(ptr_x,x)