API interface error GetUserName in ADVAPI32.f90/compiler 18.0

[andrew_4619]

In ADVAPI32.f90 in compiler 18.0 we have:

INTERFACE 
FUNCTION GetUserName( &
        lpBuffer, &
        nSize)
use ifwinty
  integer(BOOL) :: GetUserName ! BOOL
    !DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'GetUserNameA' :: GetUserName
!DEC$ ATTRIBUTES REFERENCE, ALLOW_NULL :: lpBuffer
  character*(*) lpBuffer ! LPSTR lpBuffer
  integer(LPDWORD) nSize ! LPDWORD nSize
 END FUNCTION
END INTERFACE

Using this causes a crash as nSize is in/out and should be passed by reference. I have applied a local fix but it needs updating....

[Steve_Lionel]

Best to report this through the Intel Service Center.

[andrew_4619 · Accepted solution]

Done

[Robert_van_Amerongen]

Andrew,

the problem is not in the function itself. I have added a small example.

Robert

[andrew_4619]

Indeed Robert, the interface is wrong for nsize.