OSDN Git Service

2009-02-18 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 18 Feb 2009 18:09:38 +0000 (18:09 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 18 Feb 2009 18:09:38 +0000 (18:09 +0000)
       * intrinsic.texi (MALLOC): Make example more portable.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@144266 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.texi

index 2cd5447..a1be583 100644 (file)
@@ -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
index 1243795..711eecb 100644 (file)
@@ -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)