Error 6404 when running fortran code in visual studio

[snow.ball]

I am trying to compile several libraries of FORTRAN code and getting the error message as can be seen in the screen shot. As I do not have any experience with FORTRAN I am not sure what is wrong in the line highlighted line. Any help would be greatly appreciated! Thanks a lot! :-)

 

[jedishrfu]

Do you need to include something that defines the return type of the get_cwd function?

Also the description of get_cwd says you can either use it as a procedure or as a function but not both but I'm not sure that is your problem.

https://gcc.gnu.org/onlinedocs/gfortran/GETCWD.html

 

[Mark44]

getcwd (get current working directory) is an intrinsic subroutine, but you have invoked it as if it were a function that returns a value. This is how it should be called:

getcwd(DirName)

 

[jedishrfu]

The docs for getcwd() indicate that it can return a status but that you have to decide which style of invocation to use.

 

[Mark44]

The docs for getcwd() indicate that it can return a status but that you have to decide which style of invocation to use.

Aha! I saw the example on a doc page and didn't notice that getcwd could also be used as a function. Thanks for the correction.

 

[gsal]

hhhmmm...just tried a short program and it worked just fine.

Which compiler are you using? Maybe your compiler does not quite like that call?

Maybe your compiler thinks that what you have is some kind of array, instead of a function call.

I would switch and try the "subroutine" style call instead: " call GETCWD(DirName, Status) ".

 

[gsal]

just found a source where they prototype getcwd even though is an intrinsic...maybe due to the fact that can be called either way?

Go ahead and prototype it at the beginning of the subroutine: "integer*4 :: getcwd" ...you should probably also make sure that status is of the same type or larger.

 

[snow.ball]

hey guys. sorry just replying now and thank's so much for the suggestions! I will try them all out! btw using visual studio with IVF...