编辑代码

program main
    integer::num,i
	real(8),allocatable::g1(:),g2(:)
    num=8
    allocate(g1(num))
    allocate(g2(num))
    do i=1,8
    g1(i)=i*2
    end do
    g2(:)=g1(:)*2
    print *,g2(:)

end