[Bug fortran/94397] [10 Regression] the compiler consider "type is( real(kind(1.)) )" as a syntax error since r10-7369-gc38daa7976886a59

[markeggleston at gcc dot gnu.org]

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

--- Comment #4 from markeggleston at gcc dot gnu.org ---
The compilation error reported is due this change in PR93484:

--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -2222,9 +2222,9 @@ gfc_match_type_spec (gfc_typespec *ts)

 found:

-      m = gfc_match_init_expr (&e);
+      m = gfc_match_expr (&e);

Changing it back causes test cases ISO_Fortran_binding_11.f90 and pr78033.f90
to fail.

If "kind=" is found gfc_match_init_expr (&e) should be used and when it is not
gfc_match_expr (&e).

I'm checking a suitable test case and will have a patch ready soon.