diff options
| author | Brooks Moses <bmoses@stanford.edu> | 2006-10-12 23:22:16 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2006-10-12 16:22:16 -0700 |
| commit | 680600846dcfe0a403bbc45aba83389a4c933720 (patch) | |
| tree | 701e0e80b982b9704b6c6ad9f9b500db56a72258 /gcc/fortran/intrinsic.texi | |
| parent | 25f32574182fbf4e705bf468429901867f4f559f (diff) | |
| download | gcc-680600846dcfe0a403bbc45aba83389a4c933720.zip gcc-680600846dcfe0a403bbc45aba83389a4c933720.tar.gz gcc-680600846dcfe0a403bbc45aba83389a4c933720.tar.bz2 | |
intrinsic.texi (STAT): Fixed a format typo in sample code.
* intrinsic.texi (STAT): Fixed a format typo in sample code.
From-SVN: r117676
Diffstat (limited to 'gcc/fortran/intrinsic.texi')
| -rw-r--r-- | gcc/fortran/intrinsic.texi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi index 6eb7122..7549c52 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) |