re PR fortran/34432 (integer(kind=init_expression) function is rejected)

2008-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34432
	* gfortran.dg/parens_7.f90: New test.

From-SVN: r131489

gcc/testsuite/ChangeLog

+2008-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/34432
+	* gfortran.dg/parens_7.f90: New test.
+
 2008-01-11  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* gcc.dg/tree-ssa/loadpre5.c: Use static.
@@ -8,7 +13,7 @@
 2008-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/34722
-	* gfortran.dg//inquire_12.f90: New test.
+	* gfortran.dg/inquire_12.f90: New test.
 
 2008-01-11  Thomas Koenig  <tkoenig@gcc.gnu.org>
 

gcc/testsuite/gfortran.dg/parens_7.f90

+! { dg-do compile }
+! PR34432 integer(kind=init_expression) function  is rejected
+module m
+  integer, parameter :: int_t = 4
+end module m
+
+program test
+  print *, test4()
+contains
+
+integer(kind=(int_t)) function test4() ! This failed before patch
+  use m
+  test4 = 345
+end function test4
+
+ 
+end program test
\ No newline at end of file