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