program assign1_1 implicit none integer :: xxx xxx=2**20 print*,'2 to power of 20 =',xxx end program assign1_1