<html lang="en"> <head> <title>MALLOC - The GNU Fortran Compiler</title> <meta http-equiv="Content-Type" content="text/html"> <meta name="description" content="The GNU Fortran Compiler"> <meta name="generator" content="makeinfo 4.13"> <link title="Top" rel="start" href="index.html#Top"> <link rel="up" href="Intrinsic-Procedures.html#Intrinsic-Procedures" title="Intrinsic Procedures"> <link rel="prev" href="LTIME.html#LTIME" title="LTIME"> <link rel="next" href="MASKL.html#MASKL" title="MASKL"> <link href="http://www.gnu.org/software/texinfo/" rel="generator-home" title="Texinfo Homepage"> <!-- Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.3 or any later version published by the Free Software Foundation; with the Invariant Sections being ``Funding Free Software'', the Front-Cover Texts being (a) (see below), and with the Back-Cover Texts being (b) (see below). A copy of the license is included in the section entitled ``GNU Free Documentation License''. (a) The FSF's Front-Cover Text is: A GNU Manual (b) The FSF's Back-Cover Text is: You have freedom to copy and modify this GNU Manual, like GNU software. Copies published by the Free Software Foundation raise funds for GNU development.--> <meta http-equiv="Content-Style-Type" content="text/css"> <style type="text/css"><!-- pre.display { font-family:inherit } pre.format { font-family:inherit } pre.smalldisplay { font-family:inherit; font-size:smaller } pre.smallformat { font-family:inherit; font-size:smaller } pre.smallexample { font-size:smaller } pre.smalllisp { font-size:smaller } span.sc { font-variant:small-caps } span.roman { font-family:serif; font-weight:normal; } span.sansserif { font-family:sans-serif; font-weight:normal; } --></style> </head> <body> <div class="node"> <a name="MALLOC"></a> <p> Next: <a rel="next" accesskey="n" href="MASKL.html#MASKL">MASKL</a>, Previous: <a rel="previous" accesskey="p" href="LTIME.html#LTIME">LTIME</a>, Up: <a rel="up" accesskey="u" href="Intrinsic-Procedures.html#Intrinsic-Procedures">Intrinsic Procedures</a> <hr> </div> <h3 class="section">8.158 <code>MALLOC</code> — Allocate dynamic memory</h3> <p><a name="index-MALLOC-815"></a><a name="index-pointer_002c-cray-816"></a> <dl> <dt><em>Description</em>:<dd><code>MALLOC(SIZE)</code> allocates <var>SIZE</var> bytes of dynamic memory and returns the address of the allocated memory. The <code>MALLOC</code> intrinsic is an extension intended to be used with Cray pointers, and is provided in GNU Fortran to allow the user to compile legacy code. For new code using Fortran 95 pointers, the memory allocation intrinsic is <code>ALLOCATE</code>. <br><dt><em>Standard</em>:<dd>GNU extension <br><dt><em>Class</em>:<dd>Function <br><dt><em>Syntax</em>:<dd><code>PTR = MALLOC(SIZE)</code> <br><dt><em>Arguments</em>:<dd> <p><table summary=""><tr align="left"><td valign="top" width="15%"><var>SIZE</var> </td><td valign="top" width="70%">The type shall be <code>INTEGER</code>. <br></td></tr></table> <br><dt><em>Return value</em>:<dd>The return value is of type <code>INTEGER(K)</code>, with <var>K</var> such that variables of type <code>INTEGER(K)</code> have the same size as C pointers (<code>sizeof(void *)</code>). <br><dt><em>Example</em>:<dd>The following example demonstrates the use of <code>MALLOC</code> and <code>FREE</code> with Cray pointers. <pre class="smallexample"> program test_malloc implicit none integer i real*8 x(*), z pointer(ptr_x,x) ptr_x = malloc(20*8) do i = 1, 20 x(i) = sqrt(1.0d0 / i) end do z = 0 do i = 1, 20 z = z + x(i) print *, z end do call free(ptr_x) end program test_malloc </pre> <br><dt><em>See also</em>:<dd><a href="FREE.html#FREE">FREE</a> </dl> </body></html>