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 2cd54474726b01da0867edd23aa07394240bcce7..a1be5838a73d3015daa12436a8186bea69b148da 100644 (file)
--- 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 124379527e7077ef075632421832c9452ebe9ebc..711eecbd295c38990fa7f81dd11605e7d5276d8d 100644 (file)
--- 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)