diff options
| author | Erik Edelmann <eedelman@gcc.gnu.org> | 2006-01-25 20:46:29 +0000 |
|---|---|---|
| committer | Erik Edelmann <eedelman@gcc.gnu.org> | 2006-01-25 20:46:29 +0000 |
| commit | 810306f2c59b89ac1596eff596ffee5354d4225c (patch) | |
| tree | 694499b865196daad78324da54b88dbc40acd07e /gcc/testsuite | |
| parent | 5c45cecb25efa7898108694021f221c46429347c (diff) | |
| download | gcc-810306f2c59b89ac1596eff596ffee5354d4225c.zip gcc-810306f2c59b89ac1596eff596ffee5354d4225c.tar.gz gcc-810306f2c59b89ac1596eff596ffee5354d4225c.tar.bz2 | |
re PR fortran/25716 (FAIL: gfortran.dg/char_result_11.f90 -O (test for excess errors))
fortran/
2005-01-25 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25716
* symbol.c (free_old_symbol): New function.
(gfc_commit_symbols): Use it.
(gfc_commit_symbol): New function.
(gfc_use_derived): Use it.
* gfortran.h: Add prototype for gfc_commit_symbol.
* intrinsic.c (gfc_find_function): Search in 'conversion'
if not found in 'functions'.
(gfc_convert_type_warn): Add a symtree to the new
expression node, and commit the new symtree->n.sym.
* resolve.c (gfc_resolve_index): Make sure typespec is
properly initialized.
testsuite/
2005-01-25 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25716
* gfortran.dg/char_result_11.f90: Make it sensitive to PR
25716 on 32-bit systems too.
From-SVN: r110225
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_result_11.f90 | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a9e05c5..2ef9cc8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2005-01-25 Erik Edelmann <eedelman@gcc.gnu.org> + + PR fortran/25716 + * gfortran.dg/char_result_11.f90: Make it sensitive to PR + 25716 on 32-bit systems too. + 2006-01-25 Kazu Hirata <kazu@codesourcery.com> PR testsuite/25590 diff --git a/gcc/testsuite/gfortran.dg/char_result_11.f90 b/gcc/testsuite/gfortran.dg/char_result_11.f90 index ff10b1a..19a5c96 100644 --- a/gcc/testsuite/gfortran.dg/char_result_11.f90 +++ b/gcc/testsuite/gfortran.dg/char_result_11.f90 @@ -1,5 +1,6 @@ -! { dg-do compile } -! PR 23675: Character function of module variable length +! { dg-do link } +! PR 23675: Character function of module-variable length +! PR 25716: Implicit kind conversions in in expressions written to *.mod-files. module cutils implicit none @@ -11,7 +12,8 @@ module cutils end type t integer :: m1 = 25, m2 = 25, m3 = 25, m4 = 25, m5 = 25 - integer :: n1 = 3, n2 = 3, n3 = 3, n4 = 3, n5 = 3, n6 = 3, n7 = 3, n8 = 3, n9 = 3 + integer :: n5 = 3, n7 = 3, n9 = 3 + integer(1) :: n1 = 3, n2 = 3, n3 = 3, n4 = 3, n6 = 3, n8 = 3 character(10) :: s = "abcdefghij" integer :: x(4) = (/ 30, 40, 50, 60 /) type(t) :: tt1(5), tt2(5) |