blob: ae7e4a79b31f8dc95757949f1b2d4a822215f6fd [file] [log] [blame]
! { dg-do compile }
! PR 16404 Nr. 8
! IO of derived types containing pointers is not allowed
program der_io_1
type t
integer, pointer :: p
end type
integer, target :: i
type (t) v
character(4) :: s
v%p => i
i = 42
write (unit=s, fmt='(I2)') v ! { dg-error "POINTER components" }
if (s .ne. '42') STOP 1
end program