From: Wolfgang G. <wol...@ev...> - 2010-05-05 15:22:24
|
On 2010-05-05 16:49, Ozkan Sezer wrote: >>> 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 */ >> > 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, you're right, my program is wrong. It's been a long time since I crafted my last FORTRAN program :-/ I've mistaken an array of character*1 objects for a character*80 objects, sorry. Regards, Wolfgang |