Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/string_compare_4.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-ffrontend-optimize -fdump-tree-original" }
kono
parents:
diff changeset
3 ! PR fortran/52537 - optimize comparisons with empty strings
kono
parents:
diff changeset
4 program main
kono
parents:
diff changeset
5 implicit none
kono
parents:
diff changeset
6 character(len=10) :: a
kono
parents:
diff changeset
7 character(len=30) :: line
kono
parents:
diff changeset
8 character(len=4,kind=4) :: c4
kono
parents:
diff changeset
9 line = 'x'
kono
parents:
diff changeset
10 read (unit=line,fmt='(A)') a
kono
parents:
diff changeset
11 c4 = 4_'foo'
kono
parents:
diff changeset
12 if (c4 == 4_' ') print *,"foobar"
kono
parents:
diff changeset
13 if (trim(a) == '') print *,"empty"
kono
parents:
diff changeset
14 call foo(a)
kono
parents:
diff changeset
15 if (trim(a) == ' ') print *,"empty"
kono
parents:
diff changeset
16 contains
kono
parents:
diff changeset
17 subroutine foo(b)
kono
parents:
diff changeset
18 character(*) :: b
kono
parents:
diff changeset
19 if (b /= ' ') print *,"full"
kono
parents:
diff changeset
20 end subroutine foo
kono
parents:
diff changeset
21 end program main
kono
parents:
diff changeset
22 ! { dg-final { scan-tree-dump-times "_gfortran_string_len_trim" 4 "original" } }