fdoc

functionis_windowsprivate

logical function is_windows()

True on Windows, which sets the variable OS to this value.

Result

NameTypeAttributesDescription
is_windowslogical

Source

Show the code
logical function is_windows()
    character(len=16) :: value
    integer :: status

    call get_environment_variable('OS', value, status=status)
    is_windows = status == 0 .and. value == 'Windows_NT'
end function is_windows

Graphs

Called by