RosettaCodeData/Task/Pointers-and-references/Fortran/pointers-and-references-9.f

5 lines
63 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
real, dimension(20) :: a
real, dimension(16) :: p
p = a(5:20)