GlutilsMOD.f90 does not compile with XE 2017

[chunky_lover_23]

Trying to rebuild my programs on XE2017 (ID w_comp_lib_2017.4.210)  under Microsoft Visual Studio Enterprise 2015 (Version 14.0.25431.01 Update 3)

Get an error:

error #8752: This derived type component of an interoperable type is not itself interoperable (does not have the BIND(C) attribute).   [PALPALENTRY]

Any Ideas

Snippet from code see: below:

! Declare our own type for LOGPALETTE - the one in IFWINTY has just

! one element. The C code used malloc, and there are various Fortran

! ways we could fudge this, but the following seems simplest. Note that

! there is a 256-entry limit to a palette.

type, bind(C) :: OUR_LOGPALETTE

integer(WORD) palVersion

integer(WORD) palNumEntries

TYPE (T_PALETTEENTRY) palPalEntry(0:255)

[andrew_4619 · Accepted solution]

        type :: OUR_LOGPALETTE
              sequence
              integer(WORD) palVersion
              integer(WORD) palNumEntries 
              TYPE (T_PALETTEENTRY) palPalEntry(0:255)
        end type OUR_LOGPALETTE

Removing bind(c) and add sequence works.

[andrew_4619]

Otherwise you would need to define your own type  MY_T_PALAETTENTRY with bind(c)

[chunky_lover_23]

Thank you Andrew.  The "sequence" option works a treat..