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