[gcc r14-1983] Fortran's gfc_match_char: %S to match symbol with host_assoc

[gcc r14-1983] Fortran's gfc_match_char: %S to match symbol with host_assoc

[Tobias Burnus]

https://gcc.gnu.org/g:0607e93490058ec31b6ab57078c54771f139b870

commit r14-1983-g0607e93490058ec31b6ab57078c54771f139b870
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Tue Jun 20 13:23:40 2023 +0200

    Fortran's gfc_match_char: %S to match symbol with host_assoc
    
    gfc_match ("... %s ...", ...) matches a gfc_symbol but with
    host_assoc = 0. This commit adds '%S' as variant which matches
    with host_assoc = 1
    
    gcc/fortran/ChangeLog:
    
            * match.cc (gfc_match_char): Match with '%S' a symbol
            with host_assoc = 1.

Diff:
---
 gcc/fortran/match.cc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/match.cc b/gcc/fortran/match.cc
index e7be7fddc64..1203787fe77 100644
--- a/gcc/fortran/match.cc
+++ b/gcc/fortran/match.cc
@@ -1084,7 +1084,8 @@ gfc_match_char (char c, bool gobble_ws)
 
    %%  Literal percent sign
    %e  Expression, pointer to a pointer is set
-   %s  Symbol, pointer to the symbol is set
+   %s  Symbol, pointer to the symbol is set (host_assoc = 0)
+   %S  Symbol, pointer to the symbol is set (host_assoc = 1)
    %n  Name, character buffer is set to name
    %t  Matches end of statement.
    %o  Matches an intrinsic operator, returned as an INTRINSIC enum.
@@ -1151,8 +1152,9 @@ loop:
 	  goto loop;
 
 	case 's':
+	case 'S':
 	  vp = va_arg (argp, void **);
-	  n = gfc_match_symbol ((gfc_symbol **) vp, 0);
+	  n = gfc_match_symbol ((gfc_symbol **) vp, c == 'S');
 	  if (n != MATCH_YES)
 	    {
 	      m = n;