re PR fortran/41859 (ICE on invalid expression involving DT with pointer components in I/O)

2010-08-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/41859
	* gfortran.dg/der_io_4.f90: New test.

From-SVN: r163561

gcc/testsuite/ChangeLog

+2010-08-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/41859
+	* gfortran.dg/der_io_4.f90: New test.
+
 2010-08-25  Jakub Jelinek  <jakub@redhat.com>
 
 	PR rtl-optimization/44858

gcc/testsuite/gfortran.dg/der_io_4.f90

+! { dg-do compile }
+! PR41859 ICE on invalid expression involving DT with pointer components in I/O.
+! The parens around p below are significant.
+  TYPE :: ptype
+    character, pointer, dimension(:) :: x => null()
+  END TYPE
+  TYPE(ptype) :: p
+  print *, ((((p))))       ! { dg-error "Data transfer element" }
+end