2007-05-06 Paul Thomas <pault@gcc.gnu.org>

	PR fortran/31540
	* resolve.c (resolve_fl_procedure): Resolve constant character
	lengths.

2007-05-06  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/31540
	* gfortran.dg/char_result_4.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124476 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gfortran.dg/char_length_4.f90 b/gcc/testsuite/gfortran.dg/char_length_4.f90
new file mode 100644 (file)
index 0000000..13a9b78
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/char_length_4.f90
@@ -0,0 +1,13 @@
+! { dg-do compile }
+! tests the fix for PR31540, in which the character lengths in
+! parentheses were not resolved.
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+        subroutine pfb()
+        implicit none
+        external pfname1, pfname2
+        character ((136)) pfname1
+        character ((129+7)) pfname2
+        return
+        end