Can't access GetMenuInfo function from USER32.f90

Russell_G_ · ‎03-26-2015

I'm using Intel Visual Fortran 2013, with MSVS 2010. I want to access the GetMenuInfo function which is in the USER32.f90 library.

However I'm not able to access this function. I've tried to create a minimal test case:

SUBROUTINE updatemenu(hWnd)
  USE IFWINTY
  USE USER32
IMPLICIT NONE
  INTEGER(HANDLE)  :: hWnd
  INTEGER(HANDLE)  :: ghMenu
  INTEGER(HANDLE)  :: submenu
  INTEGER(DWORD)   :: ignor
  TYPE(T_MENUINFO) :: minfo

  ghMenu  = GetMenu(hWnd)
  submenu = GetSubMenu(ghMenu, 1)
  ignor   = getMenuInfo(submenu, minfo)
      
END SUBROUTINE updatemenu

When I attempt to compile this, I get the following error:

error #6404: This name does not have a type, and must have an explicit type.   [GETMENUINFO]

What's going on here?

Thanks

Steven_L_Intel1 · ‎03-26-2015

Because the source for USER32 has inappropriate conditionalization. This is being fixed. Use the attached file as a temporary solution - just add it to your project.

447614