mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-24 11:24:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR libfortran/20950 ([4.0 only] segfault in INQUIRE asking for SEQUENTIAL status)

Browse Source 
PR libfortran/20950
	* io/inquire.c (inquire_via_unit): Check for the gfc_unit being
	NULL when setting ioparm.sequential.
	* gfortran.dg/pr20950.f: New test.

From-SVN: r98312
This commit is contained in:
Francois-Xavier Coudert 2005-04-18 09:34:32 +02:00 committed by François-Xavier Coudert
parent 8c9de419a1
commit 293fcb2e28
4 changed files with 28 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20950
* gfortran.dg/pr20950.f: New test.
2005-04-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19216

7
gcc/testsuite/gfortran.dg/pr20950.f Normal file
View File

@ -0,0 +1,7 @@
! PR libfortran/20950
! Original bug-report by Walt Brainerd, The Fortran Company
! { dg-do run }
character*20 c
inquire (33, sequential = c)
if (c .ne. "UNKNOWN") call abort
end

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20950
* io/inquire.c (inquire_via_unit): Check for the gfc_unit being
NULL when setting ioparm.sequential.
2005-04-17 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21075

17
libgfortran/io/inquire.c
View File

@ -87,13 +87,16 @@ inquire_via_unit (gfc_unit * u)
if (ioparm.sequential != NULL)
{
/* disallow an open direct access file to be accessed
sequentially */
if (u->flags.access==ACCESS_DIRECT)
p = "NO";
else
p = (u == NULL) ? inquire_sequential (NULL, 0) :
inquire_sequential (u->file, u->file_len);
if (u == NULL)
p = inquire_sequential (NULL, 0);
else
{
/* disallow an open direct access file to be accessed sequentially */
if (u->flags.access == ACCESS_DIRECT)
p = "NO";
else
p = inquire_sequential (u->file, u->file_len);
}
cf_strcpy (ioparm.sequential, ioparm.sequential_len, p);
}