gcc/testsuite/gfortran.dg/unf_io_convert_2.f90

   1 ! { dg-do run }
   2 program main
   3   complex(kind=4) :: c
   4   real(kind=4) :: a(2)
   5   integer(kind=4) :: i(2)
   6   integer(kind=1) :: b(8)
   7   integer(kind=8) :: j
   8
   9   c = (3.14, 2.71)
  10   open (10, form="unformatted",convert="swap") ! { dg-warning "Extension: CONVERT" }
  11   write (10) c
  12   rewind (10)
  13   read (10) a
  14   if (a(1) /= 3.14 .or. a(2) /= 2.71) STOP 1
  15   close(10,status="delete")
  16
  17   open (10, form="unformatted",convert="big_endian") ! { dg-warning "Extension: CONVERT" }
  18   i = (/ int(Z'11223344'), int(Z'55667700') /)
  19   write (10) i
  20   rewind (10)
  21   read (10) b
  22   if (any(b /= (/ int(Z'11',1), int(Z'22',1), int(Z'33',1), int(Z'44',1), &
  23   &   int(Z'55',1), int(Z'66',1), int(Z'77',1), int(Z'00',1) /))) &
  24     STOP 2
  25   backspace 10
  26   read (10) j
  27   if (j /= int(Z'1122334455667700',8)) STOP 3
  28   close (10, status="delete")
  29
  30   open (10, form="unformatted", convert="little_endian") ! { dg-warning "Extension: CONVERT" }
  31   write (10) i
  32   rewind (10)
  33   read (10) b
  34   if (any(b /= (/ int(Z'44',1), int(Z'33',1), int(Z'22',1), int(Z'11',1), &
  35   &   int(Z'00',1),  int(Z'77',1), int(Z'66',1), int(Z'55',1) /))) &
  36     STOP 4
  37   backspace 10
  38   read (10) j
  39   if (j /= int(Z'5566770011223344',8)) STOP 5
  40   close (10, status="delete")
  41
  42 end program main