diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-14 13:51:27 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-14 13:51:27 +0000 |
| commit | bfb7e0d8ad894421a36f55d9d15c063c6de0147f (patch) | |
| tree | 1a55820f124ad6214b64d327a41494b9f60afa76 /gcc/fortran/iresolve.c | |
| parent | c5157e4fff52bfc5e2169459a76698b0feb5efc7 (diff) | |
| download | ppe42-gcc-bfb7e0d8ad894421a36f55d9d15c063c6de0147f.tar.gz ppe42-gcc-bfb7e0d8ad894421a36f55d9d15c063c6de0147f.zip | |
PR fortran/15205
* iresolve.c (gfc_resolve_nearest): Add new function.
* intrinsic.h: ... declare it here.
* intrinsic.c (add_functions): ... add it as resolving function
for NEAREST.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81843 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 68abc94de26..e873f03f0dc 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -911,6 +911,16 @@ gfc_resolve_modulo (gfc_expr * f, gfc_expr * a, a->ts.kind); } +void +gfc_resolve_nearest (gfc_expr * f, gfc_expr * a, + gfc_expr *p ATTRIBUTE_UNUSED) +{ + + f->ts = a->ts; + f->value.function.name = + gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type), + a->ts.kind); +} void gfc_resolve_nint (gfc_expr * f, gfc_expr * a, gfc_expr * kind) |
