Fortran — arrays — DedSec Project

program demo implicit none integer :: values(3) = 1, 2, 3 print , sum(values) end program demo

Αναφορά πηγαίου κώδικα

program demo
  implicit none
  integer :: values(3) = [1, 2, 3]
  print *, sum(values)
end program demo