A question of code in comdlg32.f90

Accelerated Computing HPC Compilers Legacy PGI Compilers
#1

I notice that the first function GetOpenFileName,As:

     INTERFACE
     FUNCTION GetOpenFileName(   &
         p1)
     USE DFWINTY
         integer(BOOL) :: GetOpenFileName ! BOOL
!DEC$ ATTRIBUTES STDCALL, DECORATE, ALIAS : 'GetOpenFileNameA' :: GetOpenFileName
         integer(HANDLE) p1 ! LPOPENFILENAMEA p1
     END FUNCTION
     END INTERFACE

But the code write by intel is like this:

   INTERFACE 
    FUNCTION GetOpenFileName( &
            arg1)
    use ifwinty
      integer(BOOL) :: GetOpenFileName ! BOOL
        !DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'GetOpenFileNameA' :: GetOpenFileName
    !DEC$ ATTRIBUTES REFERENCE, ALLOW_NULL :: arg1
     TYPE (T_OPENFILENAME) arg1 ! LPOPENFILENAMEA arg1
     END FUNCTION
    END INTERFACE

Will you fix it soon?I need to use this function…

#2

Or anybody can tell me how to use this function to open a file?

#3

Hi unwannadie,

Apologies for missing this post. I put in a issue report (TPR#21091) and sent it on to engineering for further review.

Thanks,
Mat