Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/boz_int.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
line wrap: on
line source

! { dg-do run }
program foo
   implicit none
   integer(1) i1
   integer(2) i2
   integer(4) i4, j4
   integer(8) i8
   i1 = int(z'12', 1);      if (i1 /= 18)         stop 1
   i2 = int(z'1234', 2);    if (i2 /= 4660)       stop 2
   i4 = int(z'1234', 4);    if (i4 /= 4660)       stop 3
   j4 = int(z'1234');       if (i4 /= 4660)       stop 4
   i8 = int(z'1233456',8);  if (i8 /= 19084374_8) stop 5
end program