diff options
| author | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-12 18:15:11 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-12 18:15:11 -0400 |
| commit | f8faa85e29fc2c8f4e3941134ff03704334e427d (patch) | |
| tree | 1a94701b6763f367123b5ae42e45e6d07fe681b1 /gcc/testsuite | |
| parent | 19e723f40b83dd72416f4a4f1f9640c826bef8eb (diff) | |
| download | gcc-f8faa85e29fc2c8f4e3941134ff03704334e427d.zip gcc-f8faa85e29fc2c8f4e3941134ff03704334e427d.tar.gz gcc-f8faa85e29fc2c8f4e3941134ff03704334e427d.tar.bz2 | |
re PR fortran/31639 ([4.1/4.2/4.3] ICE in gfc_conv_constant, at fortran/trans-const.c:348 with len)
gcc/fortran:
2007-07-12 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31639
* decl.c (gfc_match_suffix): Removed surplus general error that hides
a more specific message.
* resolve.c (resolve_fl_variable): Reject illegal initializiers only
if not already done.
(resolve_fl_procedure): Added check for initializers of functions.
gcc/testsuite:
2007-07-12 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31639
* gfortran.dg/func_decl_4.f90: New test.
From-SVN: r126605
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/func_decl_4.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a4f28b5..01831eb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-12 Daniel Franke <franke.daniel@gmail.com> + + PR fortran/31639 + * gfortran.dg/func_decl_4.f90: New test. + 2007-07-12 Paul Thomas <pault@gcc.gnu.org> PR fortran/32727 diff --git a/gcc/testsuite/gfortran.dg/func_decl_4.f90 b/gcc/testsuite/gfortran.dg/func_decl_4.f90 new file mode 100644 index 0000000..7c08f31 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/func_decl_4.f90 @@ -0,0 +1,17 @@ +! { dg-do compile } +! { dg-options "-c" } +! +! Functions shall not have an initializer. +! + +function f1() ! { dg-error "cannot have an initializer" } + integer :: f1 = 42 +end function + +function f2() RESULT (r) ! { dg-error "cannot have an initializer" } + integer :: r = 42 +end function + +function f3() RESULT (f3) ! { dg-error "must be different than function name" } + integer :: f3 = 42 +end function ! { dg-excess-errors "" } |