diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-12 08:47:27 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-12 08:47:27 +0000 |
| commit | 86415518ea940ef2715e0312b9b411b654f48615 (patch) | |
| tree | 8e50f4ab70a7808ca14e53237069ba10c0a21f3a /gcc | |
| parent | 9a27aa90455b66a1bfd197afdbe21c6a83065f49 (diff) | |
| download | gcc-86415518ea940ef2715e0312b9b411b654f48615.zip gcc-86415518ea940ef2715e0312b9b411b654f48615.tar.gz gcc-86415518ea940ef2715e0312b9b411b654f48615.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/parens_7.f90 | 17 |
2 files changed, 23 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5b0ac0d..237128e 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 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 |