gcc/testsuite/gfortran.dg/g77/19990313-2.f

   1 c { dg-do run }
   2        integer(kind=8) foo, bar
   3        complex c
   4         data c/(4e10,0)/
   5         foo = 4e10
   6         bar = c
   7         if (foo .ne. bar) call abort
   8         end