oh_count_suppressed Function

public function oh_count_suppressed() result(flag)

Return .true. if suppress depth > 0 (any suppress scope is active).

Arguments

None

Return Value logical


Source Code

   function oh_count_suppressed() result(flag)
      !! Return .true. if suppress depth > 0 (any suppress scope is active).
      logical :: flag
      flag = (oh_suppress_depth > 0)
   end function oh_count_suppressed