git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/77868 (Fail to NULL guard check for internal unit in inquire_via_unit) 

2016-10-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/77868
	* io/inquire.c (inquire_via_unit): NULL guard the check for
	internal unit passed into child IO procedure.

	* gfortran.dg/dtio_15.f90: Fix spaces in dg-do.
	* gfortran.dg/class_array_20.f03: Likewise.
	* gfortran.dg/class_array_21.f03: Likewise.
	* gfortran.dg/finalize_29.f08: Likewise.
	* gfortran.dg/unlimited_polymorphic_23.f90: Likewise.

From-SVN: r240794
This commit is contained in:
Jerry DeLisle 2016-10-05 16:32:24 +00:00
parent 73e1414cb8
commit a40278c3e3
8 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2016-10-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/dtio_15.f90: Fix spaces in dg-do.
* gfortran.dg/class_array_20.f03: Likewise.
* gfortran.dg/class_array_21.f03: Likewise.
* gfortran.dg/finalize_29.f08: Likewise.
* gfortran.dg/unlimited_polymorphic_23.f90: Likewise.
2016-10-05 Richard Biener <rguenther@suse.de> 2016-10-05 Richard Biener <rguenther@suse.de>
PR middle-end/77826 PR middle-end/77826

2
gcc/testsuite/gfortran.dg/class_array_20.f03
View File

@ -1,4 +1,4 @@
! {dg-do run} ! { dg-do run }
! !
! Test contributed by Thomas L. Clune via pr60322 ! Test contributed by Thomas L. Clune via pr60322
! and Antony Lewis via pr64692 ! and Antony Lewis via pr64692

2
gcc/testsuite/gfortran.dg/class_array_21.f03
View File

@ -1,4 +1,4 @@
! {dg-do run} ! { dg-do run }
! !
! Contributed by Andre Vehreschild ! Contributed by Andre Vehreschild
! Check more elaborate class array addressing. ! Check more elaborate class array addressing.

2
gcc/testsuite/gfortran.dg/dtio_15.f90
View File

@ -1,4 +1,4 @@
! {dg-do run } ! { dg-do run }
! Test that inquire of string internal unit in child process errors. ! Test that inquire of string internal unit in child process errors.
module string_m module string_m
implicit none implicit none

2
gcc/testsuite/gfortran.dg/finalize_29.f08
View File

@ -1,4 +1,4 @@
! {dg-do run} ! { dg-do run }
! !
! Testcase contributed by Andre Vehreschild <vehre@gcc.gnu.org> ! Testcase contributed by Andre Vehreschild <vehre@gcc.gnu.org>

2
gcc/testsuite/gfortran.dg/unlimited_polymorphic_23.f90
View File

@ -1,4 +1,4 @@
! {dg-do run } ! { dg-do run }
! !
! Test the fix for PR65024, in which the structure for the 'info' ! Test the fix for PR65024, in which the structure for the 'info'
! component of type 'T' was not being converted into TREE_SSA and ! component of type 'T' was not being converted into TREE_SSA and

8
libgfortran/ChangeLog
View File

@ -1,6 +1,12 @@
2016-10-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/77868
* io/inquire.c (inquire_via_unit): NULL guard the check for
internal unit passed into child IO procedure.
2016-10-04 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2016-10-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
io/inquire.c (inquire_via_unit): Add check for internal unit * io/inquire.c (inquire_via_unit): Add check for internal unit
passed into child IO procedure. passed into child IO procedure.
2016-10-01 Andre Vehreschild <vehre@gcc.gnu.org> 2016-10-01 Andre Vehreschild <vehre@gcc.gnu.org>

2
libgfortran/io/inquire.c
View File

@ -43,7 +43,7 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u)
if (iqp->common.unit == GFC_INTERNAL_UNIT || if (iqp->common.unit == GFC_INTERNAL_UNIT ||
iqp->common.unit == GFC_INTERNAL_UNIT4 || iqp->common.unit == GFC_INTERNAL_UNIT4 ||
u->internal_unit_kind != 0) (u != NULL && u->internal_unit_kind != 0))
generate_error (&iqp->common, LIBERROR_INQUIRE_INTERNAL_UNIT, NULL); generate_error (&iqp->common, LIBERROR_INQUIRE_INTERNAL_UNIT, NULL);
if ((cf & IOPARM_INQUIRE_HAS_EXIST) != 0) if ((cf & IOPARM_INQUIRE_HAS_EXIST) != 0)