About DFORRT.dll's abort message!

[brb36641]

Hi, I have one issue regarding DFORRT.dll abort message in DOS prompt.

When exe type program which is written as follows has run under DOS prompt, I get above mess.

Sorce code summerly

----------------------------------------------------------------------------------------------------

program main-routine

...

inquire('same-file',exist=yes)

if (YES) stop

...

write(*,*) 'Test Program'

...

stop

end

----------------------------------------------------------------------------------------------------

If same-file is exit under working folder, this program running will normal stop, I think, However sometile I get abort message of this.

Should I change the cord as follows,

if (yes) goto 10

...

10 stop

end

How is my idea? Is it correct under specification of Fortran laungage?

Let me know, please.

Thanks

[Steven_L_Intel1]

What is the exact abort message you get? I don't completely understand your question.

STOP is not a good thing to use, especially if you may want to change your program into a DLL in the future. I suggest a GOTO to the END statement.

[brb36641]

Thank you.

It is good suggestion for me to use GOTO the END statement.

Meanwhile what kind situation should I use STOP statement?

[Steven_L_Intel1]

I would not use it at all in programs I wrote. But it is certainly convenient in places where you just want to exit the program in case of an error. It is a very old feature of the language.

[brb36641]

I see it is old style to use STOP statement, when I stop the programs.

Thank you for kindness. Is that programiing style 80's?

I am clear and finish to solve my issue.