编辑代码

program main
	print *, "Hello  JSRUN    - from gfrotran"
!    integer,dimension(3)::A(3)
!    integer,dimension(3)::B(3)
!    integer::i,j,sumAB
!    sumAB=0
!    sumAB=A(1:3)*B(1:3)
!    print*,sumAB   
end