[Bug fortran/30372] various intrinsics do not diagnose invalid argument kinds

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=30372

--- Comment #14 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
This patch brings UNLINK subroutine into agreement with
its documentation.

Index: gcc/fortran/check.c
===================================================================
--- gcc/fortran/check.c (revision 280157)
+++ gcc/fortran/check.c (working copy)
@@ -7267,6 +7275,9 @@ gfc_check_unlink_sub (gfc_expr *name, gfc_expr *status
     return false;

   if (!type_check (status, 1, BT_INTEGER))
+    return false;
+
+  if (!kind_value_check (status, 1, gfc_default_integer_kind))
     return false;

   return true;