[Bug fortran/101632] NON_RECURSIVE procedure prefix is unsupported. F2018 defaults to recursive procedures.

["anlauf at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|                            |2021-12-06
             Status|UNCONFIRMED                 |NEW
     Ever confirmed|0                           |1

--- Comment #7 from anlauf at gcc dot gnu.org ---
(In reply to Steve Kargl from comment #3)
> Better patch.

That patch produces many regressions in the test suite.  Seems we're not ready
yet for RECURSIVE as the default.

Removing or commenting out the hunk

+  /* If neither NON_RECURSIVE nor RECURSIVE has been seen and the F2018
+     standard is in play, then mark the  the procedure as recursive.  */
+  if ((gfc_option.allow_std & GFC_STD_F2018)
+      && !current_attr.non_recursive && !current_attr.recursive)
+    {
+      if (!gfc_add_recursive (&current_attr, NULL))
+       goto error;
+    }
+

allows at least parsing of NON_RECURSIVE, while having no effect otherwise.

Still lacking: handling of NON_RECURSIVE in module.c .