gcc/testsuite/gfortran.dg/unf_io_convert_3.f90

   1 ! { dg-do run}
   2 ! { dg-require-effective-target fortran_large_real }
   3 program main
   4   integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1)
   5   real(kind=k) a,b,c
   6   a = 1.1_k
   7   open(10,convert="swap",form="unformatted") ! { dg-warning "Extension: CONVERT" }
   8   write(10) a
   9   backspace 10
  10   read (10) b
  11   close(10,status="delete")
  12   if (a /= b) call abort
  13   write (11) a
  14   backspace 11
  15   open (11,form="unformatted")
  16   read (11) c
  17   if (a .ne. c) call abort
  18   close (11, status="delete")
  19 end program main