diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-22 19:25:07 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-02-22 19:25:07 +0000 |
| commit | 2e70f6897174f03bb04b3f0c9a44a27f0e10393f (patch) | |
| tree | facdf38294937d58cfe1b183702b631ef826e62c /gcc/f/intdoc.c | |
| parent | bb6ac69e077fb95aecd172d9aa3816e32d5f97fb (diff) | |
| download | gcc-2e70f6897174f03bb04b3f0c9a44a27f0e10393f.tar.gz | |
Various changes from Craig. See the appropriate ChangeLog files.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@18182 138bc75d-0d04-0410-961f-82ee72b054a4
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 30e2d5b1744..6e88df4dbbb 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; } } |