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:
parent
73e1414cb8
commit
a40278c3e3
|
@ -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>
|
||||
|
||||
PR middle-end/77826
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! {dg-do run}
|
||||
! { dg-do run }
|
||||
!
|
||||
! Test contributed by Thomas L. Clune via pr60322
|
||||
! and Antony Lewis via pr64692
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! {dg-do run}
|
||||
! { dg-do run }
|
||||
!
|
||||
! Contributed by Andre Vehreschild
|
||||
! Check more elaborate class array addressing.
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! {dg-do run }
|
||||
! { dg-do run }
|
||||
! Test that inquire of string internal unit in child process errors.
|
||||
module string_m
|
||||
implicit none
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! {dg-do run}
|
||||
! { dg-do run }
|
||||
!
|
||||
! Testcase contributed by Andre Vehreschild <vehre@gcc.gnu.org>
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! {dg-do run }
|
||||
! { dg-do run }
|
||||
!
|
||||
! Test the fix for PR65024, in which the structure for the 'info'
|
||||
! component of type 'T' was not being converted into TREE_SSA and
|
||||
|
|
|
@ -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>
|
||||
|
||||
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.
|
||||
|
||||
2016-10-01 Andre Vehreschild <vehre@gcc.gnu.org>
|
||||
|
|
|
@ -43,7 +43,7 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u)
|
|||
|
||||
if (iqp->common.unit == GFC_INTERNAL_UNIT ||
|
||||
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);
|
||||
|
||||
if ((cf & IOPARM_INQUIRE_HAS_EXIST) != 0)
|
||||
|
|
Loading…
Reference in New Issue