.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/regression/f90continuation.f90


1
2
3
4
5
6
7
8
9

SUBROUTINE TESTSUB(INPUT1, & ! Hello
! commenty
INPUT2, OUTPUT1, OUTPUT2) ! more comments
    INTEGER, INTENT(IN) :: INPUT1, INPUT2
    INTEGER, INTENT(OUT) :: OUTPUT1, OUTPUT2
    OUTPUT1 = INPUT1 + &
              INPUT2
    OUTPUT2 = INPUT1 * INPUT2
END SUBROUTINE TESTSUB