API interface error GetUserName in ADVAPI32.f90/compiler 18.0

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....