1 integer *8 foo, bar 2 complex c 3 data c/(4e10,0)/ 4 foo = 4e10 5 bar = c 6 if (foo .ne. bar) call abort 7 end 8