FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/17472 ([4.0 only] namelist does not handle arrays)

Browse source 
-------------------------------------------------------------------

From-SVN: r98287
This commit is contained in:
Paul Thomas 2005-04-17 20:09:37 +00:00
parent 3f620b5f2b
commit 29dc5138c3
30 changed files with 2459 additions and 426 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libgfortran/io/lock.c
View file

@ -1,5 +1,5 @@
/* Thread/recursion locking
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> and Andy Vaught
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -73,20 +73,28 @@ library_end (void)
g.in_library = 0;
filename = NULL;
line = 0;
t = ioparm.library_return;
/* Delete the namelist, if it exists. */
if (ionml != NULL)
{
t1 = ionml;
while (t1 != NULL)
{
t2 = t1;
t1 = t1->next;
free_mem (t2);
}
{
t2 = t1;
t1 = t1->next;
free_mem (t2->var_name);
if (t2->var_rank)
{
free_mem (t2->dim);
free_mem (t2->ls);
}
free_mem (t2);
}
}
ionml = NULL;
memset (&ioparm, '\0', sizeof (ioparm));
ioparm.library_return = t;
}