gcc/testsuite/gfortran.dg/pr46985.f90

   1 ! PR tree-optimization/46985
   2 ! { dg-do compile }
   3 ! { dg-options "-O -ftree-pre -ftree-vrp -fno-tree-ccp -fno-tree-dominator-opts -fno-tree-fre" }
   4
   5   type :: t
   6     integer :: i
   7   end type t
   8   type(t), target :: tar(2) = (/t(2), t(4)/)
   9   integer, pointer :: ptr(:)
  10   ptr => tar%i
  11   call foo (ptr)
  12 contains
  13   subroutine foo (arg)
  14     integer :: arg(:)
  15     arg = arg - 1
  16   end subroutine
  17 end