View previous topic :: View next topic |
Author |
Message |
GEWV
Joined: 25 Nov 2013 Posts: 19
|
Posted: Wed Feb 26, 2014 11:14 am Post subject: New ClearWin and CurDir$ |
|
|
I use "CURDIR$" in the following code:
Code: | character*260 function AktVerz()
! ----------------------------------------------------------------
! UP : aktuelles Verzeichnis abfragen
! ----------------------------------------------------------------
use mswin$
! ----------------------------------------------------------------
implicit none
! ----------------------------------------------------------------
CHARACTER (LEN=260)::CURDIR$
! ----------------------------------------------------------------
! --- Beginn -----------------------------------------------------
AktVerz=CURDIR$()
! ----------------------------------------------------------------
! --- End --------------------------------------------------------
return
end |
I use mingw32-make. And I get the following error:
Code: | AktVerz.for:
CHARACTER (LEN=260)::CURDIR$
1
AktVerz.for:
use mswin$
2
ERROR: Symbol 'curdir' at (1) conflicts with symbol from module 'clrwin$', use-associated at (2) |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7924 Location: Salford, UK
|
Posted: Wed Feb 26, 2014 6:29 pm Post subject: |
|
|
It should work if you simply comment out the line
Code: | CHARACTER (LEN=260)::CURDIR$ |
but for parallel development with FTN95 you could add some conditional compilation statements so that the line is visible to FTN95. |
|
Back to top |
|
|
|