Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/convert_2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Check for correct ordering of character variables with CONVERT program main implicit none integer, parameter :: two_swap = 2**25 integer(kind=4) i,j character(len=2) :: c,d open(20,file="convert.dat",form="unformatted",convert="swap") ! { dg-warning "CONVERT" } write (20) "ab" close (20) open(20,file="convert.dat",form="unformatted",access="stream") read(20) i,c,j if (i .ne. two_swap .or. j .ne. two_swap .or. c .ne. "ab") STOP 1 close (20) open(20,file="convert.dat",form="unformatted",convert="swap") ! { dg-warning "CONVERT" } read (20) d close (20,status="delete") if (d .ne. "ab") STOP 2 end program main