diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-10-04 10:18:07 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-10-04 10:18:07 +0000 |
| commit | 63a496dedb96263534f3eb152d66d59e8f08b125 (patch) | |
| tree | 7421d1b5eeb02ced79c6a1c69f9699e2a09e7444 /gcc/fortran/resolve.c | |
| parent | 07f4a83d4afba28f8b73a9b9a8aeb48adec9eac3 (diff) | |
| download | gcc-63a496dedb96263534f3eb152d66d59e8f08b125.zip gcc-63a496dedb96263534f3eb152d66d59e8f08b125.tar.gz gcc-63a496dedb96263534f3eb152d66d59e8f08b125.tar.bz2 | |
re PR fortran/36534 (Bogus: '__convert_s1_s4' at (1) is obsolescent in fortran 95)
PR fortran/36534
* resolve.c (resolve_fl_procedure): Clean up obsolescence warning.
* gfortran.dg/widechar_10.f90: New test.
From-SVN: r215887
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 4b8f3b1..30ee175 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -11266,11 +11266,11 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag) } /* Appendix B.2 of the standard. Contained functions give an - error anyway. Fixed-form is likely to be F77/legacy. Deferred - character length is an F2003 feature. */ - if (!sym->attr.contained - && gfc_current_form != FORM_FIXED - && !sym->ts.deferred) + error anyway. Deferred character length is an F2003 feature. + Don't warn on intrinsic conversion functions, which start + with two underscores. */ + if (!sym->attr.contained && !sym->ts.deferred + && (sym->name[0] != '_' || sym->name[1] != '_')) gfc_notify_std (GFC_STD_F95_OBS, "CHARACTER(*) function '%s' at %L", sym->name, &sym->declared_at); |