Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/unf_io_convert_2.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } program main complex(kind=4) :: c real(kind=4) :: a(2) integer(kind=4) :: i(2) integer(kind=1) :: b(8) integer(kind=8) :: j c = (3.14, 2.71) open (10, form="unformatted",convert="swap") ! { dg-warning "Extension: CONVERT" } write (10) c rewind (10) read (10) a if (a(1) /= 3.14 .or. a(2) /= 2.71) call abort close(10,status="delete") open (10, form="unformatted",convert="big_endian") ! { dg-warning "Extension: CONVERT" } i = (/ Z'11223344', Z'55667700' /) write (10) i rewind (10) read (10) b if (any(b /= (/ Z'11', Z'22', Z'33', Z'44', Z'55', Z'66', Z'77', Z'00' /))) & call abort backspace 10 read (10) j if (j /= Z'1122334455667700') call abort close (10, status="delete") open (10, form="unformatted", convert="little_endian") ! { dg-warning "Extension: CONVERT" } write (10) i rewind (10) read (10) b if (any(b /= (/ Z'44', Z'33', Z'22', Z'11', Z'00', Z'77', Z'66', Z'55' /))) & call abort backspace 10 read (10) j if (j /= Z'5566770011223344') call abort close (10, status="delete") end program main