From 24748eb48e44ae268686a795149edc03af0e4310 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Wed, 2 Nov 2011 20:15:55 +0000 Subject: [PATCH] re PR tree-optimization/50769 (ICE: in phi_alternatives_equal, at tree-cfgcleanup.c:355 with -O2 -fno-delete-null-pointer-checks -fno-guess-branch-probability -fipa-pta) 2011-11-02 Tom de Vries PR tree-optimization/50769 * gfortran.dg/pr50769.f90: New test. From-SVN: r180793 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr50769.f90 | 30 +++++++++++++++++++++++++++ 2 files changed, 35 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr50769.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 92b5bef129b3..56e948085497 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-11-02 Tom de Vries + + PR tree-optimization/50769 + * gfortran.dg/pr50769.f90: New test. + 2011-11-02 Eric Botcazou * gcc.target/sparc/20111102-1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/pr50769.f90 b/gcc/testsuite/gfortran.dg/pr50769.f90 new file mode 100644 index 000000000000..3a98543e3a65 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr50769.f90 @@ -0,0 +1,30 @@ +! { dg-do compile } +! { dg-options "-O2 -ftree-tail-merge -fno-delete-null-pointer-checks -fno-guess-branch-probability" } +! +! based on testsuite/gfortran.dg/alloc_comp_optional_1.f90, +! which was contributed by David Kinniburgh +! +program test_iso + type ivs + character(LEN=1), dimension(:), allocatable :: chars + end type ivs + type(ivs) :: v_str + integer :: i + call foo(v_str, i) + if (v_str%chars(1) .ne. "a") call abort + if (i .ne. 0) call abort + call foo(flag = i) + if (i .ne. 1) call abort +contains + subroutine foo (arg, flag) + type(ivs), optional, intent(out) :: arg + integer :: flag + if (present(arg)) then + arg = ivs([(char(i+96), i = 1,10)]) + flag = 0 + else + flag = 1 + end if + end subroutine +end + -- 2.47.2