From: Brooks Moses Date: Fri, 13 Oct 2006 17:20:50 +0000 (+0000) Subject: intrinsic.texi (STAT): Reverted a format in example code to octal; noted this in... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cdfd6b4b9bc1eaded51afe6711b934948b5909d3;p=gcc.git intrinsic.texi (STAT): Reverted a format in example code to octal; noted this in accompanying string. * intrinsic.texi (STAT): Reverted a format in example code to octal; noted this in accompanying string. From-SVN: r117701 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2708abb31ed..be6867ce4a2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-10-13 Brooks Moses + + * intrinsic.texi (STAT): Reverted a format in example code to + octal; noted this in accompanying string. + 2006-10-13 Paul Thomas PR fortran/29373 diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 7549c521e79..4e172fdd732 100644 --- a/gcc/fortran/intrinsic.texi +++ b/gcc/fortran/intrinsic.texi @@ -7642,7 +7642,7 @@ PROGRAM test_stat IF (status == 0) THEN WRITE (*, FMT="('Device ID:', T30, I19)") buff(1) WRITE (*, FMT="('Inode number:', T30, I19)") buff(2) - WRITE (*, FMT="('File mode:', T30, I19)") buff(3) + WRITE (*, FMT="('File mode (octal):', T30, O19)") buff(3) WRITE (*, FMT="('Number of links:', T30, I19)") buff(4) WRITE (*, FMT="('Owner''s uid:', T30, I19)") buff(5) WRITE (*, FMT="('Owner''s gid:', T30, I19)") buff(6)