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>
|
2014-09-25 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
* check.c (check_co_collective): Renamed from check_co_minmaxsum,
|
* 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
|
/* Appendix B.2 of the standard. Contained functions give an
|
||||||
error anyway. Fixed-form is likely to be F77/legacy. Deferred
|
error anyway. Deferred character length is an F2003 feature.
|
||||||
character length is an F2003 feature. */
|
Don't warn on intrinsic conversion functions, which start
|
||||||
if (!sym->attr.contained
|
with two underscores. */
|
||||||
&& gfc_current_form != FORM_FIXED
|
if (!sym->attr.contained && !sym->ts.deferred
|
||||||
&& !sym->ts.deferred)
|
&& (sym->name[0] != '_' || sym->name[1] != '_'))
|
||||||
gfc_notify_std (GFC_STD_F95_OBS,
|
gfc_notify_std (GFC_STD_F95_OBS,
|
||||||
"CHARACTER(*) function '%s' at %L",
|
"CHARACTER(*) function '%s' at %L",
|
||||||
sym->name, &sym->declared_at);
|
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>
|
2014-10-03 Jan Hubicka <hubicka@ucw.cz>
|
||||||
|
|
||||||
* testsuite/g++.dg/ipa/devirt-42.C: New testcase.
|
* 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