From 641cacd54d2a519191b820c4fdb38c997eb00935 Mon Sep 17 00:00:00 2001 From: brooks Date: Fri, 13 Oct 2006 17:20:50 +0000 Subject: [PATCH] * intrinsic.texi (STAT): Reverted a format in example code to octal; noted this in accompanying string. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117701 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/intrinsic.texi | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.11.0