编辑代码

PROGRAM nested_loops
INTEGER::i,j,product
DO i = 1,3
  DO j = 1,3
   product = i * j
   WRITE(*,*)i,' * ',j,' = ',product
   END DO
END DO
END PROGRAM nested_loops