From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 12 Jan 2008 08:47:27 +0000 (+0000)
Subject: re PR fortran/34432 (integer(kind=init_expression) function  is rejected)
X-Git-Tag: releases/gcc-4.3.0~643
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=86415518ea940ef2715e0312b9b411b654f48615;p=thirdparty%2Fgcc.git

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 5b0ac0d605ed..237128eb2336 100644
--- 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
index 000000000000..daf5fdbd15c6
--- /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