example_017_a.F90

module module_017
  implicit none
  interface sub_017
    module subroutine subroutine_017(input, output)  ! interface defined here, body will be found in a submodule
      implicit none
#if defined(WITH_VALUE)
      integer, intent(IN), value :: input      ! the value clause generates an error with some compilers (nvfortran/aocc-flang)
#else
      integer, intent(IN) :: input
#endif
      integer, intent(OUT) :: output
    end
  end interface
end module