gcc/testsuite/gfortran.dg/der_io_4.f90

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