From: Brooks Moses Date: Thu, 12 Oct 2006 23:22:16 +0000 (+0000) Subject: intrinsic.texi (STAT): Fixed a format typo in sample code. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=680600846dcfe0a403bbc45aba83389a4c933720;p=gcc.git intrinsic.texi (STAT): Fixed a format typo in sample code. * intrinsic.texi (STAT): Fixed a format typo in sample code. From-SVN: r117676 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ea9902f819c..6f1006d2d07 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2006-10-12 Brooks Moses + + * intrinsic.texi (STAT): Fixed a format typo in sample code. + 2006-10-12 Brooks Moses * intrinsic.texi (STAT): Shortened lines in sample code. diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 6eb71221d94..7549c521e79 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, o19)") buff(3) + WRITE (*, FMT="('File mode:', T30, I19)") 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)