diff options
| author | Craig Burley <burley@gnu.org> | 1998-02-22 14:25:07 -0500 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:25:07 -0700 |
| commit | 6d4331962422e9333a9ca194aa9f81fc997f3cc7 (patch) | |
| tree | facdf38294937d58cfe1b183702b631ef826e62c /gcc/f/intdoc.c | |
| parent | 575094a2d6edced0069c17ebac487cde56816243 (diff) | |
| download | gcc-6d4331962422e9333a9ca194aa9f81fc997f3cc7.zip gcc-6d4331962422e9333a9ca194aa9f81fc997f3cc7.tar.gz gcc-6d4331962422e9333a9ca194aa9f81fc997f3cc7.tar.bz2 | |
Various changes from Craig. See the appropriate ChangeLog files.
From-SVN: r18182
Diffstat (limited to 'gcc/f/intdoc.c')
| -rw-r--r-- | gcc/f/intdoc.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/gcc/f/intdoc.c b/gcc/f/intdoc.c index 30e2d5b..6e88df4 100644 --- a/gcc/f/intdoc.c +++ b/gcc/f/intdoc.c @@ -494,7 +494,7 @@ external procedure.\n\ if ((argi[0] == '*') || (argi[0] == 'n') || (argi[0] == '+') - || (argi[0] == 'p')) + || (argi[0] == 'p')) printf ("-1, @var{%s}-2, @dots{}, @var{%s}-n", argc, argc); } @@ -559,7 +559,7 @@ this intrinsic is valid only when used as the argument to\n\ } #if 0 else if ((c[0] == 'I') - && (c[1] == 'p')) + && (c[1] == '7')) printf (", the exact type being wide enough to hold a pointer\n\ on the target system (typically @code{INTEGER(KIND=1)} or @code{INTEGER(KIND=4)}).\n\n"); #endif @@ -730,10 +730,6 @@ types of all the arguments.\n\n"); argument_name_string (imp, 0)); break; - case 'p': - printf ("@code{INTEGER} wide enough to hold a pointer"); - break; - default: assert ("Ia" == NULL); break; @@ -848,7 +844,7 @@ types of all the arguments.\n\n"); break; default: - assert ("N1" == NULL); + assert ("E1" == NULL); break; } break; @@ -1209,10 +1205,6 @@ print_type_string (char *c) printf ("@code{INTEGER(KIND=%d)}", (kind - '0')); break; - case 'p': - printf ("@code{INTEGER(KIND=0)}"); - break; - default: assert ("Ia" == NULL); break; @@ -1336,7 +1328,7 @@ print_type_string (char *c) break; default: - assert ("arg type?" == NULL); + assert ("type?" == NULL); break; } } |