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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/class_array_20.f03

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

gcc/testsuite/gfortran.dg/class_array_21.f03

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

gcc/testsuite/gfortran.dg/dtio_15.f90

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

gcc/testsuite/gfortran.dg/finalize_29.f08

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

gcc/testsuite/gfortran.dg/unlimited_polymorphic_23.f90

-! {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

libgfortran/ChangeLog

+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>

libgfortran/io/inquire.c

@@ -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)