1        integer *8 foo, bar
2	double precision r
3        data r/4d10/
4        foo = 4d10
5        bar = r
6        if (foo .ne. bar) call abort
7        end
8