gcc/testsuite/gfortran.dg/der_io_1.f90

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