diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-29 09:03:03 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-29 09:03:03 +0000 |
| commit | 1318f16c5d4a4d4ce1d58fc0951ae013d145914a (patch) | |
| tree | 8e4549612e4d823845bf8d6edcfa17ce896c8947 /gcc/fortran/check.c | |
| parent | 8f433c51e34a5653062ecdc494079e04f3f84414 (diff) | |
| download | gcc-1318f16c5d4a4d4ce1d58fc0951ae013d145914a.tar.gz | |
2007-05-28 Tobias Schlter <tobi@gcc.gnu.org>
fortran/
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SIZEOF.
* intrinsic.c (add_functions): Add stuff for SIZEOF intrinsic.
* intrinsic.h (gfc_check_sizeof): Add prototype of ...
* check.c (gfc_check_sizeof): .. new function.
* trans-intrinsic.c (gfc_conv_intrinsic_sizeof): New function.
(gfc_conv_intrinsic_strcmp): Whitespace fix.
(gfc_conv_intrinsic_array_transfer): Remove double initialization,
use fold_build. where appropriate.
(gfc_conv_intrinsic_function): Add case for SIZEOF.
* intrinsic.texi: Add documentation for SIZEOF.
testsuite/
* gfortran.dg/sizeof.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125161 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index e2290026714..a1966353f30 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2334,6 +2334,13 @@ gfc_check_size (gfc_expr *array, gfc_expr *dim) try +gfc_check_sizeof (gfc_expr *arg __attribute__((unused))) +{ + return SUCCESS; +} + + +try gfc_check_sleep_sub (gfc_expr *seconds) { if (type_check (seconds, 0, BT_INTEGER) == FAILURE) |