[Bug fortran/92805] gfortran: blanks within literal constants should not be allowed

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2019-12-06
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: gcc/fortran/primary.c
===================================================================
--- gcc/fortran/primary.c       (revision 279052)
+++ gcc/fortran/primary.c       (working copy)
@@ -90,16 +90,25 @@ match_kind_param (int *kind, int *is_iso_c)
 static int
 get_kind (int *is_iso_c)
 {
+  char c;
   int kind;
   match m;

   *is_iso_c = 0;

+  c = gfc_peek_ascii_char ();
+  if (gfc_current_form == FORM_FREE && gfc_is_whitespace (c))
+    {
+      gfc_error ("Invalid kind type parameter syntax at %C");
+      return -1;
+    }
+
   if (gfc_match_char ('_') != MATCH_YES)
     return -2;

-  m = match_kind_param (&kind, is_iso_c);
-  if (m == MATCH_NO)
+  c = gfc_peek_ascii_char ();
+  if ((gfc_current_form == FORM_FREE && gfc_is_whitespace (c))
+      || (m = match_kind_param (&kind, is_iso_c)) == MATCH_NO)
     gfc_error ("Missing kind-parameter at %C");

   return (m == MATCH_YES) ? kind : -1;