is_stdout_locked Function

private pure function is_stdout_locked(self) result(is_locked)

Return status of standard output unit.

Arguments

Type IntentOptional AttributesName
class(bar_object), intent(in) :: self

Bar.

Return Value logical

Standard output status.


Source Code


Source Code

   pure function is_stdout_locked(self) result(is_locked)
   !< Return status of standard output unit.
   class(bar_object), intent(in) :: self      !< Bar.
   logical                       :: is_locked !< Standard output status.

   is_locked = self%is_stdout_locked_
   endfunction is_stdout_locked