set_compiler_id Subroutine

private pure elemental subroutine set_compiler_id(this, compiler_id)

Type Bound

compiler_explorer

Arguments

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

Contents

Source Code


Source Code

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

      this%compiler_id = trim(compiler_id)
   end subroutine set_compiler_id