PROGRAM bumble
    IMPLICIT NONE
    INTEGER :: i
    INTEGER, PARAMETER, DIMENSION(20) :: ints = (/ (i, i = 1, 20) /)

    DO i = 19,1,-2
        WRITE(*,*) ints(i)
    END DO
    WRITE(*,*) (ints(i), i=19,1,-2)
    WRITE(*,*) ints(19:1:-2)
END PROGRAM bumble