diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2017-10-08 18:02:31 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2017-10-08 18:02:31 +0000 |
| commit | 1b314f147446e0a40af5c0407cdca2b7742b2ef2 (patch) | |
| tree | 5092e0f2e1e91f55bf619325c8b0eb69ff38bafe /gcc/fortran/check.c | |
| parent | 5759add46043e6df832cd59d80cde631caa63516 (diff) | |
| download | gcc-1b314f147446e0a40af5c0407cdca2b7742b2ef2.zip gcc-1b314f147446e0a40af5c0407cdca2b7742b2ef2.tar.gz gcc-1b314f147446e0a40af5c0407cdca2b7742b2ef2.tar.bz2 | |
check.c (gfc_check_x): Remove function.
2017-10-08 Steven G. Kargl <kargl@gcc.gnu.org>
* check.c (gfc_check_x): Remove function.
* intrinsic.c (add_functions): Use gfc_check_fn_r.
From-SVN: r253528
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index e85e398..681950e 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2262,6 +2262,7 @@ gfc_check_fn_c (gfc_expr *a) return true; } + /* A single real argument. */ bool @@ -5512,19 +5513,6 @@ gfc_check_ttynam (gfc_expr *unit) } -/* Common check function for the half a dozen intrinsics that have a - single real argument. */ - -bool -gfc_check_x (gfc_expr *x) -{ - if (!type_check (x, 0, BT_REAL)) - return false; - - return true; -} - - /************* Check functions for intrinsic subroutines *************/ bool |