xref: /llvm-project/flang/test/Semantics/windows.f90 (revision 856c38d542aee5e29884c307501bf1033a9b2e42)
1*856c38d5SDavid Truby! RUN: %if x86_64-registered-target %{ %python %S/test_errors.py %s %flang --target=x86_64-pc-windows-msvc -Werror %}
2*856c38d5SDavid Truby! RUN: %if aarch64-registered-target %{ %python %S/test_errors.py %s %flang --target=aarch64-pc-windows-msvc -Werror %}
3*856c38d5SDavid Truby
4*856c38d5SDavid Trubysubroutine uid
5*856c38d5SDavid Truby  !WARNING: User IDs do not exist on Windows. This function will always return 1
6*856c38d5SDavid Truby  i = getuid()
7*856c38d5SDavid Trubyend subroutine uid
8*856c38d5SDavid Truby
9*856c38d5SDavid Trubysubroutine gid
10*856c38d5SDavid Truby  !WARNING: Group IDs do not exist on Windows. This function will always return 1
11*856c38d5SDavid Truby  i = getgid()
12*856c38d5SDavid Trubyend subroutine gid
13