[Bug libfortran/23803] New: [mingw32] getlog malfunction

[fxcoudert at gcc dot gnu dot org]

$ cat getlog.f 
      character*50 user
      call getlog(user)
      write(*,"(A)") user
      end
$ gfortran getlog.f 
cc4Qbaaa.o:getlog.f:(.text+0x15): undefined reference to `_gfortran_getlog'
collect2: ld returned 1 exit status

mingw sets the USERNAME environment variable, we should use it to provide a
getlog procedure. Or we could use a windows API function (if there is one
available on all windows versions).

-- 
           Summary: [mingw32] getlog malfunction
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
GCC target triplet: i386-mingw32


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23803