diff options
| author | Craig Burley <burley@gnu.org> | 1998-02-22 14:29:55 -0500 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:29:55 -0700 |
| commit | 99ce4a11118e146e3a09cf06899c4d2935e4d5bc (patch) | |
| tree | e17fd878cbf2365e2263d15d6bbebb115129ce85 /gcc/f/intrin.c | |
| parent | 30286a3690897f10c35544c7bcb6d5b35cbfd0a6 (diff) | |
| download | gcc-99ce4a11118e146e3a09cf06899c4d2935e4d5bc.zip gcc-99ce4a11118e146e3a09cf06899c4d2935e4d5bc.tar.gz gcc-99ce4a11118e146e3a09cf06899c4d2935e4d5bc.tar.bz2 | |
intrin.c (ffeintrin_check_): No longer ignore explicit omitted trailing args.
* intrin.c (ffeintrin_check_): No longer ignore explicit
omitted trailing args.
* intrin.c (ffeintrin_fulfill_generic): Don't generate
FFEBAD_INTRINSIC_TYPE for CHARACTER*(*) intrinsic.
More patches from Craig
From-SVN: r18186
Diffstat (limited to 'gcc/f/intrin.c')
| -rw-r--r-- | gcc/f/intrin.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c index 553a6d6..0b699b7 100644 --- a/gcc/f/intrin.c +++ b/gcc/f/intrin.c @@ -523,11 +523,6 @@ ffeintrin_check_ (ffeintrinImp imp, ffebldOp op, } while (TRUE); } - /* Ignore explicit trailing omitted args. */ - - while ((arg != NULL) && (ffebld_head (arg) == NULL)) - arg = ffebld_trail (arg); - if (arg != NULL) return FFEBAD_INTRINSIC_TOOMANY; @@ -1371,7 +1366,8 @@ ffeintrin_fulfill_generic (ffebld *expr, ffeinfo *info, ffelexToken t) if ((ffesymbol_attrs (ffebld_symter (symter)) & FFESYMBOL_attrsTYPE) && (((bt != ffesymbol_basictype (ffebld_symter (symter))) || (kt != ffesymbol_kindtype (ffebld_symter (symter))) - || (sz != ffesymbol_size (ffebld_symter (symter)))))) + || ((sz != FFETARGET_charactersizeNONE) + && (sz != ffesymbol_size (ffebld_symter (symter))))))) { ffebad_start (FFEBAD_INTRINSIC_TYPE); ffebad_here (0, ffelex_token_where_line (t), |