forums.silverfrost.com

[silverfrost]

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

Windows 11 24H2 contains (probably erroneous) changes which cause 32-bit FTN95 programs to lockup when a floating-point underflow exception is taken. This can be avoided by calling MASK_UNDERFLOWS@ at the start of your program. FTN95 9.10 will automatically call MASK_UNDERFLOWS@ if it detects Windows 11 24H2.

New Features:

• Fortran 2003 C_F_POINTER and C_ASSOCIATED implemented within the intrisic module ISO_C_BINDING.
  
• Fortran 2003 The intrinsic module IEEE_ARITHMETIC added for Win32 and x64.
  A call can be made to TRAP_FP_EXCEPTIONS@(0) in order to mask all floating point exceptions.
  
• Fortran 2003 Polymorphic types: TYPE EXTENDS and SELECT TYPE implemented.
  
• Fortran 2003 GENERIC OPERaTORS within TYPE CONTAINS implemented.
  
• Fortran 2003 VALUE attribute added for dummy arguments (also includes arrays as permitted in the 2008 Standard).
  
• Fortran 2008 G0 (zero field width) format specifier added.
  
• Fortran 2008 Z,O and B formats added for REAL data.
  
• Fortran 2008 The CONTIGUOUS attribute is now tollerated.
  
• Fortran 2008 FINDLOC has been extended to LOGICAL arrays.
  
• Fortran 2008 DO CONCURRENT LOCAL, LOCAL_INIT, REDUCE, SHARED, and DEFAULT(NONE) are tollerated.
  
• Fortran 2008 SHIFTR,SHIFTL and SHIFTA implemented for Win32 and x64.
  
• FTN95 can now process files that begin with a UTF8 signature.
  
• FTN95 can now handle unformatted, sequential records of size greater than 2GB.
  
• RMDIR@ added to the Fortran library (the folder does not need to be empty).
  
• A new FTN95 option /FTZ adds code to "flush to zero" masked Win32 underflows. This can be used with initial
  versions Windows 11 24H2 for which Win32 masked underflows is both required and is the default.
  
• New functions FTZ@(x) and DFTZ@(x) have been added to the Win32/x64 library.
  
• SLINK64 now has the option /def, used with /dll to provide the name of a .def export script.
  
• ClearWin+: %si will now take a tilde accent together with an integer control variable in order to change the show state of the icon at runtime
  
• ClearWin+: A new option "overwrite_prompt" has been added to the existing options for the routine clearwin_option@. This can be called
  before a call to get_filtered_file@ when it is used to open a "Save" or "Save As" dialog. The user is then prompted when
  the file name selected in the dialog already exists.
  
• ClearWin+: A listbox (%ls), dropdown list (%`ls) and dropdown strings (%el) can now be populated with a list of available fonts by adding the options [font_pitch=p] and/or [font_set=s]
  
• ClearWin+: A new subroutine GET_CONTROL_TEXT@ has been added. It gets the text for the current selection in a listbox (%ls), dropdown
  list (%`ls) or dropdown strings (%el).
  
• ClearWin+: %ws can now take options. The control uses a Microsoft "static" style with the style options SS_LEFT etc. These are
  available as left, center, right, icon, blackrect, grayrect, whiterect, blackframe, greyframe, whiteframe, useritem and
  simple.
  
• ClearWin+: A new option [buffered] has been added for %pl (graph plotting).
  
• ClearWin+: A listbox (%ls) and dropdown list (%`ls) can have the option [colors] or [icons].
  

[silverfrost]

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

• ALLOCATE with SOURCE=constant was not implemented.
  
• In an assignment to MATMUL the shape was not tested.
  
• There was a false error report for a certain renamed USE variable.
  
• A call to HYPOT in a PRINT statement was failing for Win32 and REAL*8.
  
• A certain renamed USE variable was not externally accessible.
  
• The size of array sections of the form A ( : ) % T % I ( 2 ) was incorrect.
  
• READF@ occasionally gave incorrect results under x64.
  
• A certain array initialisation within a module was failing.
  
• GDI+ ROTATE_FONT@ for zero rotation was producing an vertical offset.
  
• A call to BROWSE_FOR_FOLDER1@ was occasionally raising an exception.
  
• x64 GET_MULTIPLE_FILENAMES@ was always returning TRUE.
  
• Certain calls to MOVE_ALLOC were failing.
  
• ASSOCIATE was failing for a pointer to the BTEST intrinsic.
  
• Parameter initialisation of ACHAR and ICHAR was failing in an array constructor.
  
• x64 ISHFT was failing for a shift of +/-63.
  
• Missing error report: the argument of SHAPE must not be assumed size.
  
• ASSOCIATE was failing for an array section.
  
• The intrinsic function TAN could not be passed as an argument.
  
• Allocate on assignment was not handling a whole array expression.
  
• Certain calls to MAXVAL/MINVAL with /CHECK were causing an access violation.
  
• The x64 multiplication of a REAL(1) with a COMPLEX(2) was failing.
  
• A call to STORAGE_SIZE within a PRINT statement was failing.
  
• A call to a user function RANDOM(X)**2 involving RANDOM_NUMBER gave an incorrect result.