1! { dg-do compile }
2! PR 16404 Nr. 8
3! IO of derived types containing pointers is not allowed
4program der_io_1
5  type t
6    integer, pointer :: p
7  end type
8  integer, target :: i
9  type (t) v
10  character(4) :: s
11
12  v%p => i
13  i = 42
14  write (unit=s, fmt='(I2)') v ! { dg-error "POINTER components" "" }
15  if (s .ne. '42') call abort ()
16end program
17
18