Buffer a warning-level message
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(log_buffer_type), | intent(inout) | :: | buf | |||
| character(len=*), | intent(in) | :: | message | |||
| character(len=*), | intent(in), | optional | :: | module | ||
| character(len=*), | intent(in), | optional | :: | procedure |
pure subroutine pure_warning(buf, message, module, procedure) !! Buffer a warning-level message type(log_buffer_type), intent(inout) :: buf character(*), intent(in) :: message character(*), intent(in), optional :: module, procedure call buffer_message(buf, "WARNING", message, module, procedure) end subroutine pure_warning