1239313Sdim integer *8 foo, bar 2239313Sdim double complex c 3239313Sdim data c/(4d10,0)/ 4239313Sdim foo = 4d10 5239313Sdim bar = c 6239313Sdim if (foo .ne. bar) call abort 7239313Sdim end 8239313Sdim