]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgfortran/intrinsics/malloc.c
Update copyright years in libgfortran.
[thirdparty/gcc.git] / libgfortran / intrinsics / malloc.c
CommitLineData
0d519038 1/* Implementation of the MALLOC and FREE intrinsics
e3c063ce 2 Copyright (C) 2005-2013 Free Software Foundation, Inc.
0d519038
FXC
3 Contributed by François-Xavier Coudert <coudert@clipper.ens.fr>
4
74544378 5This file is part of the GNU Fortran runtime library (libgfortran).
0d519038
FXC
6
7Libgfortran is free software; you can redistribute it and/or
8modify it under the terms of the GNU General Public
9License as published by the Free Software Foundation; either
748086b7 10version 3 of the License, or (at your option) any later version.
0d519038
FXC
11
12Libgfortran is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
748086b7
JJ
17Under Section 7 of GPL version 3, you are granted additional
18permissions described in the GCC Runtime Library Exception, version
193.1, as published by the Free Software Foundation.
20
21You should have received a copy of the GNU General Public License and
22a copy of the GCC Runtime Library Exception along with this program;
23see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24<http://www.gnu.org/licenses/>. */
0d519038 25
0d519038 26#include "libgfortran.h"
0d519038 27#include <stdlib.h>
74544378 28
0d519038
FXC
29
30extern void PREFIX(free) (void **);
31export_proto_np(PREFIX(free));
32
33void
34PREFIX(free) (void ** ptr)
35{
36 free (*ptr);
37}
38
39
40extern void * PREFIX(malloc) (size_t *);
41export_proto_np(PREFIX(malloc));
42
43void *
44PREFIX(malloc) (size_t * size)
45{
46 return malloc (*size);
47}