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