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
This commit is contained in:
parent
07f4a83d4a
commit
63a496dedb
|
@ -1,3 +1,8 @@
|
|||
2014-10-04 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||
|
||||
PR fortran/36534
|
||||
* resolve.c (resolve_fl_procedure): Clean up obsolescence warning.
|
||||
|
||||
2014-09-25 Tobias Burnus <burnus@net-b.de>
|
||||
|
||||
* check.c (check_co_collective): Renamed from check_co_minmaxsum,
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
2014-10-04 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||
|
||||
PR fortran/36534
|
||||
* gfortran.dg/widechar_10.f90: New test.
|
||||
|
||||
2014-10-03 Jan Hubicka <hubicka@ucw.cz>
|
||||
|
||||
* testsuite/g++.dg/ipa/devirt-42.C: New testcase.
|
||||
|
|
|
@ -0,0 +1,6 @@
|
|||
! { dg-do compile }
|
||||
! { dg-options "-pedantic" }
|
||||
! PR fortran/36534
|
||||
CHARACTER (kind=4,len=*) MY_STRING4(1:3)
|
||||
PARAMETER ( MY_STRING4 = (/ "A" , "B", "C" /) )
|
||||
end
|
Loading…
Reference in New Issue