Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/boz_6.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-std=gnu" } ! PR 24917 program test integer ib, io, iz, ix integer jb, jo, jz, jx data ib, jb /b'111', '111'b/ data io, jo /o'234', '234'o/ data iz, jz /z'abc', 'abc'z/ data ix, jx /x'abc', 'abc'x/ if (ib /= jb) STOP 1 if (io /= jo) STOP 2 if (iz /= jz) STOP 3 if (ix /= jx) STOP 4 end program test