blob: 3b81af9144ea188bea3a1e129a8dc3fc88c3816e [file] [log] [blame]
c { dg-do run }
integer(kind=8) foo, bar
complex c
data c/(4e10,0)/
foo = 4e10
bar = c
if (foo .ne. bar) STOP 1
end