View previous topic :: View next topic |
Author |
Message |
Martin_K
Joined: 09 Apr 2020 Posts: 227
|
Posted: Fri Feb 12, 2021 11:56 pm Post subject: A run time error |
|
|
Hello,
My main program contains a call-back from which is called a subroutine, which is placed in my MODULE. The code for the call-back is as follows:
Code: |
...
INTEGER FUNCTION vektor_graf()
USE CLRWIN
USE modul_mm_mk
IMPLICIT NONE
INTEGER K
call ENABLE_UTF8@(1)
CALL TRASA_OK_POCET_RIADKOV (K)
vektor_graf = 1
END FUNCTION vektor_graf
...
|
The called subroutine checks (among other things) the availability of a required external file. I intentionally removed the external file to see whether the called subroutine will issue a warning that the required file is missing as I coded it. The subroutine uses a call-back assigned to the STOP button which is in the warning window.
I get the warning message (dialog) as expected, but when I press the STOP button on the warning dialog, I get the following run-time error:
Where could be a problem?
Martin |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7916 Location: Salford, UK
|
Posted: Sat Feb 13, 2021 9:18 am Post subject: |
|
|
Martin
I would need more details to know exactly but this looks like it is caused by recursive IO. An call to an IO routine is calling an IO routine within itself. FTN95 does not permit recursive IO. |
|
Back to top |
|
|
Martin_K
Joined: 09 Apr 2020 Posts: 227
|
Posted: Sat Feb 13, 2021 11:32 am Post subject: |
|
|
Thanks Paul, you are right!
I changed the code and now it works.
Martin |
|
Back to top |
|
|
|