set Subroutine

private pure elemental subroutine set(this, severity, code, category, message, location, suggestion)

Type Bound

debug

Arguments

Type IntentOptional Attributes Name
class(debug), intent(inout) :: this
integer, intent(in) :: severity
integer, intent(in) :: code
character(len=*), intent(in) :: category
character(len=*), intent(in) :: message
character(len=*), intent(in) :: location
character(len=*), intent(in) :: suggestion

Called by

proc~~set~~CalledByGraph proc~set debug%set program~simple simple program~simple->proc~set

Source Code

   pure elemental subroutine set(this, severity, code, category, message, location, suggestion)
      class(debug), intent(inout) :: this
      integer, intent(in) :: severity
      integer, intent(in) :: code
      character(len=*), intent(in) :: category
      character(len=*), intent(in) :: message
      character(len=*), intent(in) :: location
      character(len=*), intent(in) :: suggestion

      if (this%dbg) then
         if (severity/=NONE .and. severity/=ERROR .and. severity/= WARNING .and. severity/=INFO) error stop "Invalid severity level"
         this%severity = severity
         this%code     = code
         if (this%code /= NONE .or. this%severity /= NONE) this%ok = .false.
         this%category   = trim(category)
         this%message    = trim(message)
         this%suggestion = trim(suggestion)
         this%location   = trim(location)
      end if
   end subroutine set