View previous topic :: View next topic |
Author |
Message |
JohnCampbell
Joined: 16 Feb 2006 Posts: 2554 Location: Sydney
|
Posted: Thu Mar 09, 2017 2:49 am Post subject: Argument number 4 of WINIO@ (continuation 4) should be an .. |
|
|
I have installed FTN95/x64 Ver. 8.10.0 and am getting new error report when running the .exe, that I can not fix ? eg
"Argument number 4 of WINIO@ (Continuation 4) should be an integer at address ..." ( a file name and line number would be much more helpful )
my compile option was
ftn95 saplot /window /64 >>ftn95.tce
I changed it to
ftn95 saplot /window /64 /inhibit_check 16 >>ftn95.tce
ftn95.cfg in both the local directory and c:\program files (x86) ...
/ERROR_NUMBERS
/IMPLICIT_NONE
/INTL
/LOGL
Continuation line 4 is:
i = winio@ ('%`^gr[grey, user_resize, rgb_colours, full_mouse_input]&', &
ix, iy, & ! screen dimension when not maximised
w_handle, & ! ` window handle defined in crtstart
mouse_back_func) ! ^ call back function for mouse and resize
w_handle is defined in include <JDC_menu.ins>, as:
integer(7) w_handle, ptr_RGB_Address ! new /64 declaration for handles
crtstart.f90 is compiled with
ftn95 crtstart /windows /64 >>%tce%
Previously with Ver 8.05 I had the error on (Continuation 112) !! so I commented out this last line of winio@ continuations and it worked.
!zz i = winio@ ('%hw', hw_handle) ! return the handle of the current window.
INTEGER(7) HD_HANDLE
I now can't shift this error !!
Any clues ?
John |
|
Back to top |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2554 Location: Sydney
|
Posted: Thu Mar 09, 2017 6:21 am Post subject: |
|
|
should W_handle be INTEGER(3) ie INTEGER*4 ?
Is that what the error implies ?
With the changes to access rights in C:\Program Files (x86)\Silverfrost\ftn95\include, it is not easy to continually change <jdc_menu.ins>
John |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Mar 09, 2017 8:09 am Post subject: |
|
|
Yes, the identifier for a %gr surface should be an INTEGER*4. |
|
Back to top |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2554 Location: Sydney
|
Posted: Thu Mar 09, 2017 10:38 am Post subject: |
|
|
Thanks Paul,
I shall test it out .. It works.
With Ver 8.05, I was getting a similar error with :
i = winio@ ('%hw', hw_handle) ! return the handle of the current window.
I thought this should be integer(7) hw_handle
I could only remove this error by commenting out the line and not using hw_handle functionality. I have not yet tested Ver 8.10 on this line.
Returning the line, Ver 8.05.0 gives the error message "Argument number 2 of WINIO@ (continuation 113) should be an INTEGER(7) at ..
(continuation 113 was not easy to find)
Ver 8.10.0 (after a clean out of the path variable) now does not give an error for compiling winio@ calls, so it appears that this Ver 8.10.0 winio@ warning has fixed up some problems I had.
John |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Mar 10, 2017 9:10 am Post subject: |
|
|
%hw returns a Windows handle so it should be INTEGER(7). |
|
Back to top |
|
|
|