gcc/testsuite/gfortran.dg/dec-comparison-int_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdec" }
   3 !
   4 ! Test case contributed by Mark Eggleston  <mark.eggleston@codethink.com>
   5 !
   6
   7 program convert
   8   integer(4) :: a
   9   integer(4) :: b
  10   a = 4HABCD
  11   b = transfer("ABCD", b)
  12   ! Hollerith constants
  13   if (a.ne.4HABCD) stop 1
  14   if (a.eq.4HABCE) stop 2
  15   if (4HABCD.ne.b) stop 3
  16   if (4HABCE.eq.b) stop 4
  17   if (4HABCE.lt.a) stop 5
  18   if (a.gt.4HABCE) stop 6
  19   if (4HABCE.le.a) stop 7
  20   if (a.ge.4HABCE) stop 8
  21 end program
  22