RosettaCodeData/Task/Named-parameters/Fortran/named-parameters-1.f
2023-07-01 13:44:08 -04:00

5 lines
141 B
Fortran

subroutine a_sub(arg1, arg2, arg3)
integer, intent(in) :: arg1, arg2
integer, intent(out), optional :: arg3
! ...
end subroutine a_sub