OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Francois-Xavier Coudert 2014-10-04 10:18:07 +00:00 committed by François-Xavier Coudert
parent 07f4a83d4a
commit 63a496dedb
4 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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,

10
gcc/fortran/resolve.c
View File

@ -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);

5
gcc/testsuite/ChangeLog
View File

@ -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.

6
gcc/testsuite/gfortran.dg/widechar_10.f90 Normal file
View File

@ -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