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" }
9end
10