From 680600846dcfe0a403bbc45aba83389a4c933720 Mon Sep 17 00:00:00 2001 From: Brooks Moses Date: Thu, 12 Oct 2006 23:22:16 +0000 Subject: [PATCH] intrinsic.texi (STAT): Fixed a format typo in sample code. * intrinsic.texi (STAT): Fixed a format typo in sample code. From-SVN: r117676 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/intrinsic.texi | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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) -- 2.30.2