From: Ozkan S. <se...@gm...> - 2010-05-05 14:49:30
|
>> Can you please write s simple Fortran programm which will call this: >> >> 60 /* GETLOG (LOGIN), g77 intrinsic for retrieving the login name for the >> 61 process. >> 62 CHARACTER(len=*), INTENT(OUT) :: LOGIN */ > > Program is attached, however it produces the same result on ubuntu > karmic-x86_64, Win32 and Win64: 80 bytes of binary garbage. (All compilers are > 4.4.1 flavors, under linux I additionally tried 4.3.4) It seems, that these > historic g77-intrinsics were only half-way ported to gfortran and produce garbage. > > Programs, which do not use g77 intrinsics seem to work for my part. (A simple > 3x3 matrix inversion test is attached, which works for me under Linux-x64_86, > Win32 and Win64 using the mingw-w64-gcc-4.4.1 toolchain. Your getlog.f prints garbage even when compiled for linux. The attached one, however, works just fine. (see testsuite/gfortran.dg/g77_intrinsics_sub.f for several intrinsic tests.) -- Ozkan |