Re: PDT type parameters are not restricted to default integer

[Harald Anlauf via Fortran]

Hi Steve,

Am 22.10.21 um 21:35 schrieb Steve Kargl via Fortran:

Here's an obvious quick fix.  Please apply.


diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 6043e100fbb..e889bb44142 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -5619,14 +5619,6 @@ match_attr_spec (void)
                  m = MATCH_ERROR;
                  goto cleanup;
                }
-             if (current_ts.kind != gfc_default_integer_kind)
-               {
-                 gfc_error ("Component with LEN attribute at %C must be "
-                            "default integer kind (%d)",
-                             gfc_default_integer_kind);
-                 m = MATCH_ERROR;
-                 goto cleanup;
-               }
            }
          else
            {

I think you are right.  We should always have allowed any integer kind.

However, have you checked whether this change introduces regressions?
If you don't, somebody else will.  Please open a PR, then.

Harald