diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/associate_22.f90 | 9 |
2 files changed, 11 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2e69175..1e91e7f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,9 +1,14 @@ +2017-12-28 Janne Blomqvist <jb@gcc.gnu.org> + + PR fortran/83344 + * gfortran.dg/associate_22.f90: Comment out part of test. + 2017-12-28 Paul Thomas <pault@gcc.gnu.org> PR fortran/83567 * gfortran.dg/pdt_26.f90 : New test. -2017_12_27 Louis Krupp <louis.krupp@zoho.com> +2017-12-27 Louis Krupp <louis.krupp@zoho.com> PR fortran/83092 * gfortran.dg/init_char_with_nonchar_ctr.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/associate_22.f90 b/gcc/testsuite/gfortran.dg/associate_22.f90 index 1558992..edf5932 100644 --- a/gcc/testsuite/gfortran.dg/associate_22.f90 +++ b/gcc/testsuite/gfortran.dg/associate_22.f90 @@ -24,10 +24,11 @@ program foo end associate ! This failed. - a = trim(s) // 'abc' - associate(w => trim(s) // 'abc') - if (trim(w) /= trim(a)) call abort - end associate + ! This still doesn't work correctly, see PR 83344 +! a = trim(s) // 'abc' +! associate(w => trim(s) // 'abc') +! if (trim(w) /= trim(a)) call abort +! end associate ! This failed. associate(x => trim('abc')) |