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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5b0ac0d605ed9fd3aeaf81120d51922abb6d841c..237128eb2336f1019cea5101bb6e3e9b6078b1a2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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>
 

diff --git a/gcc/testsuite/gfortran.dg/parens_7.f90 b/gcc/testsuite/gfortran.dg/parens_7.f90
new file mode 100644 (file)
index 0000000..daf5fdb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/parens_7.f90
@@ -0,0 +1,17 @@
+! { 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