diff options
Diffstat (limited to 'contrib/gcc/f/intdoc.c')
| -rw-r--r-- | contrib/gcc/f/intdoc.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/contrib/gcc/f/intdoc.c b/contrib/gcc/f/intdoc.c index 84720a3..fb88e88 100644 --- a/contrib/gcc/f/intdoc.c +++ b/contrib/gcc/f/intdoc.c @@ -709,6 +709,10 @@ types of all the arguments.\n\n"); argument_name_string (imp, 0)); break; + case 'N': + printf ("@code{INTEGER} not wider than the default kind"); + break; + default: assert ("Ia" == NULL); break; @@ -732,6 +736,10 @@ types of all the arguments.\n\n"); argument_name_string (imp, 0)); break; + case 'N': + printf ("@code{LOGICAL} not wider than the default kind"); + break; + default: assert ("La" == NULL); break; @@ -779,6 +787,10 @@ types of all the arguments.\n\n"); argument_name_string (imp, 0)); break; + case 'N': + printf ("@code{INTEGER} or @code{LOGICAL} not wider than the default kind"); + break; + default: assert ("Ba" == NULL); break; |
