OSDN Git Service

* intrinsic.texi (STAT): Fixed a format typo in sample code.
authorbrooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Oct 2006 23:22:16 +0000 (23:22 +0000)
committerbrooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 12 Oct 2006 23:22:16 +0000 (23:22 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117676 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.texi

index ea9902f..6f1006d 100644 (file)
@@ -1,5 +1,9 @@
 2006-10-12  Brooks Moses  <bmoses@stanford.edu>
 
+       * intrinsic.texi (STAT): Fixed a format typo in sample code.
+
+2006-10-12  Brooks Moses  <bmoses@stanford.edu>
+
        * intrinsic.texi (STAT): Shortened lines in sample code.
 
 2006-10-11  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
index 6eb7122..7549c52 100644 (file)
@@ -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)