diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2021-04-16 16:24:31 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2021-04-16 16:24:31 +0200 |
| commit | d264194c1069fbcd129222f86455137f29a5c6fd (patch) | |
| tree | 1b9bcf6ca249556709dcc5f15969d0405d796053 /gcc/fortran/module.c | |
| parent | 330ae1e54305f4755258d89469c1ad0d8479ef4c (diff) | |
| download | gcc-d264194c1069fbcd129222f86455137f29a5c6fd.zip gcc-d264194c1069fbcd129222f86455137f29a5c6fd.tar.gz gcc-d264194c1069fbcd129222f86455137f29a5c6fd.tar.bz2 | |
PR fortran/63797 - Bogus ambiguous reference to 'sqrt'
The interface of an intrinsic procedure is automatically explicit.
Do not write it to the module file to prevent wrong ambiguities on USE.
gcc/fortran/ChangeLog:
PR fortran/63797
* module.c (write_symtree): Do not write interface of intrinsic
procedure to module file for F2003 and newer.
gcc/testsuite/ChangeLog:
PR fortran/63797
* gfortran.dg/pr63797.f90: New test.
Co-authored-by: Paul Thomas <pault@gcc.gnu.org>
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4db0a3a..089453c 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -6218,6 +6218,17 @@ write_symtree (gfc_symtree *st) if (check_unique_name (st->name)) return; + /* From F2003 onwards, intrinsic procedures are no longer subject to + the restriction, "that an elemental intrinsic function here be of + type integer or character and each argument must be an initialization + expr of type integer or character" is lifted so that intrinsic + procedures can be over-ridden. This requires that the intrinsic + symbol not appear in the module file, thereby preventing ambiguity + when USEd. */ + if (strcmp (sym->module, "(intrinsic)") == 0 + && (gfc_option.allow_std & GFC_STD_F2003)) + return; + p = find_pointer (sym); if (p == NULL) gfc_internal_error ("write_symtree(): Symbol not written"); |