toml-f の status を BEACH の停止メッセージへ変換する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | stat | |||
| character(len=*), | intent(in) | :: | context |
subroutine require_toml_success(stat, context) integer, intent(in) :: stat character(len=*), intent(in) :: context if (stat /= toml_stat%success) then error stop 'Invalid TOML value for '//trim(context)//'.' end if end subroutine require_toml_success