Silverfrost FTN95: Fortran for Windows version 8.80

We are pleased to announce the release of FTN95 version 8.80. This is available for download now to supported users.

New Features:

• The Fortran 2003 STREAM input and output has been added.
• The Fortran 2003 standard intrinsic MOVE_ALLOC has been added.
• The Fortran 2008 ISO_C_BINDING C_SIZEOF intrinsic has been added.
• The Fortran 2008 standard intrinsic STORAGE_SIZE has been added.
• SLINK64 is now provided as a 64 bit executable with the potential to handle much larger memory allocation.
• 64 bit uninitialised COMMON data is now automatically zeroised unless /UNDEF is used.
• New diagnostic routine EXPORTCALLSTACK@ added.
• More intrinsics are now available in initialisation statements.
• Fortran 2003 INTENT is now allowed for POINTER arguments.
• Allocate on assignment has been extended to simple logical expressions.
• ClearWin+: A new routine CONTROL_UPDATE@ has been added as an alternative to WINDOW_UPDATE@. It behaves exactly like WINDOW_UPDATE@ but if the variable relates to %rd or %rf then any limits (%il or %fl) are not applied and any out-of-range alert icon is removed.
• ClearWin+: A new routine WINCLASS@ has been added. It is similar to WINSTYLE@ (see item 385) but must be called before any other ClearWin+ library routine.
• ClearWin+: An existing undocumented routine for %cw called CANCEL_SELECTION@ has been added to clearwin.ins and clrwin.mod
• ClearWin+: A new format code %wt has been added. It provides a 'wait' instruction that takes effect when the window is being closed with the result that control is not returned to the caller until after the closure has been completed.
• ClearWin+: The designer for Visual ClearWin+ (%~wi) has been extended to allow UNICODE strings to be entered into the Properties dialogs for plain text and for buttons.
• ClearWin+: Two new standard callbacks 'CLOSE' and 'VERSION' have be added.
• ClearWin+: A new format code %av has been added.
• ClearWin+: Two new routines DRAW_CURVESD@ and DRAW_SYMBOLSD@ have been added.
• ClearWin+: A new routine SET_PLOT_MODE@ has been added for use with %pl
• ClearWin+: A new option has been added for comboboxes which is %`ls[fixed_width]
• ClearWin+: A previously undocumented subroutine GRAB_DESKTOP_DIB@ can be used to create a device independent bitmap (DIB) from a given rectangle on the desktop.
• ClearWin+: A new function EXPORT_DIB_IMAGE@ has been added. It is similar to EXPORT_IMAGE@ but is used with DIBs whereas EXPORT_IMAGE@ is used with 'drawing surfaces'.
• ClearWin+: A new function EXPORT_WINDOW_IMAGE@ combines the functionality of GRAB_DESKTOP_DIB@ and EXPORT_DIB_IMAGE@ into one function.
• ClearWin+: A new function LOADRESOURCE@ returns the Microsoft HANDLE for a bitmap, icon or cursor.
• ClearWin+: A new function WINDOWATCURSOR@ returns the Windows HWND of the window at the current cursor position.
• ClearWin+: A new function GETCURSORPOS@ provides the pixel co-ordinates of the current cursor position.
• ClearWin+: The format codes %bm and %ic can now take the option [static].
• ClearWin+: An option to adjust the 'tension' of a %pl graph has been added in the form winop@('%pl[tension=1.0]').
• ClearWin+: %si has been extended to provide 16x16 icons.
• ClearWin+: New options have the added to %co in order to provide alternatives to the default action for %~il and %~fl when an out-of-range value is either a) input by a user keyboard edit or b) provided by a programmed update to the associated variable (e.g. together with a call to WINDOW_UPDATE@).

Outline summary of some of the bugs that have been fixed:

• 64 bit /CHECK failed for type conversion from LOGICAL4 to LOGICAL2.
• 64 bit RECOVER_DIB_BLOCK@ was using the wrong pixel order for RGB.
• There were NAMELIST failures for both 32 and 64 bits.
• /LIST /64 was giving incorrect offsets.
• /OPT was causing some compilation errors to get lost.
• Various failures relating to dummy arguments with POINTER attribute have been fixed.
• The intrinsic CHAR when used in an array constructor and initialisation statement was giving an Internal Compiler Error.
• GET_COMMAND_ARGUMENT was failing when the first argument is INTEGER*2.
• An implicit REAL when used as an index in an implied DO and initialisation statement was giving an Internal Compiler Error.
• An exclamation mark was rejected as a continuation character in column 6.
• /64 /UNDEF was not working for a large array.
• There was an access violation when calling DEALLOCATE in a certain 32 bit context.
• There was a failure when calling a function from a contained routine when passed as an argument in the host.
• INCLUDE after CONTAINS was not working.
• STOP with more than one argument was not trapped by the compiler.