gcc/testsuite/gfortran.dg/dec-comparison-character_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   character(4) :: c = 4HJMAC
   9   if (4HJMAC.ne.4HJMAC) stop 1
  10   if (4HJMAC.ne."JMAC") stop 2
  11   if (4HJMAC.eq."JMAN") stop 3
  12   if ("JMAC".eq.4HJMAN) stop 4
  13   if ("AAAA".eq.5HAAAAA) stop 5
  14   if ("BBBBB".eq.5HBBBB ) stop 6
  15   if (4HJMAC.ne.c) stop 7
  16   if (c.ne.4HJMAC) stop 8
  17 end program
  18