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

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