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