program complex2
complex :: x, y, z
x = (3.0, 4.0)
y = (3.0, 2.0)
z = x**y
print *, z 
end program
