set_lang Subroutine

private pure elemental subroutine set_lang(this, lang)

Type Bound

compiler_explorer

Arguments

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

Contents

Source Code

set_lang

Source Code

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

      this%lang = trim(lang)
   end subroutine set_lang