gcc/testsuite/gfortran.dg/character_comparison_7.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O -fdump-tree-original" }
   3 ! Test that expressions in subroutine calls are also optimized
   4 program main
   5   implicit none
   6   character(len=4) :: c
   7   c = 'abcd'
   8   call yes(c == c)
   9   call no(c /= c)
  10 end program main
  11
  12 subroutine yes(a)
  13   implicit none
  14   logical, intent(in) :: a
  15   if (.not. a) call abort
  16 end subroutine yes
  17
  18 subroutine no(a)
  19   implicit none
  20   logical, intent(in) :: a
  21   if (a) call abort
  22 end subroutine no
  23
  24 ! { dg-final { scan-tree-dump-times "gfortran_compare_string" 0 "original" } }
  25 ! { dg-final { cleanup-tree-dump "original" } }
  26