diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2022-11-13 21:53:58 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-11-14 12:07:37 +0100 |
| commit | 04e2fd20d3d5fce2c99c856361d5f3d3ce955906 (patch) | |
| tree | 5d8811227023d3276b2bbd55cdb13217c9800b85 /gcc/fortran/trans-openmp.cc | |
| parent | 3c6721796d8da82584559d0011b69ca3109eeff7 (diff) | |
| download | gcc-04e2fd20d3d5fce2c99c856361d5f3d3ce955906.zip gcc-04e2fd20d3d5fce2c99c856361d5f3d3ce955906.tar.gz gcc-04e2fd20d3d5fce2c99c856361d5f3d3ce955906.tar.bz2 | |
Fortran: fix treatment of character, value, optional dummy arguments [PR107444]
gcc/fortran/ChangeLog:
PR fortran/107444
* trans-openmp.cc (gfc_omp_check_optional_argument): Adjust to change
of prefix of internal symbol for presence status to '.'.
Diffstat (limited to 'gcc/fortran/trans-openmp.cc')
| -rw-r--r-- | gcc/fortran/trans-openmp.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc index 4bfdf85..9070c03 100644 --- a/gcc/fortran/trans-openmp.cc +++ b/gcc/fortran/trans-openmp.cc @@ -123,7 +123,7 @@ gfc_omp_check_optional_argument (tree decl, bool for_present_check) char name[GFC_MAX_SYMBOL_LEN + 2]; tree tree_name; - name[0] = '_'; + name[0] = '.'; strcpy (&name[1], IDENTIFIER_POINTER (DECL_NAME (decl))); tree_name = get_identifier (name); |