Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/trim_optimize_2.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-O -fdump-tree-original" } ! Optimize unnecessary TRIMs in contained namespaces too. module faz implicit none contains subroutine bar character(len=3) :: a character(len=4) :: b,c b = 'abcd' a = trim(b) c = trim(trim(a)) if (a /= 'abc') STOP 1 if (c /= 'abc') STOP 2 end subroutine bar end module faz program main use faz implicit none call foo call bar contains subroutine foo character(len=3) :: a character(len=4) :: b,c b = 'abcd' a = trim(b) c = trim(trim(a)) if (a /= 'abc') STOP 3 if (c /= 'abc') STOP 4 end subroutine foo end program main ! { dg-final { scan-tree-dump-times "memmove" 6 "original" } } ! { dg-final { scan-tree-dump-times "string_trim" 0 "original" } }