Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/unf_io_convert_3.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 } ! { dg-require-effective-target fortran_large_real } program main integer,parameter :: k = selected_real_kind (precision (0.0_8) + 1) real(kind=k) a,b,c a = 1.1_k open(10,convert="swap",form="unformatted") ! { dg-warning "Extension: CONVERT" } write(10) a backspace 10 read (10) b close(10,status="delete") if (a /= b) call abort write (11) a backspace 11 open (11,form="unformatted") read (11) c if (a .ne. c) call abort close (11, status="delete") end program main