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

gcc/fortran/ChangeLog

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

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

gcc/testsuite/ChangeLog

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

gcc/testsuite/gfortran.dg/widechar_10.f90

+! { dg-do compile }
+! { dg-options "-pedantic" }
+! PR fortran/36534
+CHARACTER (kind=4,len=*) MY_STRING4(1:3)
+PARAMETER ( MY_STRING4 = (/ "A" , "B", "C" /) )
+end