| commit | 75b8e57450e3472ef892f3c5e0bccbe1bee48488 | |
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 19 Feb 2005 20:29:05 +0000 (19 20:29 +0000) | ||
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 19 Feb 2005 20:29:05 +0000 (19 20:29 +0000) | ||
| tree | b523d96fcbcb331f0063a4fad24ccf13ba1a7555 | treesnapshot (tar.gz zip) |
| parent | 59a6e2e691fe35efaf41718ee98f906eef849a49 | commitdiff |
* check.c (gfc_check_selected_int_kind): New function.
* intrinsic.h: Prototype it.
* intrinsic.c (add_function): Use it.
* simplify (gfc_simplify_ceiling,gfc_simplify_floor): Change
BT_REAL to BT_INTEGER and use gfc_default_integer_kind.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95291 138bc75d-0d04-0410-961f-82ee72b054a4
* intrinsic.h: Prototype it.
* intrinsic.c (add_function): Use it.
* simplify (gfc_simplify_ceiling,gfc_simplify_floor): Change
BT_REAL to BT_INTEGER and use gfc_default_integer_kind.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95291 138bc75d-0d04-0410-961f-82ee72b054a4