set_source Subroutine

  1. forcompile.f90
  2. forcompile
  3. set_source

private pure elemental subroutine set_source(this, source)

Type Bound

compiler_explorer

Arguments

Type IntentOptional Attributes Name
class(compiler_explorer), intent(inout) :: this
character(len=*), intent(in) :: source

Contents

Source Code

set_source

Source Code

   elemental pure subroutine set_source(this, source)
      class(compiler_explorer), intent(inout) :: this
      character(len=*), intent(in)           :: source

      this%source = trim(source)
   end subroutine set_source