integer *8 foo, bar double precision r data r/4d10/ foo = 4d10 bar = r if (foo .ne. bar) call abort end