forums.silverfrost.com

[onkr]

Hi,

I am a pretty new user in Fortran and I am trying to use openrw@ routine as follows and it doesn't return zero even though it creates the file. Am I doing something wrong?

Program check
implicit none
integer handle, error_code
character (len=40) dosya1
call openrw@ ('dosya1',handle, error_code)
if (error_code.eq.0) then
write(*,*) 'Operation was successfull'
else
write(*,*) 'Operation was NOT successfull'
end if
end

[JohnCampbell]

You have declared a character variable dosya1, but then used a character constant 'dosya1'.
Also, check the kind of handle and error_code.
My open routine is:

[onkr]

I changed the constant to variable and I defined handle and error_code as integer kind 2 which solved the problem. Thanks a lot.