Hi,
I followed this to add call to clearwin_option https://forums.silverfrost.com/Forum/Topic/3824&highlight=clearwinoption
WinApp
Program p
!
INCLUDE <CLEARWIN.INS>
Character(Len=256) :: ffile ! - selected file -
Character(Len=256) :: idir ! - input directory -
!
External :: get_filtered_file@
!
call clearwin_option@('alt_open_save')
ffile = ' '
idir = '.'
Call get_filtered_file@ ('Test', ffile, idir, (/'All'/), (/'*.*'/), 1, 1)
Print *, 'Test completed'
End Program p
This test code works, but when I try to add the call in my real code, it pops up this error message.
I am under win10@64. The program is compiled in 32bit. FTN95 ver 8.61
Cheers,
John