%bg not working with version 9.10

The following program should create a window with a yellow background with FTN95, but in version 9.10 (and I think starting in version 9.05) the colour is no longer identified. I am aware that I am using routines ending in $. I do this because I am trying to use the code with other compilers, and in that case the program does produce the correct background colour.

The program also fails to switch off the cursor waiting status.

Winapp
Program cpt
   Use clrwin$, Only: rgb$, set_cursor_waiting$, winio$
   Integer :: icbg, iw
!
   icbg = rgb$( 255, 255, 0 )
   Call set_cursor_waiting$ ( 1 )
   iw = winio$( '%za&' )
   iw = winio$( '%bg&', icbg )
   iw = winio$( '%ca@&', 'TEST' )
   Call set_cursor_waiting$ ( 0 )
   iw = winio$( '%zz' )
End Program cpt

Simon

The $ forms of the mod files are no longer directly supported and are no longer included in the release. The source code for the module must be imported into the project or included in the file.

RGB$ appears to be broken and I will look into this.

This works for me...

Winapp
include 'C:\Program Files (x86)\Silverfrost\FTN95\source64\clrwin.f95'

integer function rgb(r,g,b)
  integer r,g,b
  rgb = r + ishft(g,8) + ishft(b,16)
end function

Program cpt
   Use clrwin$, Only: rgb$, set_cursor_waiting$, winio$
   Integer :: icbg, iw, rgb
   icbg = rgb(255,255,0)
   Call set_cursor_waiting$ ( 1 )
   iw = winio$( '%za&' )
   iw = winio$( '%bg&', icbg )
   iw = winio$( '%ca@&', 'TEST' )
   Call set_cursor_waiting$ ( 0 )
   iw = winio$( '%zz' )
End Program cpt

Version 9.10 of FTN95 includes the VALUE attribute from the 2003 Fortran standard where a copy of the argument is passed by reference.

At first sight it seems that allowance has not been made in v9.10 for the existing use of VALUE within an ISO_C_BINDING interface where VALUE denotes an argument that is passed by value.

This will cause RGB$ to fail and the same will be true for any ISO_C_BINDING routine that accesses a C library using pass by value.

This failure is currently being investigated.

This failure has now been fixed for the next release of FTN95. The fault occurs when reading a module that contains an interface for a routine with a 'BIND C' VALUE argument (it occurs within the USE statement).

Supported users with version 9.10 of FTN95 who are not able to work around this failure should send me a personal message on this forum.

Hi Paul, Many thanks for investigating this. I should have noted that I do import the source of clrwin into my code, but, as you mention, there are some remaining issues. Is there a list of what other routines might be affected? Thanks, Simon

Simon

If you look at the source code you will be able to see all the routines that have 'BIND C' and arguments that are passed by value.