Silverfrost Forums

Welcome to our forums

New ClearWin and CurDir$

26 Feb 2014 10:14 #13765

I use 'CURDIR$' in the following 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:

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)
26 Feb 2014 5:29 #13767

It should work if you simply comment out the line

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.

Please login to reply.